菜鸟问题
我做个登陆界面，当用户名和秘密都正确时进入11.asp，当用户名和密码一个为空时，回到index.asp
应该怎么写呀！其他代码是这样的。
<% dim users, Passoword
users=trim(request("user"))
password=trim(request("password"))
set conn = server.CreateObject("ADODB.Connection")
set rs= server.CreateObject("ADODB.RecordSet")
conn.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("cjhsj.mdb"))
rssql = "select * from dlb where username='" &users&"' and userpsd='" &password&"'"
rs.open rssql,conn,3,1
<form name="form1" method="post" action="">
<table width="292" height="72" border="0">
<tr>
<td width="99" align="right">用户名：</td>
<td width="183"><input type="users" name="users" ></td>
</tr>
<tr>
<td align="right">密码：</td>
<td><input type="password" name="password" ></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="提交">
<input type="reset" name="reset" value="重写"></td>
</tr>
</table>
</form>
问题点数：20、回复次数：2Top
1 楼jted（牛牛）回复于 2005-06-03 11:20:00 得分 15
index.asp页面给chick.asp传users,password的值，然后在chick.asp里判断：
－－－－－－－－－－－chick.asp－－－－－－－－－－
<%
dim name,password
name=request.form("name")
password=request.form("password")
if name="" or password="" then
response.Redirect "index.asp"
else
dim exec,conn,rs
exec="select *from check where(name='"&name&"' and password='"&password&"')"
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("admin.mdb")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
rs.Close
conn.Close
response.Redirect "11.asp"
else
response.Redirect "index.asp"
end if
end if
%>Top
2 楼pengxin_hyq（顽石）回复于 2005-06-03 11:21:42 得分 5
if not rs.eof then
rs.Close
conn.Close
response.Redirect "11.asp"
else
response.Redirect "index.asp"
end if
Top
