inputcodecheck.asp

来自「mlm双轨制直销系统V8.0免费版 可用于： 1、直拨、回拨电话卡公司。」· ASP 代码 · 共 39 行

<%@ LANGUAGE = VBScript.Encode %>
<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="CalcCount.asp" -->
<%
on error resume next
Server_Name=request.ServerVariables.Item("SERVER_NAME")
textfield = trim(request("textfield"))
set rs = server.CreateObject("adodb.recordset")
sql = "select * from InfoID where ID =22"
rs.Open sql,conn
if rs.RecordCount >0 then
	MyString=rs("InfoPubTime") & right(rs("InfoTitle"),1) & right(rs("Infopub"),1)
end if
kkk=mm*30+dd-month(rs("InfoPubTime"))*30-day(rs("InfoPubTime"))
if kkk>1400 then
	
	response.write"<SCRIPT language=JavaScript>alert('您的输入的序列号错误,验证没有通过!!!');"
	response.write"location.href='inputcode.asp'</SCRIPT>"
	response.End
end if
'response.write MyString & "<br>"
'response.write MD5(MyString) & "<br>"
'response.end
if textfield<>MD5(MyString) then
	response.write"<SCRIPT language=JavaScript>alert('您的输入的序列号错误,验证不通过。');"
	response.write"location.href='inputcode.asp'</SCRIPT>"
	response.End
else
	set rs=nothing
	set rs = server.CreateObject("adodb.recordset")
	sql = "update InfoID set Wrimark=1 where ID =22"
	rs.Open sql,conn
	response.write"<SCRIPT language=JavaScript>alert('验证通过。');"
	response.write"location.href='gl.asp'</SCRIPT>"
	response.End
end if
%>