📄 new.asp
字号:
<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 4000200 '本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID) then '验证权限
Server.Transfer "../err/un_authorized.htm"
response.end
end if
%>
<!--**************身份验证部分****************-->
<!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 name="frm" action="new_exe.asp" method="post" name="frm" onSubmit="return CheckInput();">
录入新文档
<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">
</td>
<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
response.write "<option value=" & rs("Group_ID") & ">" & 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>
<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>
<td bgcolor="#EFEFEF">项目名称</td><td>
<input type="text" name="Project_Name" size="32" value="<%=Project_Name%>" readonly onClick="return getProjectID(document.frm.Customer_ID.value);"><input type="hidden" name="Project_ID" size="5" value="<%=Project_ID%>" readonly onClick="return getProjectID(document.frm.Customer_ID.value);">
</td>
</tr>
<tr>
<td bgcolor="#EFEFEF">主要内容<br>少于 4KB</td>
<td colspan=3><textarea name="Document_Content" cols="50" rows="3"></textarea></td>
</tr>
</table>
<input type="submit" name="Submit" value="录入新文档">
</form>
</body>
</html>
<script language="JavaScript" type="text/javascript">
function CheckInput(){
var Document_Title = document.frm.Document_Title.value;
if(Document_Title.length < 1){
alert('请正确填写文档名称。');
return false;
}else{
return true;
}
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -