📄 get_project_id.asp
字号:
<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 2000100 '本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID) then '验证权限
Server.Transfer "../err/un_authorized.htm"
response.end
end if
%>
<!--**************身份验证部分****************-->
<%
query_Project_Name = request("query_Project_Name")
Customer_ID = request("Customer_ID")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>选择项目</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" type="text/css" href="../style.css">
</head>
<body topmargin="2" leftmargin="2">
<form action="get_project_id.asp" method="post" name="frm">
<table bgcolor="#ffffff" border=0 cellpadding=1 cellspacing=1 width="100%">
<tr>
<td>输入项目名称：</td>
<td><input type="text" name="query_Project_Name" size="20" value="<%= query_Project_Name %>"></td>
<td><input type="submit" name="Submit" value="查询"></td>
</tr>
</table>
<table bgcolor="#ffffff" border=0 cellpadding=1 cellspacing=1 width="100%">
<tr bgcolor="#EFEFEF">
<td>项目名称</td>
<td>项目经理</td>
<td>客户名称</td>
</tr>
<%
ID_Pointer = request("ID_Pointer")
IsFirstPage = False
if not IsNot(ID_Pointer,"n") then ID_Pointer = MaxRecordNum
if CStr(ID_Pointer) = CStr(MaxRecordNum) then IsFirstPage = true
PageSize = request.Cookies("PageSize")
if not IsNot(PageSize,"n") then PageSize = DefaultPageSize
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "select top " & PageSize & " Projects.*,Customers.Customer_Name,Employee.Employee_Name from Projects,Customers,Employee where "
sql = sql & " Projects.Project_Manager = Employee.Employee_ID and Projects.Customer_ID = Customers.Customer_ID "
if IsNot(query_Project_Name,"s") then sql = sql & " and Projects.Project_Name like '%" & query_Project_Name & "%'"
if IsNot(Customer_ID,"n") then sql = sql & " and Projects.Customer_ID = " & Customer_ID
sql = sql & " and Projects.Project_ID < "& ID_Pointer & " and Projects.Available = 1 order by Projects.Project_ID DESC"
'response.write sql
set rs = conn.execute(sql)
i = 0
while not rs.eof
Project_ID = rs("Project_ID")
Project_Name = rs("Project_Name")
ID_Pointer = Project_ID
Customer_Name = rs("Customer_Name")
Employee_Name = rs("Employee_Name")
if i mod 2 = 0 then
response.write "<tr>"
else
response.write "<tr bgcolor=#EFEFEF>"
end if
%>
<td><a href="#" onClick="return getProject(<%= Project_ID %>,'<%= Project_Name %>');"><%= Project_Name %></a> </td>
<td><%= Employee_Name %> </td>
<td><%= Customer_Name %> </td>
</tr>
<%
i = i + 1
rs.movenext
wend
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<tr bgcolor="#EFEFEF">
<td colspan="12">
<a href="get_project_id.asp?ID_Pointer=<%= MaxRecordNum %>&query_Project_Name=<%= query_Project_Name %>&Customer_ID=<%= Customer_ID %>"><font face="Webdings">5</font>第一页</a>
<% If not IsFirstPage then %>
<a href="#" onClick="javascript:parent.main.history.go(-1);"><font face="Webdings">3</font>上一页</a>
<% End If %>
<a href="get_project_id.asp?ID_Pointer=<%= ID_Pointer %>&query_Project_Name=<%= query_Project_Name %>&Customer_ID=<%= Customer_ID %>"><font face="Webdings">4</font>下一页</a>
<a href="#" onClick="javascript:location.reload();return false;"><font face="Webdings">q</font>刷新</a>
</td>
</tr>
</table>
</form>
</body>
</html>
<script language="JavaScript" type="text/javascript">
function getProject(Project_ID,Project_Name){
if(opener.frm.Project_ID){
opener.frm.Project_ID.value = Project_ID;
opener.frm.Project_Name.value = Project_Name;
}
window.close();
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -