动漫图片女生唯美紫色:asp如何连接sql server并实现登录?
怎么使用Connection对象打开SQL SERVER数据库文件?
谢谢
login.asp
<form action="lcheck.asp" method="post" name="form1" class="style2">
<p>用户名:
<input type="text" name="textfield1">
</p>
<p>密 码:
<input type="text" name="textfield2">
</p>
<p>
<input type="submit" name="Submit" value="登录">
</p>
</form>
lcheck.asp
<!--#include file="conn.asp" -->
<% username=request("textfield1")
passpwd=request("textfield2")
session("username")=username
sql="select * from[user] where username='"&username&"'and password='"&passpwd&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
if rs.eof then
response.redirect"erro.asp"
else
response.redirect "main.asp"
end if
%>
conn.asp
%
dim conn
dim connstr
'on error resume next
connstr = "DRIVER=SQL Server; SERVER=A; UID=sa; password=; DATABASE=hrm;"
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错!"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "数据库连接出错!"
Response.End
end if
end if
sub endConnection()
conn.close
set conn=nothing
end sub
%>