?? 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
%>
<%
'讀取企業(yè)特性
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
'修改狀態(tài)顯示主管部門列表
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="節(jié)能環(huán)保">節(jié)能環(huán)保</option>
<option value="社會發(fā)展">社會發(fā)展</option>
<option value="農(nóng)業(yè)">農(nóng)業(yè)</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="結(jié)題">結(jié)題</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 + -