📄 content.asp
字号:
<%@language=vbscript codepage=936 %>
<!--#INCLUDE FILE="config.asp"-->
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type=text/css>
BODY{FONT-SIZE: 9pt;COLOR: #000000;FONT-FAMILY: Arial,宋体;
scrollbar-face-color: #DEE3E7;scrollbar-highlight-color: #FFFFFF;scrollbar-shadow-color: #DEE3E7;scrollbar-3dlight-color: #D1D7DC;scrollbar-arrow-color: #006699;scrollbar-track-color: #EFEFEF;scrollbar-darkshadow-color: #98AAB1;}
font{line-height : normal ;}
.quote{margin:5px 20px;border:1px solid #CCCCCC;padding:5px; background:#F3F3F3 }
.HtmlCode{margin:5px 20px;border:1px solid #CCCCCC;padding:5px; background:#FDFDDF }
</style></head>
<script language="javascript">
function ctlent(eventobject)
{
if(event.ctrlKey && window.event.keyCode==13)
{
parent.document.form.submit();
}
}
</script>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onkeydown="ctlent();" title="Ctrl+Enter直接提交" >
<%
Action=trim(request("Action"))
ArticleID=trim(request("ArticleID"))
if Action<>"" then
if Action<>"1" then
if ArticleId="" then
response.write "请指定要修改的留言ID"
else
ArticleID=Clng(ArticleID)
if Action="M2" then sql="select * from reply where ID1=" & ArticleID else sql="select * from guest where ID=" & ArticleID
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "找不到留言"
else
if Action="M2" then response.write rs("replycontent") else response.write rs("content")
end if
rs.close
set rs=nothing
end if
else
Set rs= Server.CreateObject("ADODB.Recordset")
Set rs1= Server.CreateObject("ADODB.Recordset")
rs1.open "Select * From option1",Conn,1,1
response.Write("<DIV class=quote>")
if request("id1")<>"" then
sql="select * from reply where ID1=" & request("id1")
rs.open sql,conn,1,1
response.Write("<b>以下是引用<i>"&rs("replyname")&"</i>在"&rs("replydate")&"的发言：</b><br>")
if rs("secret") then
response.Write("该留言为悄悄话")
else
if rs1("show") and not rs("mark") then
response.Write("该留言为未审核留言")
else
response.write (rs("replycontent")&"</font>")
end if
end if
else
sql="select * from guest where ID=" & request("id")
rs.open sql,conn,1,1
response.Write("<b><font size=2>以下是引用<i>"&rs("username")&"</i>在"&rs("lydate")&"的发言：</b><br>")
if rs("secret") then
response.Write("该留言为悄悄话")
else
if rs1("show") and not rs("mark") then
response.Write("该留言为未审核留言")
else
response.write (rs("content"))
end if
end if
end if
response.Write("</DIV>")
response.Write("<P>")
rs.close
set rs=nothing
end if
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -