saveliuyan.asp

一个不错的个人商务网站的源码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Response.Expires = -100%>
<!--#include file="db_conn.asp"-->
<!--#include file="comm/my_request.asp"-->
<!--#include file="comm/my_lib.asp" -->
<%
dim r(5),rs,sql,MyString,i,safecode
r(0)=my_request("username",0)
r(1)=my_request("useremail",0)
r(2)=my_request("userphone",0)
r(3)=leach(my_request("usercontent",0))
safecode=my_request("safecode",0)

if safecode<>CStr(session("CheckCode")) then
wnourl("验证码输入不正确")
else

MyString = Len(r(3))
if MYString>=255 then
r(3)=left(r(3),255)
end if
r(4)=now()
r(5)=Request.ServerVariables("REMOTE_ADDR")

sql="select username,useremail,userphone,usercontent,useraddtime,userip from messagecontent"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
for i=0 to 5
rs(i)=r(i)
next
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
call wurl("留言成功，待管理员回复后显示.","guestBook.asp")
end if
%>