⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 question.asp

📁 三鸟个人网站源码。
💻 ASP
字号:
<!--#include file="conn.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="style.css" rel=stylesheet>
<title>::<%=session("d_webname")%>::的问题集</title>
</head>

<body>

<div align="center">
  <table border="0" cellpadding="0" cellspacing="0" width="500">
    <tr>
      <td>
        <p align="right"></td>
    </tr>
  </table>
</div>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="1" width="500" bgcolor="#000000">
    <tr>
      <td bgcolor="#EEEEEE" height="19" width="56" align="center">编号</td>
      <td bgcolor="#EEEEEE" height="19" width="122" align="center">查询问题</td>
      <td bgcolor="#EEEEEE" height="19" width="154" align="center">提交时间</td>
      <td bgcolor="#EEEEEE" height="19" width="104" align="center">操作情况</td>
      <td bgcolor="#EEEEEE" height="19" width="62" align="center">删除</td>
    </tr>
    <%pgsize=10
page=request.querystring("page")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from control2 where d_webname='"&session("d_webname")&"' order by id desc"
rs.open sql,conn,3,3
if rs.eof then
   response.write"未有任何问题"
   response.end
              end if
rs.pagesize=pgsize
pgnm=rs.pagecount
if page=""or clng(page)<1 then page=1
if clng(page)>pgnm then page=pgnm
if pgnm>0 then rs.absolutepage=page
count=0
do while not rs.eof and count<rs.pagesize 
%>
    <tr>
      <td bgcolor="#FFFFFF" height="20" width="56" align="center"><%=rs("id")%></td>
      <td bgcolor="#FFFFFF" height="20" width="122" align="center"><a class="red" href="answer.asp?id=<%=rs("id")%>">进去查看回复</a></td>
      <td bgcolor="#FFFFFF" height="20" width="154" align="center"><%=rs("time2")%></td>
      <td bgcolor="#FFFFFF" height="20" width="104" align="center"><%if isnull(rs("cao2")) then
      response.write"[未回复]"
      elseif rs("cao2")="1" then
      response.write"<font color=#FF0000>[已回复]</font>"
      end if%></td>
      <td bgcolor="#FFFFFF" height="20" width="62" align="center"><a href="delquestion.asp?id=<%=rs("id")%>&action=del">删除</a></td>
    </tr>
    <%count=count+1
rs.movenext
loop
rs.close
set rs=nothing
%>
  </table>
  </center>
</div>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="500" height="23">
    <tr>
      <td height="23">
        <p align="center"><a href=question.asp?page=<%=page-1%>>上一页</a>
<a href=question.asp?page=<%=page+1%>>下一页</a></td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>

⌨️ 快捷键说明

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