📄 reply.asp
字号:
<% Response.Buffer=True %>
<!--#Include file="conn.asp"-->
<html>
<head>
<title>回复文章</title>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<%
Dim bbs_id,title
'返回欲回复文章编号
bbs_id=Request("bbs_id")
'返回欲回复文章标题
title=Request("title")
%>
<h2 align="center">回复文章</h2>
<center>
<table border="0" width=90%>
<form method="post" action="" name="form1" >
<tr><td>主题：</td><td><input type="text" name="title" size="60"
value="re:<%=title%>"> <span class="style1">*</span></td>
</tr>
<tr><td>内容：</td><td><textarea name="text" rows="4" cols="60" wrap="soft">
</textarea>
<span class="style1">*</span></td>
</tr>
<tr><td>姓名：</td><td><input type="text" name="user_name" size="20"> <span class="style1">*</span></td>
</tr>
<tr><td></td><td><input type="submit" value=" 提交 " size="20"></td></tr>
</form>
</table>
</center>
<p align=center><a href="particular.asp?bbs_id=<%=bbs_id%>">返回首页</a>
<%
If Request("title")<>"" And Request("user_name")<>"" And Request.Form("text")<>"" Then
title=Request.Form("title")
text=Request.Form("text")
user_name=Request.Form("user_name")
'这是回复文章，所以层次为2
layer=2
'因为是第二层，上级文章编号为bbs_id
text_id=bbs_id
reply=0
hit=0
'以下将文章保存到数据库
sql = "Insert Into bbs(title,text,layer,text_id,reply,hit,username,subdate"
svalues = "Values('" & title & "','" & text & "','" & layer & "','" & text_id & "','" &reply & "','" & hit & "','" & user_name & "','" & date() & "'"
sql = sql & ") " & svalues & ")"
conn.Execute(sql)
'下面两句将原文章的回复数加1
sql="Update bbs Set reply=reply+1 Where bbs_id=" & bbs_id
conn.Execute(sql)
conn.Close
'重定向回原来页面
Response.Redirect "bbstext.asp?bbs_id=" & bbs_id
End If
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -