denlu.asp

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

<!--#Include File="Inc/xkon.Asp"--><%
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub DenLu1()
		c.Write(xkon_FenXi(Read_Text("DenLu1")))
	End Sub
	Private Sub DenLu2()
		Dim ZhangHao,MiMa,DenLu_BiaoShi
		ZhangHao=s.QueryString_aa("ZhangHao",CLng(Read_SZ("YongHuMing_Length_d")),CLng(Read_SZ("YongHuMing_Length_c")))
		MiMa=s.QueryString_aa("MiMa",CLng(Read_SZ("MiMa_Length_d")),CLng(Read_SZ("MiMa_Length_c")))
		If ZhangHao="" Or MiMa="" Then
			Call xkon_Error("账号和密码不能为空")
		End If
		Call OpenData()
		Dim Cn1,Cn2
		Set Cn1=Server.CreateObject("Adodb.Command")
		Cn1.ActiveConnection=Conn
		Cn1.CommandType=1
		Cn1.CommandText="Select BiaoShi From ZhangHao Where ZhangHao='"&ZhangHao&"' And MiMa='"&MiMa&"'"
		Set Cn2=Cn1.Execute
		If Cn2.Eof Then
			Call xkon_Error("账号或密码错误")
		Else
			DenLu_BiaoShi=Cn2("BiaoShi")
		End If
		Set Cn2=Nothing
		Set Cn1=Nothing
		Call CloseData()
		Response.Redirect("DenLu.Asp?l=3&xkon="&Server.Urlencode(DenLu_BiaoShi)&"&YuYan="&s.QueryString("YuYan"))
	End Sub
	Call H_Title("登录社区")
		Dim l
		l=s.QueryString("l")
		Select Case l
		Case ""
			Call DenLu1()
		Case "2"
			Call DenLu2()
		Case "3"
			Call Write_Cookies(xkon)
			c.Write(xkon_FenXi(Read_Text("DenLu2")))
		End Select
	Call H_End()
Set c=Nothing
Set s=Nothing
%>