📄 help_ol.asp

📁 九酷网络个人主页系统破解版
💻 ASP
字号:
<!--#include file="config.asp"-->
<!--#include file="chkuser.asp"-->
<!--#include file="inc/user.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="mytop.asp"-->
<link href="css/user.css" rel="stylesheet" type="text/css">
<script language=javascript>
function manage(url)
{
window.open('manage.asp','manage','fullscren=yes');
}
</script>
<%
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
WriteErrMsg("您的必填资料没有填写完全，请重新输入！")
response.end
end if
sql="select * from [feedback]"
rs.open sql,conn,1,3
rs.addnew
rs("username")=Request.Cookies("9cool_username")
rs("title")=htmlencode2(Request.Form("title"))
rs("comment")=htmlencode2(Request.Form("comment"))
rs("ip")=ip
rs.update
Response.redirect "help_ol.asp"
end if
if request("action")="view" then
message=request("message")
call view()
else
call post()
end if
%>
<body>
<%sub post()%>
<table width="778" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
  
  <%
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("9cool_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 class="a1">
    <td width="43%" height="25" align="center">标题</td>
    <td width="21%" align="center">递交时间</td>
    <td width="12%" align="center" nowrap>是否回复</td>
    <td width="15%" align="center">删除</td>
  </tr>
  <% i=0
  do while not rsfd.eof
if i mod 2 = 0 then
a="a3"
else
a="a4"
end if
  %>
  <tr class="<%=a%>"> 
    <td align="center"><%=rsfd("title")%></td>
    <td align="center" nowrap><%=rsfd("time")%></td>
    <td align="center">
    <%
	if rsfd("relay")<>"" then
	Response.Write "<a href=javascript:void(0) onClick=javascript:open_win('?action=view&message="&rsfd("relay")&"','',320,170,'no') title=""点击查看"">已回复</a>"
	else
	Response.Write("未回复")
	end if
	%></td>
    <td align="center"><a href="?del=<%=rsfd("id")%>" onClick="return confirm('确定要删除吗？');">删除</a></td>
  </tr>
  <%
  i=i+1
  rsfd.movenext 
loop
end if
%>
</table>
      <br>

<table width="778" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
  <form name="frm" method="post" action="?action=post">
    <tr class="a1">
      <td height="25" colspan="2">递交问题</td>
    </tr>
    <tr class="a3">
      <td width="73" align="left"> 标题：</td>
      <td width="362">
        <input name="title" type="text" size="50" maxlength="20">
        * 20字以内 </td>
    </tr>
    <tr class="a4">
      <td> 问题描述：</td>
      <td width="362">
        <textarea name="comment" cols="60" rows="6"></textarea>
        <br>
        问题的详细描述</td>
    </tr>
    <tr align="center" class="a4">
      <td colspan="2"><input name=submit type=submit value=" 递 交 ">
      <input name="submit2" type="reset" value=" 清 除 "></td>
    </tr>
  </form>
</table><br>

<%
end sub
sub view()
%>
<table width="778" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
    <tr class="a1">
      <td height="25" colspan="2" align="center">查看回复</td>
    </tr>
    <tr class="a3">
      <td colspan="2" align="left">回复内容：<%=message%></td>
    </tr>
    <tr align="center" class="a4">
      <td colspan="2"><input name=submit3 type=button value=" 关 闭 " onClick="javascript:window.close()">          </td>
    </tr>
</table>
<br>
<%
end sub
%>
<!--#include file="links.asp"-->
<!--#include file="bottom.asp"-->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -