xxts.asp

WAP 书站程序 WAP 书站程序 WAP 书站程序

<%
if sb<>"123456.123456" and sb<>"" then
set ggxxzl=Server.CreateObject("ADODB.Recordset")
rsggxxpl="select sitis,yd,id from siti_Duanxin where cstr(sitis)<>0 and cstr(sitis)="&myid&" and cstr(yd)=0"
ggxxzl.open rsggxxpl,conn,1,2
if ggxxzl.eof then
ggxxzl.close
set ggxxzl=nothing
Else
iddd=ggxxzl("id")
Response.write "提示:<a href='xx_view.asp?id=" & iddd & "&amp;sb="&sb&"'>您有(" & ggxxzl.recordcount & ")条新信息</a><br/>"
end if
end if
%>