📄 review.asp
字号:
<!--#include file="head.asp" -->
<%
'* 个人版价格：500元 商业版价格：700元
'* 演示：http://Demo.wenday.com
'* 版本：Engine_WenDay网站信息系统 Ver 2.0 演示版
'* 版权所有: 一奔网络工作室(Wenday.Com)
'* 联系QQ: 42367091
'* Email :wenday@21cn.com
'* 程序开发: Wenday
%>
<%
if request ("Action")="save" then
call Reviewsave()
call post_chk()
response.end
end if
%>
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="100%"> <TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR bgColor=#ffffff>
<TD colSpan=3 height=2></TD>
</TR>
<TR>
<TD width="19" height=22 align=right><img src="Img/02_1.gif" width="12" height="9"></TD>
<TD width="748"><FONT color=#333333> 您的位置： </FONT>网站的首页 >></TD>
<TD width="11"> </TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=778 border=0>
<TBODY>
<TR>
<TD vAlign=top colSpan=2>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR bgColor=#cccccc>
<TD colSpan=2 height=1></TD>
</TR>
<TR>
<TD colSpan=2 height=2></TD>
</TR>
<TR>
<TD width=62 bgColor=#eeeeee height=22></TD>
<TD bgColor=#eeeeee> <% Call Marquee()%></TD>
</TR>
<TR>
<TD bgColor=#cccccc colSpan=2
height=3></TD>
</TR>
</TBODY>
</TABLE></TD></TR>
<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 height=34 background="Img/homedhbg.gif"><IMG
src="Img/hydl.gif"></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=40><TABLE width=95% height="100" border=0 align=center cellPadding=0 cellSpacing=1 bgColor=#e8e8e8>
<TBODY>
<TR>
<TD height="53" bgColor=#f9f9f9>
<% Call UserLogin() %>
</TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD background=Img/homedhbg.gif> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=34><div align="center"><strong>热 门 信 息</strong></div></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=top><TABLE cellSpacing=0 cellPadding=5 width=99% align=center bgColor=#e8e8e8 border=0>
<TBODY>
<TR>
<TD width="100%" bgColor=#f9f9f9>
<% Call Ew_ShowInfo(1,8) %>
</TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD background=Img/homedhbg.gif> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=34><div align="center"><strong>网 站 调 查</strong></div></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=top><TABLE style="WORD-BREAK: break-all" height="100%" cellPadding=4 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top height=80> <TABLE width=99% height="100%" border=0 align=center cellPadding=0 cellSpacing=1 bgColor=#e8e8e8>
<TBODY>
<TR>
<TD width="100%" height="52" bgColor=#f9f9f9>
<% Call Ew_FlashVote() %>
</TD>
</TR>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD height="32" background=Img/homedhbg.gif> </TD>
</TR>
<TR>
<TD></TD>
</TR>
<TR>
<TD height="7"></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=Img/homedhbg.gif height=34><img src="Img/tp.gif" width="55" height="34"></TD>
<TD width="412" background=Img/homedhbg.gif>对"<font color="#FF0000"><%=Title%></font>"的所有评论</TD>
<TD width="115" background=Img/homedhbg.gif><a href="<%=request.servervariables("HTTP_REFERER")%>"><<
返回</a></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=24>
<br>
<%
sql="select top 3 * 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">
<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>
<TBODY>
<TR>
<TD align=middle width=55 background=Img/homedhbg.gif height=34><img src="Img/tp.gif" width="55" height="34"></TD>
<TD width="535" background=Img/homedhbg.gif>欢迎大家发表自己的高见！（<font color="#FF0000">不支持HTML</font>）</TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<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="Bottom.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 + -