lookjudge.asp

来自「asp的新闻网站」· ASP 代码 · 共 91 行

ASP
91 行
字号 
<%
'*********************************************************************************
'模块名称：网友评论
'开发人：潘树文
'时间：2001年2月8日
'*********************************************************************************

%>
<html>
<!--#include file="odbc.asp"-->
<!--#include file="checkserver.asp"-->
<!--#include file="showbody.asp"-->
<!--#include file="killstr.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../style.css">
<%set rs=server.CreateObject("adodb.recordset")%>
<script src="../script/trim.js" language="JavaScript"></script>
<script src="../script/validdate.js" language="JavaScript"></script>

<title>千夜网-&gt;新闻-&gt;查看网友评论</title>
</head>
<%set rs=server.CreateObject ("adodb.recordset")%>
<body topmargin="3" leftmargin="3">
<div align="center">

<!--#include file="../include/secondhead.asp"-->

<%
 
        sql="select * from news2_judge where judgeid='"&trim(request("judgeid"))&"'  order by judgeid desc"
         rs.Open sql,conn,3,3
         
        %>
<center>
<table border="0" border=1 width="770" cellspacing="2" cellpadding="2">

<% if not rs.EOF then
       rs("clicknum")= rs("clicknum")+1
       rs.update

%>


</table></center>
<table border="0" width="770" cellspacing="0" cellpadding="0">
  <tr>
    <td width="5%" valign="top" bgcolor="#8080C0"></td>
    <td width="90%" valign="top" bgcolor="#FDFDFF"  background=../IMAGES/Bg-015.gif><form method=POST action=<% =request.servervariables("path_info")%> name=add onsubmit="return check(this);" >
<table border="0" width="100%" cellspacing="2" cellpadding="2">
	<tr>
		<td width="10%" align=right><b>此评论来自</td>
		<td width="70%"><%=rs("clientip")%>&nbsp;的用户</b></td>
	</tr>
	<tr>
		<td width="10%" align=right><b>评论主题</b></td>
		<td width="70%"><%showbody(rs("judgetitle"))%></td>
	</tr>
	<tr>
		<td width="10%" align=right><b>作者</b></td>
		<td width="70%"><%showbody(rs("author"))%></td>
	</tr>
	<tr>
		<td width="10%" align=right><b>E-MAIL</b></td>
		<td width="70%"><%showbody(rs("email"))%></td>
	</tr>
	<tr>
		<td width="10%" align=right><b>评论内容</b></td>
		<td width="70%">&nbsp;</td>
	</tr>
	<tr>
		
		<td width="90%" colspan=2><%showbody(rs("contents"))%></td>
	</tr>
	<tr>
	<%end if
	rs.close%>	<td  colspan=2 align=center>
		
	</tr>
</table>
</form></td>
    <td width="5%" valign="top" bgcolor="#8080C0"></td>
  </tr>
</table>

</div>
<hr width="90%" size="1" color="#D52B73"> 
<!--#include file="bottom.txt"-->

</body>
</html>

lookjudge.asp - 源码说明

本页面展示了「asp的新闻网站」中的 lookjudge.asp 源码文件，采用 ASP 编程语言编写，共 91 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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