wzlist.asp

来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 44 行

<!--#include file="inc.asp"-->
<!--#include file="inc/showubb.asp"-->
<%call top()%>
<table width="781" border="0" align="center" bgcolor="#FFFFFF">
  <tr>
    <td width="781" background="img/topbg.gif"><%call head()%></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"><table width="0" border="0" align="center">
      <%dim id,cnwysql,cnwyrs
	  id=request.querystring("id")
	  set cnwyrs=server.createobject("adodb.recordset")
	  cnwysql="select * from wz where id="&id
	  cnwyrs.open cnwysql,conn,2,3
	  cnwyrs("hit")=cnwyrs("hit")+1
	  cnwyrs.update
	  
	  %>
	  <tr>
        <td width="764"><div align="center"><b><%=cnwyrs("title")%></b></div></td>
      </tr>
      <tr>
        <td><div align="center">所属科目：<a href="wz.asp?kemu=<%=cnwyrs("kemu")%>"><%=cnwyrs("kemu")%></a>&nbsp;&nbsp;&nbsp;&nbsp;　作者 ：<%=cnwyrs("zuozhe")%>&nbsp;&nbsp;&nbsp;&nbsp; 发布时间：<%=cnwyrs("date")%>&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;  点击次数：<%=cnwyrs("hit")%> &nbsp;&nbsp;&nbsp;&nbsp;　版权：<%=cnwyrs("banquan")%></div></td>
      </tr>
      <tr>
        <td><img src="img/qc.gif" width="770" height="6"></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td><div align="center"><%=ubbcode(cnwyrs("neirong"))%></div></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
    </table></td>
  </tr>
  <tr><%cnwyrs.close
  set cnwyrs=nothing%>
    <td background="img/topbg.gif"><%call footer()%></td>
  </tr>
</table>