save.asp

来自「酷购网上商城~~ 完整的asp源代码.通过少许的改动就可以让你拥有自己的商城~~」· ASP 代码 · 共 85 行

<!--#include file=conn.asp-->
<%
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")
gbcount=request("gbcount")
if count="" then count="10"
html=request("html")
ggt=request("ggt")
gga=request("gga")
sendtime=FormatDateTime(Date,1)
times=FormatDateTime(Date,1)
if user="" or pass="" or email="" or name="" or home=""  then
response.write "请将资料填写完整!"
else 
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from [user] where 用户名='" & user & "'"
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("gbcount")=gbcount
 rs("home")=home
 rs("html")=html
 rs("ggt")=ggt
 rs("gga")=gga
 rs("sendtime")=sendtime
 rs("times")=times
 rs.update
 rs.close
sql="select * from [book] where 用户='" & user & "'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
 rs.addnew
 rs("昵称")="fmben"
 rs("OICQ")="7074802"
 rs("email")="[e-mail]"
 rs("home")="http://www.fmben.com"
 rs("ip")="127.0.0.1"
 rs("title")="欢迎使用留言本"
 rs("内容")="欢迎使用 fmben.com 留言系统！<br>　您在使用中如有疑问，请到官方网站 <font color=red face=acrial>http://www.fmben.com</font> 寻求帮助！<br>　谢谢支持！"
 rs("时间")=FormatDateTime(Date,1) & right(time(),8)
 rs("用户")=user
 rs("回复")="fmben.com为您提供人性化的服务。"
 rs.update
 rs.close
 conn.close
end if
%>


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