📄 project_diaoc.asp
字号:
<!--#include file="../Include/AdoConn.asp"-->
<%
dim tableName '下面函数的入口参数,表名
dim KeyWord '各表主关键字名称
dim KeyType '主键类型，自动增加型为"空"，字符型为 " ' "
dim Num '保存取得的各字段个数
tableName="DiaoCa"
KeyWord="ID"
KeyType=""
Num=19
redim var(Num)
for i=0 to Num
var(i)=""
next
code=request.querystring("code")'修改
if code<>"" then
set rst=server.createobject("adodb.recordset")
strsql="select * from "&tableName&" where "&KeyWord&"="&KeyType&code&KeyType
rst.open strsql,conn
if not rst.eof then
for i=0 to Num-1
var(i)=rst(i)
next
end if
rst.Close
set rst=nothing
conn.close
set conn=nothing
end if
if Request.QueryString ("submit")="submit" then'是否是提交状态
set rst=server.CreateObject ("adodb.recordset")
strsql="select top 1 * from "&tableName
rst.Open strsql,conn
'N=rst.Fields.Count-1
N=Num-1
code=Request.Form ("code")
if code<>"" then'修改
for i=1 to N
strSet=strSet&rst(i).name&"="&"'"&Request.Form(i)&"'"
if i<>N then
strSet=strSet+","
end if
next
strsql="update "&tableName&" set "&strSet&" where "&KeyWord&"="&KeyType&code&KeyType
conn.execute (strsql)
info="您已提交修改成功!"
else'新增
dim strTitle,strValue'记录自动生成form\rst.fields语句的变量
strTitle=""
strValue=""
for i=1 to N
strTitle=strTitle&rst(i).name
strValue=strValue&"'"&Request.Form(i)&"'"
if i<>N then
strTitle=strTitle+","
strValue=strValue+","
end if
next
strsql="insert into "&tableName&"("&strTitle&")values("&strValue&")"
conn.execute (strsql)
info="您已提交成功!"
end if
rst.Close
set rst=nothing
conn.close
set conn=nothing
end if
'<input type="hidden" name="code" value="<%=var(0)>%">此隐藏域用于提交主键，将其入到所有输入变量之后。
%>
<html>
<head>
<title>沈阳市科技合作需求表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/CssLib/Cssbutton.css">
<link rel="stylesheet" href="/CssLib/CssLink.css">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="right">
<td colspan="3" >[<a href="javascript:window.close()" class="blank">关闭窗口</a>]</td>
</tr>
<tr>
<td align="center" colspan="3" height="23"><font color="#006666" size="3">沈
阳 市 科 技 合 作 需 求 表</font></td>
</tr>
<tr>
<td align="center" height="1"></td>
<td align="center" bgcolor="#000000" width="300" height="1"></td>
<td align="center" height="1"></td>
</tr>
<%if info<>"" then%>
<tr>
<td align="center" colspan="3" height="23"><%=info%></td>
</tr>
<%end if%>
</table>
<br>
<table width="100%" border="1" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" bordercolor="#999999">
<tr>
<td height="0" width="1"></td>
<td width="100%"></td>
</tr>
<tr>
<td height="885"></td>
<td valign="top" bgcolor="#F6F6F6">
<table style="font-size:9pt" width="100%" border="0" cellspacing="0" cellpadding="2" align="center">
<form name="form1" method="post" action="project_diaoC.asp?submit=submit">
<tr>
<td width="156" height="29" align="left">单位名称</td>
<td valign="top" width="591">
<input type="text" name="textfield" size="30" maxlength="30" value="<%=var(1)%>">
</td>
<td width="1"></td>
</tr>
<tr>
<td height="29" align="left">管理处室</td>
<td valign="middle">
<input type="text" name="textfield17" size="30" maxlength="30" value="<%=var(2)%>">
</td>
<td></td>
</tr>
<tr>
<td height="29" align="left">项目名称</td>
<td valign="top">
<input type="text" name="textfield18" size="30" maxlength="30" value="<%=var(3)%>">
</td>
<td></td>
</tr>
<tr>
<td height="29" align="left">项目负责人</td>
<td valign="top">
<input type="text" name="textfield2" size="30" maxlength="4" value="<%=var(4)%>">
</td>
<td></td>
</tr>
<tr>
<td height="29" align="left">主导产业</td>
<td valign="top">
<input type="text" name="textfield3" size="30" maxlength="30" value="<%=var(5)%>">
</td>
<td></td>
</tr>
<tr>
<td height="29" align="left">联系人</td>
<td valign="top">
<input type="text" name="textfield4" size="30" maxlength="4" value="<%=var(6)%>">
</td>
<td></td>
</tr>
<tr>
<td height="29" align="left">联系电话</td>
<td valign="top">
<input type="text" name="textfield5" size="30" maxlength="30" value="<%=var(7)%>">
</td>
<td></td>
</tr>
<tr>
<td height="29" align="left">移动电话</td>
<td valign="top">
<input type="text" name="textfield6" size="30" maxlength="30" value="<%=var(8)%>">
</td>
<td></td>
</tr>
<tr>
<td height="29" align="left">电子邮件</td>
<td valign="top">
<input type="text" name="textfield7" size="30" maxlength="30" value="<%=var(9)%>">
</td>
<td></td>
</tr>
<tr>
<td height="29" align="left">传真</td>
<td valign="top">
<input type="text" name="textfield8" size="30" maxlength="30" value="<%=var(10)%>">
</td>
<td></td>
</tr>
<tr>
<td height="35" valign="top">通信地址</td>
<td valign="top">
<input type="text" name="textfield9" size="30" maxlength="30" value="<%=var(11)%>">
</td>
<td></td>
</tr>
<tr>
<td height="29" valign="top">邮编</td>
<td valign="top">
<input type="text" name="textfield10" size="30" maxlength="6" value="<%=var(12)%>">
</td>
<td></td>
</tr>
<tr>
<td height="30" colspan="2" valign="top"><font color="#FF0000">科技合作需求</font></td>
<td></td>
</tr>
<tr>
<td height="22" valign="top">资金需求</td>
<td valign="top">
<input type="checkbox" name="checkbox" value="国外资金" <%if instr(var(13),"国外资金")<>0 then response.write "checked" end if%><%if var(11)="" then response.write "checked"%>>
国外资金
<input type="checkbox" name="checkbox" value="银行贷款" <%if instr(var(13),"银行贷款")<>0 then response.write "checked" end if%>>
银行贷款
<input type="checkbox" name="checkbox" value="风险投资" <%if instr(var(13),"风险投资")<>0 then response.write "checked" end if%>>
风险投资
<input type="checkbox" name="checkbox" value="企业集团投资" <%if instr(var(13),"企业集团投资")<>0 then response.write "checked" end if%>>
企业集团投资
<input type="checkbox" name="checkbox" value="民间资本投资" <%if instr(var(13),"民间资本投资")<>0 then response.write "checked" end if%>>
民间资本投资 </td>
<td></td>
</tr>
<tr>
<td height="29" valign="top">需求额度</td>
<td valign="top">
<input type="text" name="textfield11" size="10" maxlength="5" value="<%=var(14)%>">
（万元）</td>
<td></td>
</tr>
<tr>
<td height="20" colspan="2" valign="top"> 目前具备吸引投资条件（固定资产、流动资产、无形资产等抵押、合作条件）</td>
<td></td>
</tr>
<tr>
<td height="101" colspan="2" valign="top">
<textarea name="textfield12" cols="50" rows="5"><%=var(15)%></textarea>
</td>
<td></td>
</tr>
<tr>
<td height="22" valign="top">合作需求</td>
<td valign="top">
<input type="checkbox" name="checkbox2" value="引进技术" <%if instr(var(16),"引进技术")<>0 then response.write "checked" end if%><%if var(14)="" then response.write "checked"%>>
引进技术
<input type="checkbox" name="checkbox2" value="合作攻关" <%if instr(var(16),"合作攻关")<>0 then response.write "checked" end if%>>
合作攻关
<input type="checkbox" name="checkbox2" value="合作研究" <%if instr(var(16),"合作研究")<>0 then response.write "checked" end if%>>
合作研究
<input type="checkbox" name="checkbox2" value="人才引进、交流" <%if instr(var(16),"人才引进、交流")<>0 then response.write "checked" end if%>>
人才引进、交流
<input type="checkbox" name="checkbox2" value="引进咨询服务" <%if instr(var(16),"引进咨询服务")<>0 then response.write "checked" end if%>>
引进咨询服务
<input type="checkbox" name="checkbox2" value="市场合作" <%if instr(var(16),"市场合作")<>0 then response.write "checked" end if%>>
市场合作
<input type="checkbox" name="checkbox2" value="其他" <%if instr(var(16),"其他")<>0 then response.write "checked" end if%>>
其他 </td>
<td></td>
</tr>
<tr>
<td height="20" colspan="2" valign="top">需求简要说明、简要指标（100字以内）：</td>
<td></td>
</tr>
<tr>
<td height="101" colspan="2" valign="top">
<textarea name="textfield122" cols="50" rows="5"><%=var(17)%></textarea>
</td>
<td></td>
</tr>
<tr>
<td height="20" colspan="2" valign="top">合作方式：（资金及支付形式等）</td>
<td></td>
</tr>
<tr>
<td height="101" colspan="2" valign="top">
<textarea name="textfield1222" cols="50" rows="5"><%=var(18)%></textarea>
</td>
<td></td>
</tr>
<tr>
<td height="29" valign="middle">需求有效期</td>
<td valign="top">
<input type="text" name="textfield13" size="30" maxlength="30" value="<%=var(19)%>">
</td>
<td></td>
</tr>
<tr>
<td height="33" colspan="2" valign="top" align="center">
<input type="hidden" name="code" value="<%=var(0)%>">
<%'if left(session("userCode"),3))="Kjj" then %>
<input type="submit" name="Submit" value="提交" class="buttonnew" onclick="return checkfun()">
<input type="reset" name="Submit2" value="重置" class="buttonnew">
<%'end if%>
</td>
<td></td>
</tr>
<tr>
<td height="3"></td>
<td></td>
<td></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right">[<a href="javascript:window.close()" class="blank">关闭窗口</a>]</td>
</tr>
</table>
</body>
</html>
<script language="vbscript">
function checkfun() '校验表单
checkfun=true
if form1.textfield.value ="" then
checkfun=false
window.alert "请输入单位名称！"
exit function
end if
if form1.textfield2.value ="" then
checkfun=false
window.alert "请输入项目负责人！"
exit function
end if
if form1.textfield3.value ="" then
checkfun=false
window.alert "请输入主导产业！"
exit function
end if
if form1.textfield4.value ="" then
checkfun=false
window.alert "请输入联系人！"
exit function
end if
if form1.textfield5.value ="" then
checkfun=false
window.alert "请输入联系电话！"
exit function
end if
if form1.textfield6.value ="" then
checkfun=false
window.alert "请输入移动电话！"
exit function
end if
if form1.textfield7.value ="" then
checkfun=false
window.alert "请输入电子邮件！"
exit function
end if
if form1.textfield8.value ="" then
checkfun=false
window.alert "请输入传真！"
exit function
end if
if form1.textfield9.value ="" then
checkfun=false
window.alert "请输入通信地址！"
exit function
end if
if form1.textfield10.value ="" then
checkfun=false
window.alert "请输入邮编！"
exit function
end if
if form1.textfield11.value ="" then
checkfun=false
window.alert "请输入需求额度！"
exit function
end if
if form1.textfield12.value ="" then
checkfun=false
window.alert "请输入目前具备吸引投资条件！"
exit function
end if
if form1.textfield122.value ="" then
checkfun=false
window.alert "请输入需求简要说明！"
exit function
end if
if form1.textfield1222.value ="" then
checkfun=false
window.alert "请输入合作方式！"
exit function
end if
if form1.textfield13.value ="" then
checkfun=false
window.alert "请输入需求有效期！"
exit function
end if
if form1.textfield17.value ="" then
checkfun=false
window.alert "请输入管理处室！"
exit function
end if
if form1.textfield18.value ="" then
checkfun=false
window.alert "请输入项目名称！"
exit function
end if
end function
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -