📄 new_exe.asp
字号:
<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 2000200 '本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID) then '验证权限
Server.Transfer "../err/un_authorized.htm"
response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Project_Name = request("Project_Name")
Project_Manager = request("Employee_ID")
Customer_ID = request("Customer_ID")
Begin_Date_Plan = request("Begin_Date_Plan")
End_Date_Plan = request("End_Date_Plan")
if not IsNot(Project_Name,"s") then
response.write "项目名称填写不正确"
response.end
end if
if not IsNot(Project_Manager,"n") then
response.write "项目经理编号丢失"
response.end
end if
if not IsNot(Customer_ID,"n") then
response.write "可户编号丢失"
response.end
end if
if not IsNot(Begin_Date_Plan,"d") then
response.write "开始日期“" & Begin_Date_Plan & "”填写不正确，请按照yyyy-mm-dd的格式填写"
response.end
end if
if not IsNot(End_Date_Plan,"d") then
response.write "结束日期“" & End_Date_Plan & "”填写不正确，请按照yyyy-mm-dd的格式填写"
response.end
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
sql = "sp_Project_New '" & Project_Name & "'," & Project_Manager & "," & Customer_ID & ",'" & Begin_Date_Plan & "','" & End_Date_Plan & "'"
'response.write sql
conn.execute(sql)
conn.close
set conn = nothing
'操作日志
Rec_Content = "添加新项目"
Command_Line = sql
call Op_Rec(Rec_Content,Command_Line)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" type="text/css" href="../style.css">
</head>
<body>
<form name="frm" action="transfer_documents.asp" method="get">
成功建立新项目！请挑选客户文档作为项目文档
<hr size=1>
<table bgcolor="#FFFFFF" border=0 cellpadding=1 cellspacing=1 width="100%">
<tr bgcolor="#EFEFEF">
<td>附件</td>
<td>文档名称</td>
<td>文档内容</td>
<td>录入日期</td>
<td>操作</td>
</tr>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
'取得项目编号
sql = "select top 1 Project_ID from Projects where Project_Name = '" & Project_Name & "' and Project_Manager = " & Project_Manager & " and Customer_ID = " & Customer_ID & " and Begin_Date_Plan = '" & Begin_Date_Plan & "' and End_Date_Plan = '" & End_Date_Plan & "' order by Project_ID DESC"
rs.open sql,conn,1
Project_ID = rs(0)
rs.close
'取得客户文档
sql = "select * from Documents where Customer_ID = " & Customer_ID & " order by Document_ID DESC"
'response.write sql
rs.open sql,conn,1
i = 0
while not rs.eof
Document_ID = rs("Document_ID")
Document_Title = rs("Document_Title")
Document_Type = rs("Document_Type")
Document_Content = rs("Document_Content")
if len(Document_Content) > 20 then
f_Document_Content = left(Document_Content,18) & "..."
else
f_Document_Content = Document_Content
end if
Add_Date = rs("Add_Date")
if i mod 2 = 0 then
response.write "<tr>"
else
response.write "<tr bgcolor=#EFEFEF>"
end if
%>
<% If Trim(Document_Type)<>"" then %>
<td><a href="../upload_documents/attch_<%= Document_ID %>.<%=Document_Type%>" target="_blank"><img src="../images/doc_type/<%=Document_Type%>.gif" border=0 width=16 height=16></a></td>
<% Else %>
<td>无</td>
<% End If %>
<td><%= Document_Title %> </td>
<td><a class="na" title="<%= Document_Content %>"><%= f_Document_Content %></a> </td>
<td><%= FormatDate(Add_Date,1) %> </td>
<td><input type="checkbox" name="Doc_<%= i %>" value="<%= Document_ID %>"></td>
</tr>
<%
i = i + 1
rs.movenext
wend
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</table>
<input type="hidden" name="Project_ID" value="<%= Project_ID %>">
<input type="submit" name="Submit" value="把选中的文档作为项目文档">
</form>
</body>
</html>
<script language="JavaScript" type="text/javascript">
parent.main.location.reload();
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -