save.asp

系统可以实现留言等功能,对于初学者有好处,希望能给大家帮助

<!--#include file=conn.inc-->
<%
user=request("user")
pass=request("pass")
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 用户名='" & 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("home")=home
 rs("html")=html
 rs("times")=times
 rs.update
 rs.close
 conn.close%>
 <!--#include file=conn.inc--><%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from book where 用户='" & user & "'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
 rs.addnew
 rs("昵称")="365ye"
 rs("OICQ")="622569"
 rs("email")="[e-mail]"
 rs("home")="http://www.365ye.com"
 rs("ip")="192.168.0.1"
 rs("内容")="欢迎使用 Gbook365 V1.0 留言系统！<br>　您在使用中如有疑问，请到官方网站 <font color=red face=acrial>gbook.365ye.com</font> 寻求帮助！<br>　谢谢支持！程序开发制作：<a href=http://www.365ye.com><font color=blue face=acrial>三百六十五夜 365ye.com</font>"
 rs("时间")=FormatDateTime(Date,1) & right(time(),8)
 rs("用户")=user
 rs("回复")="请记住Gbook365留言本官方站点: gbook.365ye.com"
 rs.update
 rs.close
 conn.close
end if
%>

<!--#include file=regok.asp-->

<%
response.end
response.redirect "index.asp?user=" & user
end if
if pass<>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?user=" & user
end if
end if
%>