project_regist2.asp

ASP程序实现的科技期刊系统

<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'取得表单数据
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
%>
<%
'第二页主持单位情况信息写入数据库
ProjectCode=session("ProjectCode")

StrSQL="update XT_TD_Project set 法人代码='"&FaRenCode&"',所在区='"&ShuoZaiQv&"',通讯地址='"&add&"',邮编='"&YouBian&"',联系人='"&LianXiRen&"',联系电话='"&LianXiTel&"',电子邮件='"&Email&"',传真='"&Fax&"',单位类型='"&ComType&"',注册类型='"&ZhuCheType&"',企业特性='"&ComPro&"'  where 项目编码='"&ProjectCode&"'"
conn.Execute StrSQL

'协作单位信息写入数据库
	set rst=server.CreateObject ("ADODB.recordset")
	StrSQL="select * from XT_TD_ProjectCompany where 项目编码='"&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 联系人='"&XieLianXiRen(i)&"',联系电话='"&XieLianXiTel(i)&"',电子邮件='"&XieEmail(i)&"',传真='"&XieFax(i)&"',单位类型='"&XieComType(i)&"' where 项目编码='"&projectCode&"' and 单位序号='"&cstr(i+1)&"'"
	conn.execute strsql
next

Response.Redirect ("Project_edit3.asp")

%>