QQ登录界面代码QQ登录界面代码
login.asp:
用户名:密
码:
coon.asp:
外加after_login.asp登录验证页面:
alert('会员登陆失败!\n\n错误原因:会员
帐号和密码未填。');history.back();")
Response.end
End If
if Instr(UserName,">")>0 or Instr(UserName,"0 or Instr(UserName,"=")>0 or Instr(UserName,"%")>0 or Instr...
QQ登录界面代码
login.asp:
coon.asp:
<%
connstr = "DBQ=" + server.mappathuser.mdb") + ";DRIVER={Microsoft Access Driver (*.mdb)}" Set conn=Server.createobject("ADODB.CONNECTION") conn.Open connstr
%>
外加after_login.asp登录验证页面:
<%
Dim UserName,PassWord
UserName=replace(trim(Request.Form("Username")),"'","‘")
PassWord=replace(trim(Request.Form("PassWord")),"'","‘")
If UserName="" or PassWord="" Then
Response.Write ("")
Response.end
End If
if Instr(UserName,">")>0 or Instr(UserName,"<")>0 or Instr(UserName,"=")>0 or Instr(UserName,"%")>0 or Instr(UserName,chr(32))>0 or Instr(UserName,"?")>0 or Instr(UserName,"&")>0 or Instr(UserName,";")>0 or Instr(UserName,",")>0 or Instr(UserName,"'")>0 or
Instr(UserName,chr(34))>0 or Instr(UserName,chr(9))>0 or
Instr(UserName," ")>0 or Instr(UserName,"$")>0 then Response.Write ("") Response.end
else
UserName=Trim(UserName)
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where UserName='"&UserName&"'"
rs.open sql,conn,1,3
if rs.eof then
Response.Write ("") Response.end
else
if rs("PassWord")<>PassWord then rs.close
set rs=nothing
Response.Write ("") Response.end
else
session("UserName")=UserName'登录成功传递一个session值以便以后调用用户相关
session.timeout=300
end if
end if
rs.close
set rs=nothing
CloseDatabase
%>
本文档为【QQ登录界面代码】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。