<%
dpip=request.querystring("ip")
timestr=request.querystring("timestr")
pwd=Request.querystring("secretcookie")
Count=Request.querystring("Count")
xjj=MD5(pwd,32)
if dpip<>"" and timestr<>"" and Count<>"" and secretcookie<>"" then
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from xijiji order by id desc"
Rs.Open sql,conn,1,1
If Not Rs.Eof Then
If Rs("xjj") <> xjj Then '数据不相等
Response.Write("")
Elseif my=xjj Then '数据相等
Set Rs1=server.createobject("adodb.recordset")
Sql="select * from dpip where dpip="&dpip&""
Rs1.Open sql,conn,1,1
If Not Rs1.Eof Then
Response.Write (""& rs1.recordcount &"")
Else
Response.Write "对不起,数据库中无此记录!"
End If
Rs1.Close
Set Rs1 = Nothing
End If
Else
Response.Write("对不起,查不到密钥记录!请与作者联系!")
End If
Rs.Close
Set Rs = Nothing
Else
Response.Write("数据为空!")
End If
%>
重新给你写过了!