QQ登录界面代码

时间：2022-05-19 18:49:25 阅读：最新文章文档下载

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。

QQ登录界面代码

login.asp:

用户名:密码:

maxlength="16">

src="images/login.gif" type="image" WIDTH="37" HEIGHT="20">

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 %>

本文来源：https://www.wddqw.com/doc/20c52f8583d049649b6658d0.html

相关文章：

正在阅读：

QQ登录界面代码01-01

“古”文“今”教———以古诗《望洞庭》教学为例01-01

音乐鉴赏论文1000字01-01

汉服文化读书交流心得01-01

关于友谊的八字经典句子01-01

哪些行业在2023年有着良好的发展前景？01-01

军训日记第一天01-01

最新中国传统节日习俗作文精选01-01

财务管理制度01-01

上一篇：独立开发QQ一键消息群发工具!教程下一篇：QQ表情代码再整理