showessay.asp
来自「超炫电台程序开发了两个版本了」· ASP 代码 · 共 618 行 · 第 1/2 页
ASP
618 行
<td width="96" align="center" valign="middle"><a href="http://www.yystudent.com/" target="_blank"><img src="../img/logo4.gif" width="88" height="31" border="0"></a></td>
</tr>
<tr>
<td height="50"><a href="http://www.chinavnet.com/chpage/c1/" target="_blank"><img src="../img/logo3.gif" width="88" height="31" border="0"></a></td>
<td><a href="http://www.163888.net/radio/" target="_blank"><img src="../img/logo5.jpg" width="88" height="31" border="0"></a></td>
</tr>
</table>
</TD>
</TR></TBODY></TABLE></TD>
<TD width=10><IMG height=63
src="../img/trans.gif"
width=10></TD>
<TD vAlign=top align=middle width=494>
<TABLE id=table7 cellSpacing=0 cellPadding=0 width=494 border=0>
<TBODY>
<TR>
<TD>
<TABLE id=table19 cellSpacing=0 cellPadding=0 width=494 border=0>
<TBODY>
<TR>
<TD width=22><IMG height=39
src="../img/menu_left.gif"
width=22 border=0></TD>
<TD><TABLE id=table20 height=39 cellSpacing=0 cellPadding=0
border=0>
<TBODY>
<TR>
<TD width=1><IMG height=39
src="../img/menu_line.gif"
width=1 border=0></TD>
<TD width=64><a href="../index.asp"><img src="../img/index.png" width="64" height="39" border="0"></a></TD>
<TD width=64><a href="../cy.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image33','','../img/menu2.gif',1)"><img src="../img/menu2.png" name="Image33" width="64" height="39" border="0"></a></TD>
<TD width=64><img src="../img/menu3.png" width="64" height="39"></TD>
<TD width=64><a href="../jc.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image35','','../img/menu4.png',1)"><img src="../img/menu4.gif" name="Image35" width="64" height="39" border="0"></a></TD>
<TD width=64><a href="../dg.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image36','','../img/menu6.png',1)"><img src="../img/menu6.gif" name="Image36" width="64" height="39" border="0"></a></TD>
<TD width=64><a href="../down.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image37','','../img/menu77.png',1)"><img src="../img/menu7.png" name="Image37" width="64" height="39" border="0"></a></TD>
<TD width=64><a href="../bbs/" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image38','','../img/menu5.png',1)"><img src="../img/menu5.gif" name="Image38" width="64" height="39" border="0"></a></TD>
<TD width=1><IMG height=39
src="../img/menu_line.gif"
width=1 border=0></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=22><IMG height=39
src="../img/menu_right.gif"
width=22 border=0></TD>
</TR>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE>
<TABLE id=table8 cellSpacing=0 cellPadding=10 width="100%"
background="../img/linebg.gif"
border=0>
<TBODY>
<TR>
<TD class=bg vAlign=middle align=middle
background="../img/jb.gif"
height=535> <table width="474" height="367" border="0" cellspacing="4">
<tr>
<td width="464" height="359" valign="top"><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="64" align="center" height="20">评论歌曲</td>
<td height="20" width="370" ><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 width="12%">用户：</td>
<td width="33%"><input type="text" name="UserName" maxlength="15" size="20" 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 width="14%">Email：</td>
<td width="41%"><input type="text" name="Email" maxlength="50" size="20" 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="40" 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"><br>
（支持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></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE id=table17 cellSpacing=0 cellPadding=0 width=732 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=228><IMG height=16
src="../img/left_down.gif"
width=228> </TD>
<TD width=10><IMG height=10
src="../img/trans.gif"
width=10></TD>
<TD vAlign=top align=middle width=494><IMG height=16
src="../img/second_bg.gif"
width=494> </TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
<TBODY>
<TR>
<TD height=6></TD>
</TR>
<TR>
<TD align=middle height=12><TABLE height=1 cellSpacing=0 cellPadding=0 width="96%" bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD height=1><IMG height=1
src="img/trans.gif"
width=1></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align=middle height=19><FONT
style="FONT-SIZE: 12px; COLOR: #3b3b3b"><FONT
color=#ffffff><a href="javascript:alert('即将开放！')" target="_top"><FONT
color=#ffffff>关于我们</FONT></a> | <a href="javascript:alert('即将开放！')" target="_top"><FONT
color=#ffffff>About</FONT></a> | <a href="javascript:alert('即将开放！')" target="_top"><FONT
color=#ffffff>服务条款</FONT></a> | <A
href="javascript:alert('即将开放！')" target=_top><FONT
color=#ffffff>广告服务</FONT></A> | <a href="javascript:alert('即将开放！')" target="_top"><FONT
color=#ffffff>人才招聘</FONT></a> | <A
href="javascript:alert('即将开放！')" target=_top><FONT
color=#ffffff>客服中心</FONT></A></FONT></font></TD>
</TR>
<TR>
<TD height=12></TD>
</TR>
<TR>
<TD align=middle> </TD>
</TR>
<TR>
<TD align=middle><FONT style="FONT-SIZE: 12px; COLOR: #ffffff">Copyright © 2005 PAZZ Inc. All Rights Reserved<BR>
平安杂志 <FONT
color=#ffffff>版权所有</FONT></FONT></TD>
</TR>
<TR>
<TD height=12></TD>
</TR>
</TBODY>
</TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?