📄 projectstat_query.asp
字号:
<!--#include file="../Include/TimeOut.asp"-->
<%
modulecode="0507"
%>
<!--#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
%>
<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">
<tr bgcolor="#CAEAFF">
<td width="14%" align="right"> </td>
<td width="2%"> </td>
<td colspan="4"> </td>
</tr>
<form name="form1" method="post" action="ProjectStat1_list.asp" >
<tr bgcolor="#CAEAFF">
<td width="14%" align="right">统计表类型</td>
<td width="2%"> </td>
<td colspan="4" bgcolor="#CAEAFF">
<input type="radio" name="table" value="1" checked>
计划类别、技术领域统计表
<input type="radio" name="table" value="2">
计划类别、属地统计表 <br>
<input type="radio" name="table" value="3" onclick="form1.action='ProjectStat3_List.asp'">
计划类别、单位性质统计表
<input type="radio" name="table" value="4" onclick="form1.action='ProjectStat4_List.asp'">
计划项目资金统计表</td>
</tr>
<tr bgcolor="#CAEAFF">
<td width="14%" align="right"> </td>
<td width="2%"> </td>
<td width="46%"> </td>
<td width="1%" align="right"> </td>
<td width="2%"> </td>
<td width="35%"> </td>
</tr>
<tr bgcolor="#CAEAFF">
<td width="14%" align="right">
<div align="right">项目进度</div>
</td>
<td width="2%"> </td>
<td width="46%">
<select name="ProjectJD">
<option> </option>
<option value="申报">申报</option>
<option value="初审">初审</option>
<option value="专家论证">专家论证</option>
<option value="立项">立项</option>
</select>
</td>
<td width="1%" align="right"> </td>
<td width="2%"> </td>
<td width="35%"> </td>
</tr>
<tr bgcolor="#CAEAFF">
<td width="14%" align="right"> </td>
<td width="2%"> </td>
<td width="46%"> </td>
<td width="1%" align="right"> </td>
<td width="2%"> </td>
<td width="35%"> </td>
</tr>
<tr bgcolor="#336699">
<td width="14%" height="20" bgcolor="#336699" align="right">
<div align="right"></div>
</td>
<td width="2%" height="20"> </td>
<td width="46%" bgcolor="#336699" height="20">
<div align="right">
<div align="right"><font color="#FFFFFF">当前角色</font>
<select name="role" >
<%for i=1 to objres.RecordCount %>
<option value="<%=objres("角色编码")%>"><%=objres("角色名称")%></option>
<%
objres.MoveNext
next
objres.close
set objres=nothing
%>
</select>
</div>
</div>
</td>
<td colspan="3" bgcolor="#336699" height="20">
<div align="right">
<input class="button" type="submit" name="Submit" value="查询">
<input class="button" type="reset" name="Submit2" value="重填">
<% if Request.QueryString("query")="query" then %>
<input class="button" type="button" name="Submit3" value="返回"onClick="back()">
<% end if%>
</div>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</div>
<script language="vbscript">
function back()
history.back
end function
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -