save_message.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 29 行

<!--#include file="my_lib/my_request.asp" -->
<!--#include file="db_conn.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
response.write"<SCRIPT language=JavaScript>alert('资料未填写完整或参数错误!');"
response.write"javascript:history.go(-1)</SCRIPT>"
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")=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 "list_more.asp?id="&pid
end if
%>