xxts.asp

来自「wap系统程序源码 用户名密码:admin」· ASP 代码 · 共 14 行

<%
if glsb<>"123456.123456" and glsb<>"" then
set ggxxzl=Server.CreateObject("ADODB.Recordset")
rsggxxpl="select sid,fzt,id from tbxx where cstr(sid)<>0 and cstr(sid)="&myid&" and cstr(fzt)=0"
ggxxzl.open rsggxxpl,conn,1,2
if ggxxzl.eof then
ggxxzl.close
set ggxxzl=nothing
Else
iddd=ggxxzl("id")
Response.write "<a href='/bbs/xx_view.asp?id=" & iddd & "&amp;glsb="&glsb&"'>&#x60A8;&#x6709;"&ggxxzl.recordcount&"&#x6761;&#x65B0;&#x7684;&#x4FE1;&#x606F;</a><br/>"
end if
end if
%>