📄 review.asp
字号:
<!--#include file="ku_top.asp" -->
<%sub navigation()%>
>> 所有评论
<%end sub%>
<%
if request ("Action")="save" then
call post_chk()
call Reviewsave()
response.end
end if
InfoID=CheckStr(Request.QueryString("InfoID"))
If isInt(InfoID)=False Then
Response.Redirect "default.htm"
Response.End()
End If
%>
<TABLE width=800 border=0 align="center" cellPadding=0 cellSpacing=0 bgcolor=#FFFFFF>
<TBODY>
<TR>
<TD width="100%"> <TABLE cellSpacing=0 cellPadding=0 width=800 align=center border=0>
<TBODY>
<TR bgColor=#ffffff>
<TD colSpan=3 height=2></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=800 border=0>
<TBODY>
<TR>
<TD style="BORDER-RIGHT: #d8d8d8 1px solid;BORDER-left: #d8d8d8 1px solid" vAlign=top width=185
bgColor=#f6f6f6><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD background=""> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<div align="center">
<table border="0" width="208" id="table2" bgcolor="#ebebeb" cellpadding="0" cellspacing="0">
<tr>
<td height="30" background="xbqq_img/gonggao.gif">
<p align="center"><b>热 门 文 章</b></td>
</tr>
<tr>
<td><% call xbqq_articleInfo(1,10,26,0,0) %></td>
</tr>
<tr>
<td height="0"><hr></td>
</tr>
<tr>
<td height="30" background="xbqq_img/gonggao.gif">
<p align="center"><b>信 息 搜 索</b></td>
</tr>
<tr>
<td height="23"><% xbqq_Search %></td>
</tr>
<tr>
<td height="0"><br></td>
</tr>
</table>
</div>
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD vAlign=top align=left width=593 style="BORDER-RIGHT: #d8d8d8 1px solid">
<%
'InfoID = request("InfoID")
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from Info where Id="&InfoID&""
rs.open sql,conn,1,1
do while not rs.eof
Discussion=rs("Discussion")
Title=rs("Title")
rs.movenext
Loop
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD align=middle width=65 background="xbqq_img/kind1.gif" height=30>
<img border="0" src="xbqq_img/ico1.gif" width="11" height="9"></TD>
<TD width="412" background="xbqq_img/kind1.gif">对"<font color="#FF0000"><%=Title%></font>"的所有评论</TD>
<TD width="115" background="xbqq_img/kind1.gif"><a href="<%=request.servervariables("HTTP_REFERER")%>"><<
返回</a></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 bgcolor="#ffffff">
<TBODY>
<TR>
<TD height=24>
<br>
<%
sql="select top 15 * from Review where InfoID="&InfoID&" ORDER BY ReTime DESC"
Set rs=Conn.execute(sql)
if rs.bof and rs.eof then
response.Write("<p align='center'>暂无评论！</P><br>")
end if
do while not rs.eof
%>
<table width="99%" border="0" align="center" cellpadding="8" cellspacing="1" bgcolor="#CCCCCC" style="word-break:break-all">
<tr>
<td colspan="2" bgcolor="#FFFFFF">网友：<%=rs("Reply")%> Email:<a href="mailto:<%=rs("UserEmail")%>"><%=rs("UserEmail")%></a>
<hr size="1">
评论：<%=rs("Content")%></td>
</tr>
</table>
<br>
<%
rs.movenext
loop
if Discussion=True then
%>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0 height="28">
<TBODY>
<TR>
<TD align=middle width=55 background="xbqq_img/kind1.gif" height=28>
<img border="0" src="xbqq_img/ico1.gif" width="11" height="9"></TD>
<TD width="535" background="xbqq_img/kind1.gif">欢迎大家发表自己的高见！（<font color="#FF0000">不支持HTML</font>）</TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#ffffff">
<tr>
<td height="44"><table width="100%" border="0" cellspacing="0" cellpadding="5">
<form name="form1" method="post" action="Review.asp?Action=save">
<tr>
<td height="91" Valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="21" colspan="3"><div align="center">欢迎大家发表自己的高见！（<font color="#FF0000">不支持HTML</font>）
<input name="InfoID" type="Hidden" value="<%=InfoID%>">
<input name="Title" type="Hidden" value="<%=Title%>">
</div></td>
</tr>
<tr>
<td width="14%" height="23"> <div align="right">网名：
</div></td>
<td width="27%" height="23"> <input name="Reply" type="text" id="Reply" value="<%=Session("Pw_Sys_User")%>" size="15" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(0,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid"></td>
<td width="59%">邮件：
<input name="UserEmail" type="text" id="UserEmail" value="<%=Session("UserEmail")%>" size="23" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(0,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid"></td>
</tr>
<tr>
<td height="23"> <div align="right">评论：</div></td>
<td height="23" colspan="2"> <textarea name="Content" cols="60" rows="8" id="Content"></textarea></td>
</tr>
<tr>
<td height="23"> <div align="right">发表：</div></td>
<td height="23" colspan="2"> <input type="submit" name="Submit" value=" 提交 ">
<input name="Reset" type="reset" id="Reset" value=" 重来 ">
</td>
</tr>
</table></td>
</tr>
</form>
</table>
<% end if %> </td>
</tr>
</table></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="xbqq_Foot.asp" -->
</BODY></HTML>
<%
sub Reviewsave()
if Request("Reply")="" or Request("UserEmail")="" or request("InfoID") = "" or request.form("Content")="" then
response.write"<script>alert(""信息填写不完整！"");location.href="""&request.servervariables("HTTP_REFERER")&""";</script>"
response.end
end if
Reply = Server.htmlencode(request.form("Reply"))
UserEmail = Server.htmlencode(request.form("UserEmail"))
InfoID = Server.htmlencode(request.form("InfoID"))
Content = Trim(Server.htmlencode(request.form("Content")))
Title = Trim(Server.htmlencode(request.form("Title")))
set rs=server.createobject("adodb.recordset")
sql="select * from Review"
rs.open sql,conn,1,3
rs.addnew
rs("Reply")=Reply
rs("UserEmail")=UserEmail
rs("InfoID")=InfoID
rs("Content")=Content
rs("Title")=Title
rs("ReTime")=now()
rs.update
rs.close
set rs=nothing
response.write"<script>alert('发表成功!\n ');location.replace('"&request.servervariables("HTTP_REFERER")&"')</script>"
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -