DenLu.Asp
资源名称:4.rar [点击查看]
上传用户:zhbanny
上传日期:2020-11-04
资源大小:161k
文件大小:1k
源码类别:
手机WAP编程
开发平台:
ASP/ASPX
- <!--#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
- %>