<!--#include file=conn.inc-->
<%
user=request("user")
pass1=request("pass1")
pass=request("pass")
if pass="" then pass=request("pass1")
email=request("email")
home=request("home")
name=request("name")
count=request("count")
html=request("html")
times=FormatDateTime(Date,1)
if user="" or pass="" or email="" or name="" or home="" or count="" then
response.write "请将资料填写完整!"
else 
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from user where id=1"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
 rs.addnew
 rs("用户名")=user
 rs("密码")=pass
 rs("email")=email
 rs("留言名")=name
 rs("count")=count
 rs("home")=home
 rs("html")=html
 rs("times")=times
 rs.update
 rs.close
 conn.close%>
 <!--#include file=conn.inc-->

<%
response.end
response.redirect "index.asp"
end if
if pass1<>rs("密码") then
  response.write "你输入了不正确的密码!" 
else
 rs("用户名")=user
 rs("密码")=pass
 rs("email")=email
 rs("留言名")=name
 rs("count")=count
 rs("home")=home
 rs("html")=html
 rs.update
 rs.close
 conn.close
 response.redirect "index.asp"
 end if
end if
%>