rq = Now()
weixin=trim(request.form("weixin"))
zhishu=trim(request.form("zhishu"))
content=server.htmlencode(request.form("content"))
if Request.Form("weixin")="" or Request.Form("zhishu")="" then
response.write"<script>alert('您输入的资料不完整!');history.go(-1)</script>"
response.end
else
if weixin <> "" and not isnull(weixin) then
set rs = Server.CreateObject("ADODB.recordSet")
sql = "select * from reg where 指数='"&zhishu&"'"
rs.open sql,db,1,1
if rs.recordcount = 1 then
Session("zhishu") = zhishu
Session.timeout = 600
response.write"<script>alert('这个指数被猜过,请换一个数字!');history.go(-1)</script>"
response.end
else
missme = " '"&rq&"','"&weixin&"','"&zhishu&"' "
insertsql="insert into reg(受理时间,微信号码,指数) values(" & missme & ")"
db.execute(insertsql)
db.close
set db=nothing
end if
end if
end if
response.write"<script>alert('输入成功!');history.go(-1)</script>"
猜测指数重复,提示“这个指数于XXXX.XX.XX XX:XX:XX时间呗猜过了,请换一个数字”。请问怎么写,请高手帮忙,谢谢!