savemessage.asp

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

<!--#include file="db_conn.asp"-->
<!--#include file="comm/my_request.asp"-->
<!--#include file="comm/my_lib.asp" -->
<%
username=my_request("username",0)
xingxing=my_request("xingxing",1)
neirong=my_request("neirong",0)
pid=my_request("id",1)
if username=""  or xingxing="" or neirong="" or pid=""  then
call wnourl("资料未填写完整或参数错误!")
response.end
else
sql="select * from product_leave"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("username")=username
rs("xingxing")=xingxing
rs("neirong")=Outleach(neirong)
rs("pid")=pid
rs("ip")=Request.ServerVariables("REMOTE_ADDR")
rs("addtime")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "message.asp?id="&pid
end if
%>