📄 showessay.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="inc/CHAR.asp"-->
<%
dim sql
dim rs
dim CateName,CateID,SubCateName,SubCateID
if request.QueryString("SoftID")="" then
response.write "您没有选择相关节目，请返回"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select "&CategoryName&"_Cate.CateName,"&CategoryName&"_SubCate.SubCateName,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID from "&CategoryName&"_SoftInfo,"&CategoryName&"_Cate,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.CateID="&CategoryName&"_Cate.CateID and "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID and "&CategoryName&"_SoftInfo.SoftID="&request.QueryString("SoftID")
rs.open sql,conn,1,1
if not rs.eof then
SoftName=trim(rs("SoftName"))
CateID=trim(rs("CateID"))
SubCateID=trim(rs("SubCateID"))
CateName=trim(rs("CateName"))
SubCateName=trim(rs("SubCateName"))
end if
rs.close
%>
<HTML>
<HEAD>
<TITLE><%= Title_Name %> =>> <%= CategoryName_CHS %> =>> <%=SoftName%></TITLE>
<META http-equiv=Content-Type content='text/html; charset=gb2312'>
<link rel="stylesheet" type="text/css" href="style.css">
<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.form1.ID.length;i++) {
var e=document.form1.ID[i];
e.checked=!e.checked;
}
}
//-->
</script>
<BODY text=#003300 vLink=#002200 bgColor=#cccccc leftMargin=0 topMargin=0>
<!--#include file="head.asp"-->
<!--#include file="NavBar.asp"-->
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="22" bgcolor="#FFFFFF"> <img src="images/dotdb.gif" width="10" height="10" align="absmiddle">
当前位置：首页</a> >> <a class=white_bg
href="./"><%= CategoryName_CHS %></a> >> <a href='SoftList.asp?CateID=<%=CateID%>'><%=CateName%></a> >> <a href='SoftList.asp?CateID=<%=CateID%>&SubCateID=<%=SubCateID%>'><%=SubCateName%></a> >> <%=Softname%> </td>
</tr>
<tr>
<td height="1" background="Images/bgLine.gif"></td>
</tr>
<tr>
<td height="2"></td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width=770 align=center border=0>
<tbody>
<tr>
<td valign=top width=170 bgcolor=#efefef height="200"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" bgcolor="#0099FF"> <img src="images/d_1.gif" width="13" height="13" align="absmiddle">
<strong><font color="#FFFFFF">本日下载爬行</font></strong></td>
</tr>
<tr>
<td>
<%
sql="select top 10 SoftID,SoftName,SoftVer,SoftTime,AllHits from "&CategoryName&"_SoftInfo order by DayHits desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>没有排行</p>"
else
do while not rs.eof
response.write "<li><a href='SoftView.asp?SoftID="& rs("SoftID")&"' class=""ArticleList"">"& trim(rs("SoftName")) & trim(rs("SoftVer")) & " </a></li><br>"
rs.movenext
loop
end if
rs.close
%>
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" bgcolor="#0099FF"> <img src="images/d_1.gif" width="13" height="13" align="absmiddle">
<strong><font color="#FFFFFF">本周下载爬行</font></strong></td>
</tr>
<tr>
<td>
<%
sql="select top 10 SoftID,SoftName,SoftVer,SoftTime,AllHits from "&CategoryName&"_SoftInfo order by WeekHits desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>没有排行</p>"
else
do while not rs.eof
response.write "<li><a href='SoftView.asp?SoftID="& rs("SoftID")&"' class=""ArticleList"">"& trim(rs("SoftName")) & trim(rs("SoftVer")) & " </a></li><br>"
rs.movenext
loop
end if
rs.close
%>
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td></td>
</tr>
</table></td>
</tr>
</table>
</td>
<td width=1 bgcolor=#949494></td>
<td width="5" valign="top" bgcolor="#FFFFFF"> </td>
<td valign="top" bgcolor="#FFFFFF">
<%
select case request("action")
case "savereinfo" '保存评论信息
call savereinfo()
case "del"
call delEssay()
case else
call ShowSoftInfo() '查看ftp信息
end select
sub SaveReInfo()
dim userip_temp
userip_temp=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if userip_temp="" then
userip_temp=Request.ServerVariables("REMOTE_ADDR")
end if
sql="select * from "&CategoryName&"_SoftEssay where (ID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("SoftID")=trim(request("SoftID"))
rs("UserName")=trim(request.form("UserName"))
rs("Email")=trim(request.form("Email"))
rs("Grade")=trim(request.form("Grade"))
rs("content")=UBBCode(request.form("content"))
rs("dateTime")=Now()
rs("UserIP")=userip_temp
rs("type")="soft"
rs.update
rs.close
sql="select count(ID) as reNum,AVG(Grade) as avgGrade from "&CategoryName&"_SoftEssay where SoftID="&request("SoftID")&" and type='soft'"
rs.open sql,conn,1,1
reNum=rs("reNum")
avgGrade=rs("avgGrade")
rs.close
conn.execute("update "&CategoryName&"_SoftInfo set avgGrade="&avgGrade&",EssayNum="&reNum&" where SoftID="&request("SoftID")&" ")
call ShowSoftInfo()
end sub
Sub delEssay()
if not isnull(UserName) and UserName<>"" then
if chkEditUser(UserName,trim(request("SoftID"))) then
conn.execute("delete from "&CategoryName&"_SoftEssay where ID in ("&Request("ID")&")")
reNum=0
avgGrade=0
sql="select count(ID) as reNum,AVG(Grade) as avgGrade from "&CategoryName&"_SoftEssay where SoftID="&request("SoftID")&" and type='soft'"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
reNum=rs("reNum")
avgGrade=rs("avgGrade")
else
reNum=0
avgGrade=0
end if
rs.close
conn.execute("update "&CategoryName&"_SoftInfo set avgGrade="&avgGrade&",EssayNum="&reNum&" where SoftID="&request("SoftID")&" ")
end if
end if
call ShowSoftInfo()
end sub
Sub ShowSoftinfo()
dim isMaster
if not isnull(UserName) and UserName<>"" then
if chkEditUser(UserName,trim(request("SoftID"))) then
isMaster=True
else
isMater=false
end if
end if
sql="select * from "&CategoryName&"_SoftInfo where SoftID="&request.QueryString("SoftID")
rs.open sql,conn,1,1
PubUserName=rs("UserName")
avgGrade=rs("avgGrade")
EssayNum=rs("EssayNum")
%>
<table width="100%" border="0" cellspacing="1" cellpadding="3" bgcolor="#CCCCCC" align="center">
<tr bgcolor="#FFFFFF">
<td width="65" align="center" height="20">评论节目</td>
<td height="20" width="88%" > <b><a href="SoftView.Asp?SoftID=<%=request.QueryString("SoftID")%>"><%=trim(rs("SoftName"))%><%=trim(rs("SoftVer"))%></a></b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="center">评价情况</td>
<td>共有 <font color="#FF0000"><%=rs("EssayNum")%></font> 人参与评价，评均得分：<font color="#FF0000"><%=rs("avgGrade")%></font> 分</td>
</tr>
<% rs.close
if isMaster then
Response.Write("<form name=""form1"" method=""post"" action="""">")
Response.Write("<input type=""Hidden"" name=""SoftID"" value="""&Trim(Request.QueryString("SoftID"))&""">")
Response.Write("<input type=""Hidden"" name=""action"" value=""del"">")
end if
sql="select * from "&CategoryName&"_SoftEssay where SoftID="&request("SoftID")&" order by ID desc "
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
%>
<tr bgcolor="#F7F7F7">
<td colspan="2">
<% if isMaster then
Response.Write("<input type=""checkbox"" name=""ID"" value="""&Rs("ID")&""">")
else
Response.Write("<img src=""images/dot.gif"" align=""absmiddle"">")
end if
%>
用户：<b><%=rs("UserName")%></b> 打分：<font color="#FF0000"><%=rs("Grade")%></font> 分 时间：<%=DateTimeFormat(rs("DateTime"),1)%> 来自：<b><%=rs("UserIP")%></b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"><%=rs("Content")%></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
if isMaster then
%>
<tr bgcolor="#FFFFFF">
<td colspan="2"><strong><font color="#FF0000">评论管理操作：</font></strong>全选/反选
<input type=checkbox name=chkall value=on onClick="javascript:SelectAll()">
<input type="submit" name="Submit" value=" 删 除 "> </td>
</tr>
<%
Response.Write("</form>")
end if
if UserName<>pubUserName then
%>
<tr bgcolor="#FFFFFF">
<td align="center">参与评论</td>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="1">
<form name="myform" method="post" action="" target="_top" onSubmit="return Juge(this)" >
<tr>
<td>用户：</td>
<td> <input type="text" name="UserName" maxlength="15" size="28" style="height: 16px;BORDER-BOTTOM: #888888 1px solid; BORDER-LEFT: #888888 1px solid; BORDER-RIGHT: #888888 1px solid; BORDER-TOP: #888888 1px solid; font-size: 9pt">
</td>
<td>Email：</td>
<td> <input type="text" name="Email" maxlength="50" size="28" style="height: 16px;BORDER-BOTTOM: #888888 1px solid; BORDER-LEFT: #888888 1px solid; BORDER-RIGHT: #888888 1px solid; BORDER-TOP: #888888 1px solid; font-size: 9pt">
</td>
</tr>
<tr>
<td>分值：</td>
<td colspan="3"> <input type="Hidden" name="SoftID" value='<%=request("SoftID")%>'>
<input type="Hidden" name="action" value='savereinfo'>
<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>
<td>说明：</td>
<td colspan="3"> <textarea name="content" cols="48" rows="5" style="BORDER-BOTTOM: #888888 1px solid; BORDER-LEFT: #888888 1px solid; BORDER-RIGHT: #888888 1px solid; BORDER-TOP: #888888 1px solid; font-size: 9pt"></textarea>
<font color="#FF0000">（支持UBB）！<br>
＊ 请注意用语文明且合法，不要发布带有攻击性的言论，谢谢合作！ </font></td>
</tr>
<tr>
<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></td>
</tr>
<%end if %>
<tr bgcolor="#FFFFFF">
<td align="center"> </td>
<td> </td>
</tr>
</table>
<%end sub %> </td>
</tr>
</tbody>
</table>
<!--#include file="foot.asp"-->
</body>
</html>
<%
set rs=nothing
CloseDatabase
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -