📄 analysis.asp
字号:
<%@ Language=VBScript %>
<%
'判断用户是否拥有合法的意见建议号
if isempty(Request.QueryString("SuggestionID")) and isempty(Request.Form("SuggestionID")) then
Response.Redirect "../login.asp"
end if
'连接系统数据库
set conn = server.createobject ("adodb.connection")
conn.open "ASPData", "sa", "yourpassword"
'如果用户从电子邮件链接到此页面
if not isempty(Request.QueryString("SuggestionID")) then
CurrentSuggestID = Request.QueryString("SuggestionID")
TheMessage="请在下面进行意见批阅"
else
'如果用户批阅意见建议
CurrentSuggestID=Request.form("SuggestionID")
'校验用户输入的批阅
if len(trim(Request.Form("Comments")))<>0 then
set RSSuggestion=conn.Execute("select * from SuggestionRecords where SuggestionID=" _
& CurrentSuggestID & " order by SuggestionID")
set RSCommentor=conn.execute("select * from PSLogins where Department='" _
& RSSuggestion("ToDepartment") & "' and Position='主管'")
'判断用户是否有权批阅
if Request.form("CommentorName")=RSCommentor("Name") and _
Request.form("CommentorPassword")=RSCommentor("Password") then
conn.Execute "update SuggestionRecords set " _
& "Status = '已处理', " _
& "Comments = '" & Request.Form("Comments") & "'" _
& "where SuggestionID = " & Request.Form("SuggestionID")
TheMessage="您已批阅此条意见建议成功"
else
TheMessage="您无权对这条意见建议进行批阅，请检查您输入的姓名和密码是否正确"
Warning=true
end if
else
TheMessage="意见建议的回复意见内容不能为空"
Warning=true
end if
CurrentSuggestID =Request.Form("SuggestionID")
end if
set RSSuggestion=conn.Execute("select * from SuggestionRecords where SuggestionID=" _
& CurrentSuggestID & " ")
TextofSuggestion = RSSuggestion("SuggestionText")
CurrentStatus = RSSuggestion("Status")
CurrentComments = RSSuggestion("Comments")
%>
<HTML>
<HEAD>
<TITLE>公司内部意见箱-处理意见建议</TITLE>
<META NAME="Generator" CONTENT="NetObjects Fusion 2.0.2 for Windows">
</HEAD>
<body>
<table width=800 border=0 align=center cellpadding=2 cellspacing=1 bordercolor="#996633" bgcolor=#164DA8>
<tr bgcolor=white>
<td valign=center bgcolor="#0066CC" >
<div align="center"><font color="#CCCCCC" size="+7" face="华文隶书"><strong>公司内部办公信息管理系统</strong></font></div></td>
</tr>
</table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13"> </td>
</tr>
</table>
<br>
<table width=800 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr><td colspan=3>
<font color=white>
<P ALIGN="CENTER" size="2"><font size="2">公司内部办公信息管理系统->内部信息交流系统->意见建议箱->批阅意见建议 [当前用户-
<% response.write Session("Name") %>
</font>] </font></td></tr>
<tr bgcolor=white >
<td align=left><a href=".././html/home.asp"><font color="#104DAD" size="2">返回内网主页</font></a></td>
<td align=center>
<% if Warning=false then %>
<font color="#104DAD" ><% response.write TheMessage %></FONT>
<% else %>
<font color=red ><% response.write TheMessage %></FONT>
<% end if %>
</td>
<td align=right><a href=javascript:parent.close();><font color="#104DAD" size="2">退出意见批阅页面</font></a></td>
</tr></table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13"> </td>
</tr></table>
<TABLE CELLPADDING=1 CELLSPACING=2 BORDER=1 bordercolor="#164DA8" WIDTH=800 align=center>
<TR VALIGN="center" ALIGN="center">
<TD WIDTH=35% bgcolor=#B5C7EF> </td>
<td>
<FORM ACTION="Analysis.asp" METHOD=POST>
<INPUT TYPE=HIDDEN NAME="SuggestionID" VALUE = "<% Response.Write CurrentSuggestID %>">
<table width=100% border=1>
<tr>
<td width=30% ><font size="2">意见号</font></td>
<td><% Response.Write RSSuggestion("SuggestionID") %></td></tr>
<tr>
<td><font size="2">意见提交者姓名</font></td>
<td><% Response.Write RSSuggestion("SenderName") %></td></tr>
<tr>
<td><font size="2">意见提往部门</font></td>
<td><% Response.Write RSSuggestion("ToDepartment") %></td></tr>
<tr>
<td><font size="2">意见类型</font></td>
<td><% Response.Write RSSuggestion("SuggestionType") %></td></tr>
<tr>
<td><font size="2">意见内容</font></td>
<td><% Response.Write TextofSuggestion %></td></tr>
<tr>
<td><font size="2">意见状态</font></td>
<td><% Response.Write CurrentStatus %></td></tr>
<tr>
<td><font size="2">回复意见</font></td>
<td><TEXTAREA NAME="Comments" rows=10 cols=50 ><% Response.Write CurrentComments %></TEXTAREA></td></tr>
<tr>
<td><font size="2">您的姓名</font></td>
<td><Input type=text NAME="CommentorName" Maxlength=50 ></td></tr>
<tr>
<td><font size="2">您的登录密码</font></td>
<td><Input type=password NAME="CommentorPassword" Maxlength=50 ></td></tr>
<tr><td colspan=2 align=center>
<input type=submit name=SubmitChanges value="提交意见批阅" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
</td></tr>
</table>
</form>
</td></tr></table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -