📄 fk.asp
字号:
<script LANGUAGE="JavaScript">
<!--
//窗口一打开就显示在屏幕中央
window.moveTo((screen.width-800)/2, (screen.height-650)/2)
//-->
</script>
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checkuser.asp"-->
<!--#include file="asp/checkqs.asp"-->
<!--#include file="asp/style.asp"-->
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<link href="img/style.css" rel="stylesheet" type="text/css">
<SCRIPT language=javascript src="css/init.js">
</SCRIPT>
</HEAD>
<body topmargin="0" leftmargin="5" bgcolor="#FEF7ED">
<hr width=100% color=#ffcc99>
<%
set conn=opendb("oabusy","conn","accessdsn")
flag=false
modify="newadd"
'showfk为显示反馈意见
'查看反馈意见开始
'------------------------------------------------------------------------------------------------------
if request("action")="showfk" then
id=request("id")
set rs=server.CreateObject("adodb.recordset")
sql="select name from userinf where username='"&oabusyusername&"'"
rs.Open sql,conn,1,1
if not rs.EOF and not rs.BOF then
Response.Write "<div align=center><font size=3 color=red>"&rs("name")&"的反馈意见</font></div>"
end if
rs.Close
sql="select meetname from meetdate where id="&id
rs.open sql,conn,1,1
meetname=rs("meetname")
rs.close
sql="select * from meetfk where reid="&id&" and fkdw='"&oabusyusername&"'"
rs.Open sql,conn,1,1
%>
</font></b></center>
<div align="center">
<p>[反馈时间为:<%=rs("fkdate")%>] <br>
<% if rs("fkdw")=oabusyusername then%>
<a href='fk.asp?action=fk&id=<%=rs("reid")%>'>修改意见</a>
<%end if %>
</p>
</div>
<table width="75%" cellpadding="0" cellspacing="0" align="center">
<tr>
<td>会议名称:</td>
<td><%=meetname%></td>
<br>
</tr>
<tr>
<td width="15%">反馈标题:</td>
<td width="85%"colspan="2"><%=rs("title")%></td>
<br>
</tr>
<tr>
<td width="15%" valign="top">反馈内容:</td>
<td width="85%"><%=rs("content")%></td>
</tr>
</table>
<div align="center"><p>
</div>
<%end if
'------------------------------------------------------------------------------------------------
'查看反馈意见结束
'用户填写反馈单,fk为修改反馈意见或供用户反馈意见，提供表单
'------------------------------------------------------------------------------------------------
if request("action")="fk" then
id=request("id")
'取得会议名称
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from meetdate where id="&id
rs.Open sql,conn,1,1
meetname=rs("meetname")
rs.close
flag=false '标志为判断是从meetquery.asp页面提交来的还是本页面提交的。
'取得反馈意见参数
sql="select * from meetfk where reid="&id&" and fkdw='"&oabusyusername&"'"
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
flag=true
modify="modadd"
end if
%>
<script Language="JavaScript">
function form_check(){
if(document.form5.title.value==""){window.alert("反馈标题不能为空");document.form5.title.focus();return (false);}
if(document.form5.content.value==""){window.alert("反馈内容不能为空");document.form5.content.focus();return (false);}
}
</script><center><b><font size=4>会议反馈</font></b></center>
<form name="form5" method="post" action="fk.asp?action=formfk">
<table width="90%" border="0"cellpadding="0" cellspacing="0" align="center">
<tr>
<td height=30 width="73"><b>会议名称:</b><font color="#ff0000" size="4"></font></td>
<td height=30 width="835"><font color="#ff0000" size="4"><b><%=meetname%></b></font></td>
</tr>
<tr>
<td width="73"></td>
</tr>
<tr>
<td height=50 width="73" nowrap><b>反馈标题:</b></td>
<td width="835">
<input type="text" name="title" size="70" style="border:1 solid #000000" value="<% if flag=true then Response.write rs("title") end if%>">
</td>
</tr>
<tr>
<td width="73"></td>
<td width="835"></td>
</tr>
<tr>
<td width="73" valign="top" ><b>反馈内容:</b></td>
<td width="835">
<textarea name="content" cols="70" rows="30" style="border:1 solid #000000"><%if flag=true then Response.write htmstrcode(rs("content")) end if%></textarea>
<input type="hidden" name="modify" value="<%=modify%>">
<input type="hidden" name="id" value="<%=id%>">
<input type="hidden" name="hmeetname" value="<%'=request("meetname")%>">
</td>
</tr>
</table>
<div align="center"><p>
<input type="submit" name="Submit" value="反馈" onclick="return form_check();" style="border:1 solid #000000;background:#ffffff">
<input type="reset" name="Submit2" value="清空" style="border:1 solid #000000;background:#ffffff">
</div>
</form><hr width=100% color=#ffcc99>
<%
rs.Close
set rs=nothing
end if
'用户填写反馈单结束
'--------------------------------------------------------------------------------------------------
'提交反馈单位入库,formfk为新入库反馈意见
'--------------------------------------------------------------------------------------------------
if request("action")="formfk" then
id=request("id")
title=request("title")
content=request("content")
modify=request("modify")
'modify=newadd为新加入反馈,modadd为修改意见
if modify="newadd" then '新加入
sql="update meetuser set fkiu=1 where reid="&id&" and username='"&oabusyusername&"'"
conn.execute sql
set rs1=Server.CreateObject("ADODB.recordset")
sql="select * from meetfk"
rs1.open sql,conn,1,3
rs1.addnew
rs1("reid")=request("id")
'rs1("meetid")=request("id")
'rs1("meetname")=request("hmeetname")
rs1("fkdw")=oabusyusername
rs1("fkdate")=now()
rs1("title")=htmlencode(title)
rs1("content")=htmlencode(content)
rs1.update
rs1.close
set rs1=nothing
Response.Write "反馈成功!<p>"
Response.Write "您反馈的内容为:<p>"
Response.Write "<table><tr><td><div aling=center>"&title&"</div></td></tr>"
Response.Write "<tr><td>"&htmlencode(content)&"</td></tr></table>"
else '修改
sql="update meetfk set title='"&htmlencode(title)&"', content='"&htmlencode(content)&"'"
sql=sql & " where reid="&id&" and fkdw='"&oabusyusername&"'"
conn.execute sql
Response.Write "修改成功!<p>"
Response.Write "您反馈的内容为:<p>"
Response.Write "<table><tr><td><div aling=center>"&title&"</div></td></tr>"
Response.Write "<tr><td>"&htmlencode(content)&"</td></tr></table>"
end if
end if
'提交反馈单位入库结束
'-----------------------------------------------------------------------------------------------------
conn.close
set conn=nothing
Response.Write "<p><div align=right>【<a href='javascript:window.close()'>关闭窗口</a>】</div>"
%>
</div><p>
<table cellspacing=0 cellpadding=0 width="100%" align=center border=0>
<tbody>
<tr>
<td align=middle width="100%"> <P>
<hr width=100% color=#ffcc99>
</td>
</tr>
<tr>
<td>
<p align=center></p>
</td>
</tr>
<tr valign=center>
<!--#include file="footer.htm"-->
</tr>
</tbody>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -