pay_edit2.asp

泡泡堂单机版（含ASL游戏引擎源码）

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim listid
Dim sListID,sPayer,sPayType,sMoney,sProject,sMenu,sTime,sInOut
Dim rs,Sql
listid = Request("id")
sListID = Trim(Request.Form("listid"))
sPayer = Trim(Request.Form("selpayer"))
sPayType = Trim(Request.Form("seltype"))
sMoney = Trim(Request.Form("mon"))
sProject = Trim(Request.Form("pjna"))
sMenu = Trim(Request.Form("message"))
sTime = Trim(Request.Form("adddate"))
sInOut = Request.Form("selInOut")

If Request.QueryString("action")="add" Then
Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [PayList] Where ID=" & listid
rs.Open Sql,Conn,1,3
rs("ListID") = sListID
rs("Payer") = sPayer
rs("Money") = sMoney
rs("PayType") = sPayType
rs("Project") = sProject
rs("Menu") = sMenu
rs("Time") = sTime
rs("InOut") = sInOut
rs.Update
rs.Close
Set rs=Nothing
Conn.Close
Set Conn=Nothing
Response.write "<script language='javascript'>alert('修改成功!');" & chr(13)
Response.write "window.document.location.href='Pay_List.asp';</script>"
Else
Response.Redirect "Index.asp"
End if
%>