?? project_regist2.asp
字號:
<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'取得表單數(shù)據(jù)
FaRenCode=request("FaRenCode")
ShuoZaiQv=request("ShuoZaiQv")
Add=request("Add")
YouBian=request("YouBian")
LianXiRen=request("LianXiRen")
LianXiTel=request("LianXiTel")
Email=request("Email")
Fax=request("Fax")
comType=request("comType")
ZhuCheType=request("ZhuCheType")
ComPro=request("ComPro")
if comType<>"1" then
ZhuCheType=""
ComPro=""
end if
%>
<%
'第二頁主持單位情況信息寫入數(shù)據(jù)庫
ProjectCode=session("ProjectCode")
StrSQL="update XT_TD_Project set 法人代碼='"&FaRenCode&"',所在區(qū)='"&ShuoZaiQv&"',通訊地址='"&add&"',郵編='"&YouBian&"',聯(lián)系人='"&LianXiRen&"',聯(lián)系電話='"&LianXiTel&"',電子郵件='"&Email&"',傳真='"&Fax&"',單位類型='"&ComType&"',注冊類型='"&ZhuCheType&"',企業(yè)特性='"&ComPro&"' where 項(xiàng)目編碼='"&ProjectCode&"'"
conn.Execute StrSQL
'協(xié)作單位信息寫入數(shù)據(jù)庫
set rst=server.CreateObject ("ADODB.recordset")
StrSQL="select * from XT_TD_ProjectCompany where 項(xiàng)目編碼='"&projectcode&"'"
rst.CursorType =3
rst.CursorLocation =3
rst.LockType =2
rst.Open StrSQL,strconn
con=rst.RecordCount
redim XieLianXiRen(con)
redim XieLianXiTel(con)
redim XieEmail(con)
redim XieFax(con)
redim XieComType(con)
for i=0 to con-1
a="XieLianXiRen"+Cstr(i+1)
XieLianXiRen(i)=request(a)
b="XieLianXiTel"+Cstr(i+1)
XieLianXiTel(i)=request(b)
c="XieEmail"+Cstr(i+1)
XieEmail(i)=request(c)
d="XieFax"+Cstr(i+1)
XieFax(i)=request(d)
e="XieComType"+Cstr(i+1)
XieComType(i)=request(e)
strsql="update XT_TD_ProjectCompany set 聯(lián)系人='"&XieLianXiRen(i)&"',聯(lián)系電話='"&XieLianXiTel(i)&"',電子郵件='"&XieEmail(i)&"',傳真='"&XieFax(i)&"',單位類型='"&XieComType(i)&"' where 項(xiàng)目編碼='"&projectCode&"' and 單位序號='"&cstr(i+1)&"'"
conn.execute strsql
next
Response.Redirect ("Project_edit3.asp")
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -