asp 登陆代码问题

来源:百度知道 编辑:UC知道 时间:2024/05/16 14:26:13
<% @language=vbscript %>
<%
dim conn
set conn = server.createobject("adodb.connection")
conn.open = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TWC"
set rs=server.createobject("adodb.recordset")
username=request("usename")
password=request("password")
if username="" then
response.Write "<script language=javascript> alert('帐号不能是空');history.back()</script>"
end if
sql="select * from T_use where T_name='"&username&"' and T_password='"&password&"'"
set user_rs = conn.execute(sql)

if not user_rs.bof and not user_rs.eof then
response.write"<SCRIPT language=JavaScript>alert('您已经成功登录!');"
response.write"location.href='hy.asp'</S

<% @language=vbscript %>
<%
dim conn
set conn = server.createobject("adodb.connection")
conn.open = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TWC"
set rs=server.createobject("adodb.recordset")
username=request("usename")
password=request("password")
if username="" then
response.Write "<script language=javascript> alert('帐号不能是空');history.back()</script>"
end if
sql="select * from T_use where T_name='"&username&"'"
set user_rs = conn.execute(sql)

if user_rs.bof or user_rs.eof then
response.write"<SCRIPT language=JavaScript>alert('无此账户!');"
response.write"location.href='hy.asp'</SCRIPT>"
else
if rs("T_password")<>password then
response.writ