📄 help_ol.asp
字号:
<!--#include file="chkuser.asp"-->
<!--#include file="inc/conn.asp"-->
<%
if request("action")="post" then
ip=request.ServerVariables("HTTP_X_FORWARDED_FOR")
if ip="" then ip=request.ServerVariables("REMOTE_ADDR")
if Request.Form("title")="" or Request.Form("comment")="" then
response.redirect("error.asp?error=illegal")
response.end
end if
sql="select * from feedback"
rs.open sql,conn,1,3
rs.addnew
rs("username")=Request.Cookies("username")
rs("title")=Trim(Request.Form("title"))
rs("comment")=Trim(Request.Form("comment"))
rs("time")=Now()
rs("ip")=ip
rs.update
Response.Write "<script>alert('您的反馈的信息已经成功递交，我们将尽快回复！');location.href='help_ol.asp'</script>"
end if
%>
<html>
<head>
<title>付费确认</title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#F6ECE2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="70%">
<tr>
<td colspan="4" align="center"><table width="550" border="0" cellpadding="4" cellspacing="1" bgcolor="#cccccc">
<tr bgcolor="999999">
<td colspan="5"><strong>问题列表</strong></td>
</tr>
<%
id=request("del")
if id<>"" then
set rsd=server.createobject("adodb.recordset")
sqld="select * from [feedback] where id="&cint(id)
rsd.open sqld,conn,1,3
rsd.delete
Response.redirect "help_ol.asp"
end if
set rsfd=server.createobject("adodb.recordset")
sqlfd="select * from [feedback] where username='"&Request.Cookies("username")&"'"
rsfd.open sqlfd,conn,1,3
if rsfd.eof and rsfd.bof then
response.write"<tr><td colspan=4><center>目前您还没有提出任何问题！</center></td></tr>"
else
%>
<tr bgcolor="#F6ECE2">
<td width="56" align="center">编号</td>
<td width="267" align="center">标题</td>
<td width="120" align="center">递交时间</td>
<td width="75" align="center">是否回复</td>
<td width="75" align="center">删除</td>
</tr>
<%
do while not rsfd.eof
%>
<tr bgcolor="#F6ECE2" onmouseover="this.style.backgroundColor='#BFDFFF'" onmouseout="this.style.backgroundColor=''">
<td align="center"><%=rsfd("id")%></td>
<td align="center"><%=rsfd("title")%></td>
<td align="center" nowrap><%=rsfd("time")%></td>
<td align="center"><%
if rsfd("relay")<>"" then
Response.Write "<a href=# title=以下是回复的内容："&rsfd("relay")&">已回复</a>"
else
Response.Write("未回复")
end if
%></td>
<td align="center"><a href="?del=<%=rsfd("id")%>">删除</a></td>
</tr>
<%
rsfd.movenext
loop
end if
%>
</table>
<br>
<br>
<fieldset style="padding: 2; width:200; height:120">
<legend><b>有问必答</b></legend>
<table width="450" border="0" cellspacing="1" cellpadding="3" align="center">
<form name="frm" method="post" action="?action=post">
<tr>
<td width="73" align="left"> 标题：</td>
<td width="362">
<input name="title" type="text" class="input" maxlength="20">
* 20字以内 </td>
</tr>
<tr>
<td> 问题描述：</td>
<td width="362">
<textarea name="comment" cols="40" rows="5"></textarea>
问题的详细描述</td>
</tr>
<tr align="center">
<td colspan="2"><input name=submit type=submit class=button value=递交>
<input name="submit2" type="reset" class="button" value="清除"></td>
</tr>
</form>
</table>
</fieldset></td>
</tr>
</table>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -