写了个登陆代码,代码有问题还是什么?测试就是不成功!请人看看!
denglu.asp
<!--#include file="conn.asp"-->
<%
dim icookies,user,password
icookies=request.cookies("login")("user")
user=request.form("name")
password=request.form("password")
if icookies="" then
if user="" and password="" then
%>
<table width="200" border="0">
<tr>
<td><form id="form1" name="form1" method="post" action="">
<p>姓名:
<input type="text" name="name" />
</p>
<p>
密码:
<input type="text" name="password" />
</p>
<p>
<input type="submit" name="Submit" value="提交" />
<input type="reset" name="Submit2" value="注册" onclick="window.location='zhuce.asp'"/>
</p>
</form>
</td>
</tr>
</table>
<%
else
set rs1=server.createobject("adodb.recordset")
sql="select * form user where user='"&user&"' and password='"&password&"'"
rs1.open sql,conn,1,1
if not rs1.eof then
response.cookies("login")("user")=user
response.cookies("login")("password")=password
dim time
time=20
time=dateadd("n",time,now())
response.cookies("login").expire=time
response.write ("欢迎"&user&"登陆")
else
response.redirect "error.html"
end if
end if
else
response.write("欢迎"&user&"登陆")
end if
%>
error.html
<body>
您未注册,请先注册再登陆!<a href="denglu.asp">返回</a>
</body>
zhuce.asp
<!--#include include file="conn.asp"-->
<%
dim user,password
user=request.form("user")
password=request.form("password")
if user="" or password="" then
%>
<table width="213" border="1">
<tr>
<td><form id="form1" name="form1" method="post" action="">
<p>姓名:
<input type="text" name="user" />
</p>
<p>密码:
<input type="text" name="password" />
</p>
<p>
<input align="middle" type="submit" name="Submit" value="提交" />
</p>
</form>
</td>
</tr>
</table>
<%
else
set rs2=server.createobject("adodb.recordset")
sql="insert into user (user,password) value ('"&user&"','"&password&"')"
rs2.open sql,conn,`1,1
response.write("提交成功")
end if
%>