📄 shooter.asp
字号:
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#FFFFFF" align="center">
<table>
<tbody>
<tr>
<td align="center"><a href="http://sun.sj.net.cn:8080/souxin/software/RealONE%20Player%20V2.0%20Build%206.0.11.853.exe"><img src="../images/realone.gif" width="156" height="28" border="0"></a></td>
</tr>
<tr>
<td align="center"><a
href="http://sun.sj.net.cn:8080/souxin/software/RealONE%20Player%20V2.0%20Build%206.0.11.853.exe"
target=_blank>如收听不到节目请下载播放器</a></td>
</tr>
</tbody>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="1" height="172" background="../images/line.gif"></td>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="98%" border="0" cellspacing="00" cellpadding="0" align="center">
<tr>
<td valign="top">
<%
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" 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>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -