📄 project_query.asp
字号:
<!--#include file="../Include/TimeOut.asp"-->
<%
if Request.QueryString ("type")="PSFP" then
modulecode="0401"
end if
if Request.QueryString ("type")="PSYJ" then
modulecode="0402"
end if
if Request.QueryString ("type")="PSHZ" then
modulecode="0403"
end if
if Request.QueryString ("type")="PSCX" then
modulecode="0405"
end if
if Request.QueryString ("type")="PSXM" then
modulecode="0404"
end if
if Request.QueryString ("type")="" then
modulecode="0501"
end if
if Request.QueryString ("type")="TJ" then
modulecode="0502"
end if
if Request.QueryString ("type")="JS" then
modulecode="0503"
end if
if Request.QueryString ("type")="CS" then
modulecode="0504"
end if
if Request.QueryString ("type")="LX" then
modulecode="0505"
end if
if Request.QueryString ("type")="ReadOnly" then
modulecode="0506"
end if
%>
<!--#include file="../Include/ModuleUserCheck.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'读取当前用户的角色
set objres=server.CreateObject ("adodb.recordset")
objres.CursorType =3
objres.CursorLocation =3
objres.LockType =2
strsql="select * from xt_vp_UserRole where 用户编码='"+session("usercode")+"'"
objres.Open strsql,strconn
%>
<%
'读取项目类别
set rst1=server.CreateObject ("adodb.recordset")
rst1.CursorType =3
rst1.CursorLocation =3
rst1.LockType =2
strsql1="select * from xt_vc_ProjectType"
rst1.Open strsql1,strconn
%>
<%
'读取企业特性
set rst2=server.CreateObject ("adodb.recordset")
rst2.CursorType =3
rst2.CursorLocation =3
rst2.LockType =2
strsql2="select * from xt_vc_CompanyPro"
rst2.Open strsql2,strconn
%>
<%
'读取单位类型
set rst3=server.CreateObject ("adodb.recordset")
rst3.CursorType =3
rst3.CursorLocation =3
rst3.LockType =2
strsql3="select * from xt_vc_CompanyType"
rst3.Open strsql3,strconn
%>
<%
'读取类型
set rst4=server.CreateObject ("adodb.recordset")
rst4.CursorType =3
rst4.CursorLocation =3
rst4.LockType =2
strsql4="select * from xt_vc_CompanyReg"
rst4.Open strsql4,strconn
set rstLB=server.CreateObject ("ADODB.recordset")
StrSQL="select distinct 主管部门类别 from XT_VC_User where len(用户编码)=3 and left(用户编码,3)<>'kjj'"
rstLB.CursorType =3
rstLB.CursorLocation =3
rstLB.LockType =2
rstLB.Open StrSQL,strconn
'自动生成主管部门类别
Num=rstLB.RecordCount-1
redim rst(Num)
for i=0 to rstLB.RecordCount-1
set rst(i)=server.CreateObject ("ADODB.recordset")
StrSQL="select 用户编码,用户姓名 from XT_VC_User where len(用户编码)=3 and left(用户编码,3)<>'kjj' and 主管部门类别='"&rstLB("主管部门类别")&"'"
rst(i).CursorType =3
rst(i).CursorLocation =3
rst(i).LockType =2
rst(i).Open StrSQL,strconn
rstLB.MoveNext
next
'修改状态显示主管部门列表
set rst5=server.CreateObject ("ADODB.recordset")
StrSQL="select * from XT_VC_User where len(用户编码)=3 and left(用户编码,3)<>'kjj' and 主管部门类别='"&DepartType&"'"
rst5.CursorType =3
rst5.CursorLocation =3
rst5.LockType =2
rst5.Open StrSQL,strconn
%>
<html>
<head>
<title>项目查询</title>
<style>
.button {
BACKGROUND-COLOR:#E6F4FF; BORDER-BOTTOM: #0099FF 1px solid; BORDER-LEFT: #0099FF 1px solid; BORDER-RIGHT: #0099FF 1px solid; BORDER-TOP: #0099FF 1px solid; COLOR: #336699; width="40"; height="18" ;TEXT-ALIGN: center}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#E7F6FD" text="#000000">
<div align="left">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="50">
<tr>
<td bgcolor="#336699" height="50"><img src="../public/images/find.jpg" width="300" height="50">
<font color="#00FFFF"> 需求查询</font></td>
</tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#336699" align="center">
<tr>
<td>
<table style="font-size:9pt;" width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="../Project/Project<%=request.querystring("type")%>_EditList.asp?type=<%=request.querystring("type")%>&strsql=query" >
<tr bgcolor="#CAEAFF">
<td width="14%" align="right">
<div align="right">项目编码</div>
</td>
<td width="2%"> </td>
<td width="35%">
<input type="text" name="ProjectCode" maxlength="6">
</td>
<td width="11%" align="right">合并编码</td>
<td width="2%"> </td>
<td width="36%">
<input type="text" name="ConProjectCode" maxlength="4">
</td>
</tr>
<tr bgcolor="#CAEAFF">
<td width="14%" align="right">
<div align="right">项目名称</div>
</td>
<td width="2%"> </td>
<td width="35%">
<input type="text" name="ProjectName" maxlength="60">
</td>
<td width="11%" align="right">计划编码</td>
<td width="2%"> </td>
<td width="36%">
<input type="text" name="PlanCode" maxlength="12">
</td>
</tr>
<tr bgcolor="#CAEAFF">
<td width="14%" align="right">项目类别</td>
<td width="2%"> </td>
<td width="35%">
<select name="ProjectType" style="width:118pt;">
<option> </option>
<%for i=1 to rst1.recordcount%>
<option value="<%=rst1("项目类别编码")%>"><%=rst1("项目类别名称")%></option>
<%
rst1.movenext
next
rst1.close
set rst1=nothing
%>
</select>
</td>
<td width="11%" align="right">项目负责人</td>
<td width="2%"> </td>
<td width="36%">
<input type="text" name="Username" maxlength="6">
</td>
</tr>
<tr bgcolor="#CAEAFF">
<td width="14%" align="right">技术领域</td>
<td width="2%"> </td>
<td width="35%">
<select name="TechType" style="width:118pt;">
<option value=""> </option>
<option value="电子信息">电子信息</option>
<option value="自动化">自动化</option>
<option value="生物制药">生物制药</option>
<option value="材料化工">材料化工</option>
<option value="节能环保">节能环保</option>
<option value="社会发展">社会发展</option>
<option value="农业">农业</option>
<option value="其他">其他</option>
</select>
</td>
<td width="14%" align="right">
<div align="right">可行性报告</div>
</td>
<td width="2%"> </td>
<td width="35%">
<select name="KXXBG">
<option> </option>
<option value="Y">Y</option>
<option value="N">N</option>
</select>
</td>
</tr>
<tr bgcolor="#CAEAFF">
<td width="14%" align="right">
<div align="right">项目进度</div>
</td>
<td width="2%"> </td>
<td width="35%">
<select name="ProjectJD" onChange="set_List1(this.options.selectedIndex)">
<option> </option>
<option value="申报">申报</option>
<option value="推荐">推荐</option>
<option value="接收">接收</option>
<option value="初审">初审</option>
<option value="立项">立项</option>
<option value="合同">合同</option>
<option value="结题">结题</option>
</select>
</td>
<td width="11%" align="right">
<div align="right">进度状况</div>
</td>
<td width="2%"> </td>
<td width="36%">
<select name="JDZK">
<option> </option>
</select>
<script language="JavaScript">
function set_List1(x)
{
var l=document.form1.ProjectJD.length ;
var group=new Array(l);
for (i=0;i<l;i++)
group[i]=new Array()
group[0][0]=new Option(" ","")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -