<%sub titlen(i)
tlen=rs("title")
if len(tlen)>i then
tlen=left(tlen,i)&"..."
else
tlen=tlen
end if
end sub%>
<%
Const PAGESIZE=40
Const PARTSIZE=10
dim tlen
tlen=""
Aboardid=trim(request("boardid"))
if request("boardid")="" then
response.write"
您所连接的版面不存在！
"
else
set rs1 = server.CreateObject ("Adodb.recordset")
sql="select classid,boardid,联系方式管理 from board where boardid="& request("boardid")
rs1.open sql,conn,1,1
if rs1.eof or rs1.bof then
response.write"
您所连接的版面不存在！
"
else
%>
<%
set rs2 = server.CreateObject ("Adodb.recordset")
sql2="select classid,联系方式管理 from class where classid="& rs1("classid")
rs2.open sql2,conn,1,1
%>
|
|
|
|
|
|
|
|
|
| 当前位置：首页 >> 联系方式管理 >> 联系方式管理 >> 正文 |
|
|
|
| |
|
Copyright
2005-2006 www.jlbsyy.com |
|
|
|
| |
<%end if
end if
rs1.close
set rs1=nothing
%>
