denlu.asp

支持IE 手机同步访问的WAP论坛社区程序

<!--#Include File="../Inc/Head.Asp"--><%
Private s,c
Set s=New xkon_Response
	Set c=New xkon_Request
		Private ZhangHao,MiMa,Cn1,Cn2,GetCode
		ZhangHao=c.Form_aa("ZhangHao",4,16)
		MiMa=c.Form_aa("MiMa",4,16)
		GetCode=c.Form("GetCode")
	Set c=Nothing
	If GetCode<>"" Then
	If GetCode<>Request.Cookies("GetCode") Then
		Call xkon_Error("验证码不正确")
	Else
		If ZhangHao<>"" AND MiMa<>"" Then
		Call OpenData()
			Set Cn1=Server.CreateObject("ADODB.Command")
			Cn1.ActiveConnection=Conn
			Cn1.CommandType=1
			Cn1.CommandText="SELECT ID FROM ADMIN WHERE ZHANGHAO='"&ZhangHao&"' AND MIMA='"&MiMa&"'"
			Set Cn2=Cn1.Execute
			If Cn2.Eof Then
				Call xkon_Error("账号或密码错误")
			Else
				Response.Cookies("AdminZhanghao")=Zhanghao
				Response.Cookies("AdminMiMa")=MiMa
				Response.Redirect("Index.Asp")
			End If
			Set Cn2=Nothing
			Set Cn1=Nothing
		Call CloseData()
		End If
	End If
	End If
	Call H_Title1("登陆后台")
	s.Write("<form method=""post"" action=""DenLu.Asp""><table align=center><CAPTION>登录后台</CAPTION>")
	s.Write("<tr><td>用户名:</td><td><input class=text name=""zhanghao"" /></td></tr><tr><td>")
	s.Write("密码:</td><td><input type=password class=text name=""mima"" /></td></tr><tr><td>")
	s.Write("验证码:</td><td><input class=text name=""getcode"" size=""4"" /><img src=""DV_GetCode.Asp"" Alt=""验证码"" /></td></tr><tr><td>")
	s.Write("</td><td><input class=button type=""submit"" value=""登录"" /></td></tr></table>")
	s.Write("</form>")
	s.Write("<div align=""center"" style=""color:#FF0000"">建议使用IE浏览器进行管理操作</div>")
	Call H_End()
Set s=Nothing
%>