📄 editbbs2.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="fanconn.asp"-->
<!--#include file="fanfuc.asp"-->
<%
if request.cookies("adminok") = "" then
response.redirect "login.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
if trim(Request("B1")) = "提交" then
response.write "<meta HTTP-EQUIV='refresh' CONTENT='2; URL=bbsview.asp?type=" & Request.Form("type") & "'>"
end if
%>
<title>日月论坛 - 讨论区 - 管理员维护！</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="#FFFFCC" topmargin="0">
<br>
<%
if trim(Request("B1")) = "提交" then
dim efirst
dim m
dim euser
dim email
dim etitle
dim edetail
efirst = Request("id")
m = Request("type")
euser = Request("user")
email = Request("mail")
etitle = Request("title")
edetail = request("detail")
set rs=server.createobject("adodb.recordset")
sql="select * from " & m
rs.open sql,conn,1,3
rs.AddNew
rs("first") = efirst
rs("user") = trim(euser)
rs("mail") = trim(email)
rs("title") = trim(etitle)
rs("detail") = edetail
rs("hits") = 0
rs("reply") = 0
rs("bbstime") = Now()
rs.update
rs.close
sql="SELECT * FROM " & m & " WHERE id=" & Request.form("id")
Set Rs=conn.Execute(sql)
reply = rs("reply") + 1
sql="UPDATE " & m & " SET reply = " & reply & " WHERE id = " & Request.form("id")
conn.Execute sql
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<br><br><br><br><br><br>
<p align="center"> 你的回复已经加入论坛！
<p align="center">2秒后自动<a href="bbsview.asp?type=<%=Request.form("type")%>">返回论坛</a>
<%
else
%>
<%
sql="SELECT * FROM " & Request.querystring("type") & " WHERE first = " & Request.querystring("id") & " or id = " & Request.querystring("id") & " order by first "
Set Rs=conn.Execute(sql)
set host=rs("first")
If rs.Bof OR rs.Eof Then
Response.Write "<br><br><br><br><br><br><br><br><br>"
Response.Write "<p align='center'><font color='#FF0000'><b>没有该板块或该板块无此留言！</b></font></p>"
Response.Write "<p align='center'><a href='addbbs.asp'>我要发布新闻</a></p>"
else
if rs("first") = 0 then
response.write "<div align='center'><table border='0' cellspacing='0' cellpadding='0' width='550'>"
response.write "<tr><td align='center'><font size='4' color='#FF0000'><b>" & rs("title") & "</b></font></td></tr>"
response.write "<tr><td> </td></tr>"
response.write "<tr><td align='center'> 文章分类："& Request.querystring("type") & " ｜ 文章编号：" & rs("id") & " ｜ 浏览次数：" & rs("hits") & " ｜ 回复次数：" & rs("reply") & " </td></tr>"
response.write "<tr><td> </td></tr>"
response.write "</table></div>"
end if
response.write "<div align='center'><table border='1' width='550' cellspacing='0' bordercolor='#C0C0C0' bordercolorlight='#C0C0C0' bordercolordark='#FFFFFF' bgcolor='#FFFFFF'>"
if not rs.eof then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -