<%if request.cookies("timesshop")("username")="" then
response.write ""
Conn.Close
Set Conn = Nothing
response.End()
end if
%>
汇款留言
<%
dim id,username,action
action=FormatSQL(SafeRequest("action",0))
id=SafeRequest("id",1)
username=trim(request.cookies("timesshop")("username"))
select case action
case "del"
conn.execute "delete from guest where messid="& id &" "
response.redirect "hkguestshow.asp"
case "add"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from guest",conn,1,3
rs.addnew
rs("messtype")=2
rs("username")=username
rs("messtotaljg")=trim(request.form("totaljg"))
rs("payfs")=trim(request.form("bank"))
rs("messsubject")="汇款"
rs("messdtm")=now()
rs("paydate")=trim(request.form("longtime"))
rs("goodsid")=request.form("dingdan")
rs("messfrom")=request.form("content")
rs.update
rs.close
response.Redirect "index.asp"
set rs=nothing
end select%>