articleessay.asp

多用户管理分权限发布、管理软件信息； 自由选择系统默认为静态HTML或动态ASP； 无限制添加下载服务器

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
Dim ArticleID, rootid, Title, reNum, avgGrade, selArticleID, Rs, SQL, classid
Dim CurrentPage, MaxPerPage, totalnumber, Pcount
Dim NewCloud_Ads, NC_ArticleEssay
Newasp.LoadTemplates ("article")
Set NewCloud_Ads = New Adcolumn_Cls
Set Rs = CreateObject("adodb.recordset")
If Not IsNumeric(Request("id")) And Request("id")<>"" Then
	Response.Write"错误的系统参数!ID必须是数字"
	Response.End
End If
If request("id") = "0" Or request("id") = "" Then
	response.Write "<BR><BR><BR>Sorry！错误的系统参数,请选择正确的连接方式。"
	response.End
Else
	ArticleID = CLng(request("id"))
End If
SQL = "select ID,Title,classid from [NC_Article] where ID = "& ArticleID
Rs.Open SQL, conn, 1, 1
If Rs.bof And Rs.EOF Then
	response.Write "Sorry！没有找到任何文章信息。或者您选择了错误的系统参数!"
Else
	Title = Trim(Rs("Title"))
	classid = Trim(Rs("classid"))
End If
Rs.Close
SQL = "select count(ID) as reNum,AVG(Grade) as avgGrade from NC_ArticleEssay where ArticleID = "& ArticleID
Rs.Open SQL, conn, 1, 1
reNum = Rs("reNum")
avgGrade = Rs("avgGrade")
Rs.Close
'**********************************************************************
'*  NewCloud Download System VeRsion 6.0.1
'*  File: ArticleEssay.Asp
'*  Date: 2007-4-3
'**********************************************************************
'*  Copyright 2002-2004 newasp.net - All Rights Reserved.
'*  newasp is a trademark of newasp.net
'*  HomePage: http://www.newasp.net
'**********************************************************************
Dim NowStats, HtmlTitle, Style_CSS, HtmlTempStr
Dim TempTopStr, TempFootStr
NowStats = "文章评论"
HtmlTitle = "文章评论"
TempTopStr = Newasp.mainhtml(0) & Newasp.mainhtml(1) & Newasp.mainhtml(2) & Newasp.mainhtml(3)
TempFootStr = Newasp.mainhtml(4)
Style_CSS = Replace(Replace(Newasp.Style_CSS, "{$SetupDir}", Newasp.SetupDir), "{$PicUrl}", Newasp.TempDir)
HtmlTempStr = TempTopStr
HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", Newasp.SortingMenu)
HtmlTempStr = Replace(HtmlTempStr, "{$Width}", Newasp.mainset(0))
HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
If CInt(Newasp.Setting(5)) = 0 Then
	HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(9))
Else
	HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(10))
End If
HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", NewCloud_Ads.RunScriptAds(6))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", NewCloud_Ads.BannerAds(6))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", NewCloud_Ads.AdsColumn(6, 2))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", NewCloud_Ads.AdsColumn(6, 3))
Response.Write HtmlTempStr
TempFootStr = Replace(TempFootStr, "{$FootMeun}", Newasp.mainset(11))
TempFootStr = Replace(TempFootStr, "{$Width}", Newasp.mainset(0))
TempFootStr = Replace(TempFootStr, "{$Adcolumn(4)}", NewCloud_Ads.ScriptFloatAds(6))
TempFootStr = Replace(TempFootStr, "{$Adcolumn(5)}", NewCloud_Ads.ScriptFixedAds(6))
%>
<SCRIPT LANGUAGE=javascript>
<!--
function Juge(myform)
{
    if (document.myform.UserName.value==""){
       alert ("你的用户名不可为空！");
       document.myform.UserName.focus();
       return(false);
    }
	if ((document.myform.Email.value.indexOf("@") == -1) || (document.myform.Email.value.indexOf(".") == -1)){
		alert("请查看您的E-mail地址是否正确，请重录入!");
		document.myform.Email.focus();
       return(false);
	}
	

	if (myform.content.value == "")
	{
		alert("评论内容不能为空！");
		myform.content.focus();
		return (false);
	}
}
function SelectAll() {
	for (var i=0;i<document.selform.selArticleID.length;i++) {
		var e=document.selform.selArticleID[i];
		e.checked=!e.checked;
	}
}

//-->
</script>
<TABLE width="<%=Newasp.mainset(0)%>" class=TableBorder cellSpacing=0 cellPadding=0 align=center border=0>
    <tr valign="top">
      <td width="25%" bgcolor="#F7FBFF"><table width="100%" align="center" border="0" cellpadding="0" cellspacing="0">
	<tr>
	  <td height="26" align="center" background="<%=Newasp.SetupDir & Newasp.TempDir%>table_bg.gif"><strong> 站内搜索</strong></td>
	</tr>
	<tr height="50"><form method=post name=form action="<%=Newasp.SetupDir%>search.asp" target="_blank">
	  <td align="center">
	      <input name="keyword" type="text" size="25">
	      <br>
	      <select name="action">
		<option value="info">文章搜索</option>
				<option value="soft">软件搜索</option>
		<option value="web">网站搜索</option>
	      </select>
	      &nbsp;<input type="submit" name="Submit" value="开始搜索">
	  </td></form>
	</tr>
	  <tr>
	  <td height="26" align="center" background="<%=Newasp.SetupDir & Newasp.TempDir%>table_bg.gif"><strong>下载总排行</strong></td>
	</tr>
	<tr valign="top">
	  <td><SCRIPT LANGUAGE=JavaScript src=<%=Newasp.SetupDir%>JS/ArticleTop/HotTop.JS></SCRIPT></td>
	</tr>
	<tr>
	  <td height="26" align="center" background="<%=Newasp.SetupDir & Newasp.TempDir%>table_bg.gif"><strong>本类下载排行</strong></td>
	</tr>
	<tr valign="top">
	  <td><SCRIPT LANGUAGE=JavaScript src=<%=Newasp.SetupDir%>JS/ArticleTop/ThisTop<%=classid%>.JS></SCRIPT></td>
	</tr>
      </table>
</td>
      <td width="1" background="<%=Newasp.SetupDir & Newasp.TempDir%>left_r2.gif">
	  <img src="<%=Newasp.SetupDir & Newasp.TempDir%>left_r2.gif" width="10"></td>
      <td width="75%" valign="top">
<%
If Not IsEmpty(request("selArticleID")) Then
	selArticleID = request("selArticleID")
	If request("action") = "del" Then
		Call delessay()
	Else
		response.Write "无效参数！"
		response.End
	End If
End If
If Not IsEmpty(request("page")) Then
	CurrentPage = CInt(request("page"))
Else
	CurrentPage = 1
End If

MaxPerPage = 10 '###每页显示数
If Not IsNumeric(request("page")) And request("page")<>"" Then
	response.Write"错误的系统参数!请输入整数"
	response.End
End If
%>
<TABLE width="100%" cellSpacing=0 cellPadding=0 align=center border=0>
 <TR>
    <Th align="left">　文章评论</Th>
 </TR></TABLE>
<TABLE width="98%" bgcolor="#CECECE" cellSpacing=1 cellPadding=4 align=center border=0>
 <TR class=Border1>
    <TD width="20%" align=center>评论文章</TD>
    <TD width="80%">
<%If CInt(Newasp.Setting(5)) = 0 Then%>
      <A HREF=<%=Newasp.SetupDir%>Article/catalog<%=classid%>/<%=ArticleID%>.html><%=Title%></A>
<%Else%>
      <A HREF=Article.asp?id=<%=ArticleID%>><%=Title%></A>
<%End If%>
    </TD>
 </TR>
 <TR class=Border2>
    <TD align=center>评论情况</TD>
    <TD>共有 <font color="#FF0000"><%=reNum%></font> 人参与评价，评均得分：<font color="#FF0000"><%=cint(avgGrade)%></font> 分</TD>
 </TR><form name="selform" method="post" action="">
<%
SQL = "select * from [NC_ArticleEssay] where ArticleID="& ArticleID &" order by ID desc"
Rs.Open SQL, conn, 1, 1
If Rs.EOF And Rs.bof Then
	response.Write "<TR class=Border2><TD colSpan=2>没有评论</TD></TR>"
Else
	totalnumber = Rs.recordcount
	If (totalnumber Mod MaxPerPage) = 0 Then
		Pcount = totalnumber \ MaxPerPage
	Else
		Pcount = totalnumber \ MaxPerPage + 1
	End If
	Rs.MoveFiRst
	If currentpage > Pcount Then currentpage = Pcount
	If currentpage<1 Then currentpage = 1
	Rs.Move (currentPage -1) * MaxPerPage
	Dim bookmark, i
	bookmark = Rs.bookmark
	i = 0
	Do While Not Rs.EOF And i < CLng(MaxPerPage)
%>
 <TR class=Border1>
    <TD colSpan=2>用户：<%=Rs("username")%> 打分：<%=Rs("Grade")%>分 Email：<%=Rs("usermail")%> 时间：<%=Rs("postime")%> 来自：<%=Rs("postip")%></TD>
 </TR>
 </TR>
 <TR class=Border2>
    <TD colSpan=2><%if session(Newasp.CacheName & "AdminName")<>"" then%><input type="checkbox" name="selArticleID" value="<%=Rs("id")%>"><%end if%> <%=Rs("Content")%></TD>
 </TR>
<%
Rs.movenext
i = i + 1
If i>= MaxPerPage Then Exit Do
Loop
End If
Rs.Close
%>
 <TR class=Border1>
    <TD colSpan=2><%call showpage()%></TD>
 </TR>
<%if session(Newasp.CacheName & "AdminName")<>"" then%>
 <TR class=Border2>
    <TD align=center>管理操作</TD>
    <TD> <a href="javascript:SelectAll()">全选/反选</a><input type="checkbox" name="checkbox" value="checkbox" onClick="javascript:SelectAll()">
	<input type="Hidden" name="id" value="<%=request("id")%>">
	<input type="Hidden" name="action" value="del">
<input type="submit" name="Submit" value="删除评论" class=button onclick="{if(confirm('您确定执行的操作吗?')){this.document.selform.submit();return true;}return false;}"></TD>
 </TR>
<%end if%>
</form>
</table>
<BR style="OVERFLOW: hidden; LINE-HEIGHT: 3px">
		  <table width="98%" border="0" cellpadding="1" align=center cellspacing="1" bgcolor="#E5E5E5">
		    <form name="myform" method="post" action="" target="_top" onSubmit="return Juge(this)" >
		      <tr bgcolor="#FCFCFC">
			<td>用 户：</td>
			<td>
			  <input type="text" name="UserName" maxlength="15" size="28">
			  <font color="#FF0000">！</font> </td>
			<td>Email：</td>
			<td>
			  <input type="text" name="Email" maxlength="50" size="28">
			  <font color="#FF0000">！</font><input type="Hidden" name="ArticleID" value='<%=ArticleID%>'>
			  <input type="Hidden" name="action" value='savessay'> </td>
		      </tr>
		      <tr bgcolor="#FCFCFC">
			<td>分 值：</td>
			<td colSpan=3>
			  <input type="radio" name="Grade" value="100">100分
			  <input type="radio" name="Grade" value="85" checked>85分
			  <input type="radio" name="Grade" value="70">70分
			  <input type="radio" name="Grade" value="55">55分
			  <input type="radio" name="Grade" value="40">40分
			  <input type="radio" name="Grade" value="25">25分
			  <input type="radio" name="Grade" value="10">10分
			  <input type="radio" name="Grade" value="0">0分</td>
		      </tr>
		      <tr bgcolor="#FCFCFC">
			<td>说 明：</td>
			<td colSpan=3>
			  <textarea name="content" cols="65" rows="5" title="请注意用语文明且合法，不要发布带有攻击性的言论，谢谢合作！"></textarea><font color="#FF0000">！</font> </td>
		      </tr>
		      <tr bgcolor="#FCFCFC">
			<td>　</td>
			<td colSpan=3>
			  <input type="submit" name="Submit" value="发表评论">
			  <input type="reset" name="Submit2" value="重 设">
			  (注：“<font color="#FF0000">！</font>”为必填内容。) </td>
		      </tr>
		    </form>
		  </table>
<BR style="OVERFLOW: hidden; LINE-HEIGHT: 3px">
</TD>
 </TR></TABLE>
<%
If request("action") = "savessay" Then
	If CInt(Newasp.Setting(40)) = 1 Then
		If Len(Request.Form("content")) > CLng(Newasp.TempSet(10)) Then Response.Write ("<script>alert('对不起!评论字符超过了限制。');javascript:history.back(1)</script>")
		Response.End
		SQL = "select * from NC_ArticleEssay where (ID is null)"
		Rs.Open SQL, conn, 1, 3
		Rs.addnew
		Rs("ArticleID") = ArticleID
		Rs("UserName") = Newasp.HTMLEncode(Trim(request.Form("UserName")))
		Rs("usermail") = Trim(request.Form("Email"))
		Rs("Grade") = Trim(request.Form("Grade"))
		Rs("content") = Newasp.HTMLEncode(request.Form("content"))
		Rs("postime") = Now()
		Rs("postip") = Newasp.GetUserip
		Rs.update
		Rs.Close
		response.redirect(""&Request.ServerVariables("HTTP_REFERER")&"")
	Else
		Response.Write"<script>alert('" & Newasp.TempSet(11) &"');javascript:history.back(1)</script>"
		Response.End
	End If
End If

Sub delessay()
	If session(Newasp.CacheName & "AdminName")<>"" Then
		conn.Execute("delete from NC_ArticleEssay where id in ("&selArticleID&")")
	Else
		Response.Write"<script>alert('对不起!你没有权限删除此文章评论。');javascript:history.back(1)</script>"
		Response.End
	End If
End Sub

Sub showpage()
	Dim filename, ii, n
	filename = "softessay.asp"
	If totalnumber Mod maxperpage = 0 Then
		n = totalnumber \ maxperpage
	Else
		n = totalnumber \ maxperpage + 1
	End If
	response.Write "<table cellspacing=1 width='100%' border=0><tr><td align=center> "& vbCrLf
	If CurrentPage<2 Then
		response.Write " 共有评论 <font COLOR=#FF0000>"&totalnumber&"</font> 个&nbsp;&nbsp;首 页&nbsp;&nbsp;上一页&nbsp;&nbsp;&nbsp;"
	Else
		response.Write "共有评论 <font COLOR=#FF0000>"&totalnumber&"</font> 个&nbsp;&nbsp;<a href="&filename&"?page=1&id="&request("id")&">首 页</a>&nbsp;&nbsp;"
		response.Write "<a href="&filename&"?page="&CurrentPage -1&"&id="&request("id")&">上一页</a>&nbsp;&nbsp;&nbsp;"
	End If

	If n - currentpage<1 Then
		response.Write "下一页&nbsp;&nbsp;尾 页 "& vbCrLf
	Else
		response.Write "<a href="&filename&"?page="&(CurrentPage + 1)&"&id="&request("id")&">下一页</a>"
		response.Write "&nbsp;&nbsp;<a href="&filename&"?page="&n&"&id="&request("id")&">尾 页</a>"& vbCrLf
	End If
	response.Write "&nbsp;页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
	response.Write "&nbsp;<b>"&maxperpage&"</b>个/页 "& vbCrLf

	response.Write "</td></tr></table>"& vbCrLf
End Sub

Response.Write TempFootStr
%>