急啊,我在线等,先谢谢了!!
<!--conn.asp-->
<%
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("dd.mdb")
conn.open connstr
%>
<!--login.asp-->
<%if session("user")<>"" then%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>沙漠狐登陆系统</title>
</head>
<body>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="305" align="center">尊敬的<% session("user")%>用户,欢迎您的光临!</td>
</tr>
</table>
</body>
</html>
<%
else
response.redirect"login.asp"
end if
%>
<!--zhucesave.asp-->
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodeb.recordset")
sql="select * from user"
rs.open sql,conn ,1,3
rs.addnews
if request.form("user")="" or request.form("paswwd")="" then
response.write"<script language=javascript>"
response.write "alet('用户名或密码不能为空')"
response.write"javascript:history.go(-1);"
response.write"</script>"
end if
user=request.form("user")
paswwd=request.form("paswwd")
lianxi=request.form("lianxi")
add=request.form("add")
qq=request.form("qq")
ask=request.form("ask")
answer=request.form("answer")
rs("user")=user
rs("passwd")=passwd
rs("lianxi")=lianxi
rs("add")=add
rs("qq")=qq
rs("ask")=ask
rs("answer")=answer
rs.update
rs.open
set rs=nothing
conn.close
set rs=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="3;url=login.asp">
<title>沙漠狐登陆系统</title>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="367" align="center" valign="middle"><span class="style1">贺喜您!注册成功!3秒后将自动转到首页</span></td>
</tr>
</table>
</body>
</html>
[此贴子已经被作者于2005-12-21 17:01:42编辑过]