📄 list.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="md5.asp"-->
<!----------------------------------------------
Powered by QCDN_NEWS Version 1.4.3.10.6.0 (青创文章系统 - 测试版)
个人免费版
http://www.qcdn.net/
此版本只能在个人网站使用并要求保留青创网络版权！
-------------------------------------------------->
<%
if Request("method") = 1 then
articleid = Request.form("articleid")
face = Request.form("face")
content = Qcdn.checkStr(Trim(Request.form("content")))
username = Qcdn.checkStr(Trim(Request.form("username")))
password = Qcdn.checkStr(Trim(Request.form("password")))
if Request.Cookies("qcdn")("user_name") = "" then
password = md5(password,16)
end if
ip = Request.ServerVariables("REMOTE_ADDR")
Sql = "select Unid from article_User where username = '"& username &"' and password = '"& password &"'"
set rs = conn.execute(sql)
if rs.eof and rs.bof then
response.write "<script>alert(""1、您还没有注册！\n\n2、错误的用户名或密码！"");location.href=""UserReg.asp"";</script>"
rs.close : set rs = nothing
response.end
else
sql = "Insert into article_remark(articleid,username,content,faceid,intime,ip)values("& articleid &",'"& username &"','"& content &"',"& face &",Now(),'"& ip &"')"
conn.execute(sql)
Response.write "<script>alert(""评论发布成功"");location.href=""remarkList.asp?unid="& articleid &""";</script>"
response.end
end if
elseif Request("method") = 2 then
unid = Request("unid")
sql = "update article_info set Audit = 0 where Unid in ("& unid &")"
conn.execute(sql)
Response.Write("<script>alert(""审核成功"");window.opener.location.reload();window.close();</script>")
Response.End()
elseif Request("method") = 3 then
unid = Request("unid")
Response.Write("<script>window.opener.location.href=""admin_newsedit.asp?unid="&Unid &""";window.close();</script>")
Response.End()
end if
if Request("Unid") = "" then
Errmsg = "<li>发现异常错误。<li>传递的文章编号为空。"
call Qcdn.Err_List(errmsg,3)
Response.End()
else
Unid = Request("Unid")
end if
ad = Request("ad")
Sql = "Select title,content,Nclassid,classid,Nkey,hits,writer,writefrom,Intime,Popedom from article_info where Unid = " & Unid
Set Rs = conn.execute(Sql)
if Rs.eof and Rs.bof then
Errmsg = "<li>发现异常错误。<li>错误编号为: error 108。<li>请和青创网络联系解决问题。"
call Qcdn.Err_List(errmsg,3)
Response.End()
else
Popedom = Rs(9)
if AddPopedom then
if Popedom = 1 then
if Request.Cookies("qcdn")("user_name") = "" then
Response.write ("<script>alert(""如果您是会员，请登陆后浏览。"");window.close();</script>")
Response.end
end if
end if
end if
sql = "Update article_info set hits=hits+1 where Unid = " & Unid
Conn.execute(sql)
title = Rs(0)
content = Rs(1)
Nclassid = Rs(2)
classid = Rs(3)
Nkey = Rs(4)
hits = Rs(5)
writer = Rs(6)
writefrom = Rs(7)
Intime = Rs(8)
end if
Rs.close
%>
<HTML><HEAD><TITLE><%=NetName%> (<%=NetUrl%>)|<%=title%></TITLE>
<meta name="copyright" content="Copyright (C) 2001-2003 Jeff Jing" />
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="青创,asp,qcsky,qcdn,QCDN_NEWS">
<link href="<%=CssDir%>style.css" rel="stylesheet" type="text/css">
</head>
<body >
<table class="twidth" align=center cellpadding=0 cellspacing=0 >
<tr>
<td height="3" colspan="3" align="center"></td>
</tr>
<tr>
<td width="30%" align="center">
<%if Logo = "" then
Response.write ("<img src=http://www.qcdn.net/image/logo.gif")
else
Response.write Logo
end if%>
</td>
<td width="55%" align="center">
<%if Ads = "" then
Response.write ("<img src=http://www.qcdn.net/image/02.gif")
else
Response.write Ads
end if%></td>
<td width="15%" align="center" valign="middle">
<table width="100%">
<tr>
<td align="center"> <a href="javascript:window.external.AddFavorite('<%=Neturl%>',%20'<%=Netname%>')">添加收藏</a></td>
</tr>
<tr>
<td align="center"> <a href="admin_index.asp" target="_blank">系统管理</a></td>
</tr>
<tr>
<td align="center"> <a href="mailto:<%=Email%>">联系方式</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="3" colspan="3" align="center"></td>
</tr>
</table></TD>
</TR></TBODY></TABLE>
<table class="twidth" align=center cellpadding=0 cellspacing=0 >
<tr>
<td class="navbar-left">
</td>
<td class="navbar"> <a href=index.asp class='navlink'>首页</a>
<%
if MenuFlag then
Response.write "<script Language=Javascript1.2 src='inc/popmenu.js'></script>"
Call Qcdn.MenuJsList()
Response.write "<DIV class=menuskin id=popmenu onmouseover=""clearhidemenu();highlightmenu(event,'on')"" onmouseout=""highlightmenu(event,'off');dynamichide(event)"" style=""Z-index:100""></DIV>"
end if
Sql = "Select Unid,Classname from article_Class where flag = 0 order by OrderFlag asc"
Set Rs = Conn.Execute(Sql)
If Rs.eof and Rs.bof then
Response.Write("<span class='navlink'>还没有设置栏目。</span>")
Else
do while not Rs.eof
Response.Write("<img src="& CssDir &"navbar_Separator.gif align=absmiddle> ")
Response.Write("<a href=2j.asp?id=" & rs(0))
if MenuFlag then
sqlstr = "Select Unid from article_Class where flag = "& rs(0) & " order by orderflag asc"
Set Rsstr = conn.execute(sqlstr)
if not Rsstr.eof then
Response.write(" onmouseover=showmenu(event,"& rs(0) &",1,false) onmouseout=delayhidemenu()")
end if
Rsstr.close
end if
Response.Write(" class='navlink'>")
Response.Write(Rs(1))
Response.Write("</a> ")
Rs.movenext
loop
End If
Rs.close
%>
</td>
<td class="navbar-right">
</td>
</tr>
</table>
<br>
<script language=javascript>
function ContentSize(size)
{
var obj=document.all.ContentBody;
obj.style.fontSize=size+"px";
}
</script>
<table class="twidth" align=center cellspacing=0>
<tr>
<td class="summary-title">
<a href='index.asp'><%=NetName%></a> → <a href="2j.asp?id=<%=Classid%>"><%=Qcdn.Classlist(Classid)%></a> → <%=Qcdn.Classlist(Nclassid)%>
</td>
</tr>
<tr ><td valign=top class="tdbg">
<br><center class="aTitle"><%=Qcdn.HTMLcode(title)%></center>
<table width=100% >
<tr><td width=600 ></td><td>
<%
if AddWriter then
Response.write("作者：<span id=AuthorLabel>")
if writer<>"" then
response.Write(writer)
response.write("</span>")
end if
end if
if ad = 1 then
Response.write("<a href='list.asp?unid="& Unid &"&method=2'>审核</a> <a href='list.asp?unid="& Unid &"&method=3'>修改</a>")
end if
%>
<br>
</td></tr>
</table>
<span id="ContentBody" class="content" style="display:block;padding:0px 10px"><%=Qcdn.Ubbcode(content)%> <div style='width:100%;text-align:right;'><a href=http://www.qcdn.net/ title='Powered by Qcdn_News'><font style='font-size:11px;background:#FFFFFF;text-decoration:none;' face='Tahoma,Arial'>Qcdn_News</font></a></div></span><br><br>
<table width="100%" cellpadding=0 cellspacing=0 style="table-layout:fixed;word-break:break-all"><tr><td ></td><td width="150">
来源：<span id="SourceLabel"><%if writefrom<>"" then response.Write(writefrom)%></span><br>
阅读：<span id="HitsLabel"><%=hits%></span> 次<br>
日期：<span id="TimeLabel"><%=Intime%></span><br><br>
</td><tr><td colspan=2 align=right>
<%
if AddScroll then
Response.write "<script language=JavaScript>"
Response.write "var currentpos,timer;"
Response.write "function initializeScroll() { timer=setInterval('scrollwindow()',80);} "
Response.write "function scrollclear(){clearInterval(timer);}"
Response.write "function scrollwindow() "
Response.write "{currentpos=document.body.scrollTop;window.scroll(0,++currentpos);"
Response.write "if (currentpos != document.body.scrollTop) sc();}"
Response.write "document.onmousedown=scrollclear;"
Response.write "document.ondblclick=initializeScroll;"
Response.write "</script>"
Response.write "【 双击滚屏 】 "
end if
if EmailFlag<>0 then
Response.write "【 <a href=Sendmail.asp?Unid="& Unid &" target=_blank>推荐朋友</a> 】 "
end if
if AddComment then
Response.write "【 <a href=remarkList.asp?Unid="& Unid &" target=_blank>评论</a> 】 "
end if
if AddFavorite then
Response.write "【 <A href=""javascript:window.external.AddFavorite('"& NetUrl &"/list.asp?Unid="& Unid &"','"& Replace(Replace(title,"'",""),"""","") &"')"">收藏</a> 】 "
end if
if AddPrint then
Response.write "【 <A href='javascript:window.print()'>打印</a> 】 "
end if
if AddClose then
Response.write "【 <A href='javascript:window.close()'>关闭</a> 】"
end if
%>
【 字体：<a href="javascript:ContentSize(16)">大</a> <a href="javascript:ContentSize(14)">中</a> <a href="javascript:ContentSize(12)">小</a> 】
</td></tr></table>
<table width=97% align=center>
<tr><td>
<%
sql = "Select Unid,title from article_info where Unid = "& Unid-1
Set Rs = conn.execute(sql)
if Rs.eof and Rs.bof then
Response.write "上一篇：已经没有了。"
else
Response.write "上一篇：<a href=list.asp?unid="& rs(0) &">"& Qcdn.HTMLcode(rs(1)) &"</a>"
end if
%><br>
<%
rs.close
sql = "Select Unid,title from article_info where Unid = "& Unid+1
Set Rs = conn.execute(sql)
if Rs.eof and Rs.bof then
Response.write "下一篇：已经没有了。"
else
Response.write "下一篇：<a href=list.asp?unid="& rs(0) &">"& Qcdn.HTMLcode(rs(1)) &"</a>"
end if
rs.close
%>
</td></tr>
</table>
</td></tr>
<tbody id="printHide" name="printHide" >
<tr>
<td class="summary-title"> >> 相关文章
</td></tr>
<tr valign=top class="tdbg">
<td style="padding:5px 2px">
<%
sql = "Select top 8 Unid,title from article_info where Nkey = '"& Nkey &"' and Audit = 0 and Unid<>"& Unid &" order by Unid desc"
Set Rs = conn.execute(sql)
if Rs.eof and Rs.bof then
Response.Write("没有相关文章。")
else
do while not rs.eof
Response.Write("<div style=line-height:150% align=left> ")
Response.Write bullet & "<a href=list.asp?Unid="& rs(0) &">" & rs(1)
Response.Write("</a></div>")
rs.movenext
loop
end if
rs.close
%>
</td></tr>
<%if AddComment then%>
<tr>
<td align=center class="summary-title">
发表评论
</td>
<tr>
<form name="remarkForm" action="" method="post" onsubmit="return checkRemark();">
<input type="hidden" name="articleid" value="<%=Unid%>">
<td class="tdbg">
<table width=100% cellpadding=5 cellspacing=0 border=0>
<tr><td>
<script>
function checkRemark()
{
var form=document.all.remarkForm;
if (form.content.value=="")
{ alert("请填写评论内容");
form.content.focus();
return false;
}
if (form.username.value=="")
{ alert("请填写姓名");
form.username.focus();
return false;
}
if (form.content.value.length>200)
{ alert("评论内容不可以超过200字");
form.content.focus();
return false;
}
if (form.username.value.length>10)
{ alert("姓名不可以超过10个字");
form.username.focus();
return false;
}
form.submit.disabled=true;
return true;
}
function showLen(obj)
{
document.all.bodyLen.innerText=obj.value.length;
}
</script>
<input type="radio" name="face" value="1" checked="True"><img src=image/face/face1.gif>
<input type="radio" name="face" value="2"><img src=image/face/face2.gif>
<input type="radio" name="face" value="3"><img src=image/face/face3.gif>
<input type="radio" name="face" value="4"><img src=image/face/face4.gif>
<input type="radio" name="face" value="5"><img src=image/face/face5.gif>
<input type="radio" name="face" value="6"><img src=image/face/face6.gif>
<input type="radio" name="face" value="7"><img src=image/face/face7.gif>
<input type="radio" name="face" value="8"><img src=image/face/face8.gif>
<input type="radio" name="face" value="9"><img src=image/face/face9.gif><br>
<input type="radio" name="face" value="10"><img src=image/face/face10.gif>
<input type="radio" name="face" value="11"><img src=image/face/face11.gif>
<input type="radio" name="face" value="12"><img src=image/face/face12.gif>
<input type="radio" name="face" value="13"><img src=image/face/face13.gif>
<input type="radio" name="face" value="14"><img src=image/face/face14.gif>
<input type="radio" name="face" value="15"><img src=image/face/face15.gif>
<input type="radio" name="face" value="16"><img src=image/face/face16.gif>
<input type="radio" name="face" value="17"><img src=image/face/face17.gif>
<input type="radio" name="face" value="18"><img src=image/face/face18.gif><br>
点 评：
<textarea name="content" cols="40" Rows="4" onkeydown="showLen(this)" onkeyup="showLen(this)"></textarea> 字数<span id="bodyLen">0</span>
<br>
<%
if Request.Cookies("qcdn")("user_name")="" then
Response.write("用户名： <input type=text name='username' value='' MaxLength=50 size=10>")
Response.write(" 密码：")
Response.write("<input type=password name='password' value='' MaxLength=50 size=10>")
else
Response.write("<input type=hidden name=username value='"& Request.Cookies("qcdn")("user_name") &"'>")
Response.write("<input type=hidden name=password value='"& Request.Cookies("qcdn")("password") &"'>")
end if
%>
<input type=submit name=submit value=" 发 表 " >
<br><br>
</td>
<td width=350>
<ul style="list-style-type:square;margin-left:1em;line-height:150%">
<li>尊重网上道德，遵守中华人民共和国的各项有关法律法规
<li> 承担一切因您的行为而直接或间接导致的民事或刑事法律责任
<li> 本站管理人员有权保留或删除其管辖留言中的任意内容
<li> 本站有权在网站内转载或引用您的评论
<li> 参与本评论即表明您已经阅读并接受上述条款
</ul>
</td></tr>
</table>
</td>
<input type="hidden" name="method" value="1">
</form>
</tr>
<%end if%>
</tbody>
</table>
<!--#include file="copy.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -