📄 modi.asp
字号:
<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 4000300 '本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID) then '验证权限
Server.Transfer "../err/un_authorized.htm"
response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Document_ID = request("Document_ID")
if not IsNot(Document_ID,"n") then
response.write "客户文档编号丢失"
response.end
end if
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "sp_Document_Get_Content " & Document_ID
'response.write sql
set rs = conn.execute(sql)
Document_Title = rs("Document_Title")
Customer_ID = rs("Customer_ID")
Project_ID = rs("Project_ID")
Group_ID = rs("Group_ID")
Document_Content = rs("Document_Content")
if IsNot(Customer_ID,"n") then
sql = "sp_Customer_Get_Customer_Name " & Customer_ID
set rs = conn.execute(sql)
Customer_Name = rs("Customer_Name")
end if
if IsNot(Project_ID,"n") then
sql = "sp_Project_Get_Project_Name " & Project_ID
set rs = conn.execute(sql)
Project_Name = rs("Project_Name")
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<!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">
<script language="JavaScript" type="text/javascript" src="../js/functions.js"></script>
</head>
<body>
<form action="modi_exe.asp" method="post" name="frm" id="frm">
<input type="hidden" name="Document_ID" value="<%= Document_ID %>">
修改文档
<hr size=1>
<table bgcolor="#FFFFFF" border=0 cellpadding=1 cellspacing=1>
<tr>
<td bgcolor="#EFEFEF">文档名称</td>
<td>
<input type="text" name="Document_Title" size="32" value="<%= Document_Title %>">
</td>
</tr>
<tr>
<td bgcolor="#EFEFEF">客户名称</td><td>
<input type="text" name="Customer_Name" size="32" value="<%=Customer_Name%>" readonly onClick="return getCustomerID();"><input type="hidden" name="Customer_ID" size="5" value="<%=Customer_ID%>" readonly onClick="return getCustomerID();">
</td>
</tr>
<tr>
<td bgcolor="#EFEFEF">项目名称</td><td>
<input type="text" name="Project_Name" size="32" value="<%=Project_Name%>" readonly onClick="return getProjectID();"><input type="hidden" name="Project_ID" size="5" value="<%=Project_ID%>" readonly onClick="return getProjectID();">
</td>
</tr>
<tr>
<td bgcolor="#EFEFEF">文档类型</td>
<td>
<select name="Group_ID" size="1">
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "select Group_ID,Group_Name from Documents_Group order by Group_ID"
'response.write sql
set rs = conn.execute(sql)
while not rs.eof
if Group_ID = rs("Group_ID") then
tag = " selected"
else
tag = ""
end if
response.write "<option value=" & rs("Group_ID") & " " & tag & ">" & rs("Group_Name") & "</option>"
rs.movenext
wend
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</select>
</td>
</tr>
<tr>
<td bgcolor="#EFEFEF">主要内容</td>
<td><textarea Name="Document_Content" cols="50" rows="3"><%= Document_Content %></textarea></td>
</tr>
</table>
<input type="submit" name="Submit" value="保存修改">
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -