<%
response.charset = "utf-8"
action = Trim(Request.QueryString("action"))
id = GetCLng(Request.Querystring("id"))
select case action
case "checkvalidate"
checkValidate()
case "checkemail"
checkEmail()
case "click"
getclick(id)
case "update"
getupdate(id)
End select
'//
'// 验证电子邮件
'//
function checkEmail()
Set pRS = db("select [email] from [tblAccount] where [email]='"&Trim(Request.QueryString("email"))&"'",3)
If pRS.Eof Then
Response.Write "true"
Else
Response.Write "false"
End If
pRS.close
End Function
'//
'// 验证验证码
'//
Function checkValidate()
If Trim(Request.QueryString("validate"))=Empty Or Trim(Session("ValidCode"))<>ucase(Trim(Request.QueryString("validate"))) Then
Response.Write "false"
Else
Response.Write "true"
End if
End Function
'//
'// 显示点击
'//
sub getclick(ID)
Set pRS = Server.CreateObject("ADODB.RECORDSET")
pRS.Open "select Click from tblPage where id = "& id &"",conn,1,1
if Not pRS.eof then
Response.write("document.write("" " & pRS("Click") &""");")
Else
Response.write("document.write("" 1"");")
End if
pRS.Close
Set pRS = Nothing
End sub
'//
'// 更新点击
'//
sub getupdate(id)
if session("counter_" & id) <> "1" then
conn.Execute("update tblPage set Click = Click + 1 where id = "& id &"")
'session("counter_" & id) = "1"
End if
End sub
%>