DenLu.Asp
资源名称:4.rar [点击查看]
上传用户:zhbanny
上传日期:2020-11-04
资源大小:161k
文件大小:1k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <!--#Include File="Inc/xkon.Asp"--><%
  2. Private c,s
  3. Set c=New xkon_Response
  4. Set s=New xkon_Request
  5. Private Sub DenLu1()
  6. c.Write(xkon_FenXi(Read_Text("DenLu1")))
  7. End Sub
  8. Private Sub DenLu2()
  9. Dim ZhangHao,MiMa,DenLu_BiaoShi
  10. ZhangHao=s.QueryString_aa("ZhangHao",CLng(Read_SZ("YongHuMing_Length_d")),CLng(Read_SZ("YongHuMing_Length_c")))
  11. MiMa=s.QueryString_aa("MiMa",CLng(Read_SZ("MiMa_Length_d")),CLng(Read_SZ("MiMa_Length_c")))
  12. If ZhangHao="" Or MiMa="" Then
  13. Call xkon_Error("账号和密码不能为空")
  14. End If
  15. Call OpenData()
  16. Dim Cn1,Cn2
  17. Set Cn1=Server.CreateObject("Adodb.Command")
  18. Cn1.ActiveConnection=Conn
  19. Cn1.CommandType=1
  20. Cn1.CommandText="Select BiaoShi From ZhangHao Where ZhangHao='"&ZhangHao&"' And MiMa='"&MiMa&"'"
  21. Set Cn2=Cn1.Execute
  22. If Cn2.Eof Then
  23. Call xkon_Error("账号或密码错误")
  24. Else
  25. DenLu_BiaoShi=Cn2("BiaoShi")
  26. End If
  27. Set Cn2=Nothing
  28. Set Cn1=Nothing
  29. Call CloseData()
  30. Response.Redirect("DenLu.Asp?l=3&xkon="&Server.Urlencode(DenLu_BiaoShi)&"&YuYan="&s.QueryString("YuYan"))
  31. End Sub
  32. Call H_Title("登录社区")
  33. Dim l
  34. l=s.QueryString("l")
  35. Select Case l
  36. Case ""
  37. Call DenLu1()
  38. Case "2"
  39. Call DenLu2()
  40. Case "3"
  41. Call Write_Cookies(xkon)
  42. c.Write(xkon_FenXi(Read_Text("DenLu2")))
  43. End Select
  44. Call H_End()
  45. Set c=Nothing
  46. Set s=Nothing
  47. %>