<% if request("editid")<>"" then %>
<% end if %>
<%
table="OB"
if request.form("addedit_subed")="true" then
'表单提交后
editid=request.form("editid")
op01=Request.Form("op01")
op02=Request.Form("op02")
op03=Request.Form("op03")
op04=Request.Form("op04")
op05=Request.Form("op05")
op06=Request.Form("op06")
op07=Request.Form("op07")
op08=Request.Form("op08")
op09=Request.Form("op09")
if editid="" then '添加状态
'添加时使用的字段
field1=array("op01","op02","op03","op04","op05","op06","op07","op08","op09")
value1=array(op01,op02,ob03,ob04,ob05,ob06,OC01,OC02,OC03,OC04,OC05,OC06)
for i=0 to ubound(field1)
value1(i)=replace(value1(i),"'","''")
next
sql = "INSERT INTO " & table & " (" & Join(field1, ",") & ") VALUES ('" & Join(value1, "','") & "')"
word="你的信息已成功加入!"
else '编辑状态
'编辑时使用的字段
field1=array("op01","op02","op03","op04","op05","op06","op07","op08","op09")
value1=array(op01,op02,op03,op04,op05,op06,op07,op08,op09)
sql="UPDATE " & table & " SET "
for i=0 to ubound(field1)
sql = sql & field1(i) & "='" & replace(value1(i),"'","''") & "'"
if i <> ubound(field1) then
sql=sql & ","
else
sql=sql & " where id=" & editid
end if
next
word="你的信息已成功修改!"
end if
conn.Execute sql
else
'进入页面时(非提交)
editid=request("editid")
if editid<>"" then '编辑状态
onload="onload=""page_onload();"""
set rs1=Server.CreateObject("ADODB.RECORDSET")
rs1.Open "select * from " & table & " where id =" & editid ,conn
paynum=rs1("paynum")
payway=rs1("payway")
payform=rs1("payform")
ob01=rs1("ob01")
ob05=rs1("ob05")
ob06=rs1("ob06")
OC01=rs1("OC01")
OC02=rs1("OC02")
OC03=rs1("OC03")
OC04=rs1("OC04")
OC05=rs1("OC05")
OC06=rs1("OC06")
else '添加状态
ob01=""
ob02=""
ob03=""
end if
end if
%>
<% if request.form("addedit_subed")<>"true" then '********************* %>
<% end if '************************************************* %>
>
<% if request.form("addedit_subed")="true" then %>
<% =word %>
<%
session("postinfo")="payoffform"
response.redirect "/OOinfo.html"
else %>
<% end if %>