📄 comment2.asp
字号:
<%@ language="vbscript" %>
<!--#include file="adovbs.inc"-->
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open Application("DBCon_ConnectionString")
sql="update forum set hitnumber=hitnumber+1 where id="& clng( request("id"))
conn.execute sql
set rs=server.createobject("adodb.recordset")
sqltext="select * from forum where id="& clng(request("id"))
rs.open sqltext,conn,adOpenkeyset
%>
<html>
<head>
<style type="text/css">
<!--
.areatype { font-size: 12px; color: #000000; background-color: #FFFFF8}
--></style>
<title>回复供求信息</title>
<link rel="stylesheet" href="../html/3508.css">
</head>
<body BGCOLOR="#FFFFFF" text="#000000" link="#000080" vlink="#000080">
<div align="center"><center>
<script language=javascript >
function checkdel(){
if (document.forms["formdel"].adm.value=="" || document.forms["formdel"].pw.value==""){
alert("用户名和口令必须填写!");
return false;
}
return true;
}
</script>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="40">
<tr>
<td width="217" height="39" align="center" valign="bottom"><img src="../images/smallmark.gif" width="120" height="25"></td>
<td width="523" valign="bottom" height="39"><a href="../default.asp">本站首页</a>
>> 供求信息</td>
</tr>
<tr>
<td colspan="2" height="1" bgcolor="006600"></td>
</tr>
</table>
<table width="400" border="0" cellspacing="0" cellpadding="0" bgcolor="#eff5f3">
<tr bgcolor="#FFFFFF">
<td colspan="2" height="33"> </td>
</tr>
<tr>
<td width="79" align="center">发布人</td>
<td width="321"><%=rs("username")%></td>
</tr>
<tr>
<td height="16" width="79" align="center">标 题</td>
<td height="16" width="321"><% =rs("title") %></td>
</tr>
<tr>
<td width="79" height="20" align="center" valign="top"><font face="宋体">内 容</font></td>
<td width="321" height="20"><% tstr=rs("comment")
response.write(tstr) %></td>
</tr>
<tr>
<td width="79" align="center">时 间</td>
<td width="321"><%=rs("regtime")%></td>
</tr>
<tr align="center">
<td colspan="2">
<div align="center">
<center>
</center>
</div>
</td>
</tr>
<tr align="center">
<td width="79"> </td>
<td width="321"> </td>
</tr>
</table>
<table width="300" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="134">
<div align="center">
<center>
</center>
</div>
<div align="center"><a href = ./reply.asp?id=<%=rs("id")%>><font color="#CC3333">回贴</font></a>
</div>
</td>
<td width="166">
<div align="center"><font color="#CC3333"><a href="javascript:window.close()"><font color="#FF3333">关闭</font></a></font></div>
</td>
</tr>
</table>
</center>
</div>
<form name=formdel method="POST" action="delete.asp" onsubmit="return checkdel()">
<input type="hidden" name="action" value="dell"><input type="hidden" name="number" value="4"><input type="hidden" name="topic" value="000382-02-00-00-00-00-00-00-00-00-00-00-00-00-00-00-080199-100.msg"><input type="hidden" name="Browser" value><input type="hidden" name="id" value="<% =rs("id") %>">
<table border="0" width="600" align="center">
<tr bgcolor="#D5E6E1">
<td width="22">账号:</td>
<td width="210">
<input type="text" name="adm" size="20" class="areatype">
</td>
<td width="22">密码:</td>
<td width="190">
<input type="password" name="pw" size="20" class="areatype">
</td>
<td width="16"></td>
<td width="116">
<input type="submit" value="删去该贴子" class="areatype">
</td>
</tr>
</table>
</form>
<% rs.close
conn.close
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -