pinglunaddok.asp

来自「较完善的一个程序」· ASP 代码 · 共 40 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<style type="text/css">
</style>
<p>&nbsp;</p>
<p>&nbsp;</p>
<!--#include file="conn.inc"-->
<% If trim(request.Form("content"))="" Then %>
<script language=javascript>
history.back()
alert("不能空，请重新填写！")
</script>
<% 
Else
content=trim(request("content"))
content=Replace(content,"<","&lt;")
content=Replace(content,">","&gt;")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_pinglun",conn,1,3
rs.addnew
rs("pingluntitle")=content
rs("bookid")=request("id")
rs("pinglundate")=date()
rs("name")=session("artech")
rs.update
rs.close
set rs=nothing
End If
%>
<table width="350"  border="0" align="center" class="default">
  <tr>
    <td colspan="2">&nbsp;&nbsp;&nbsp;&nbsp;您的评论已经提交成功，我们会仔细阅读！<br>
    &nbsp;&nbsp;&nbsp;&nbsp;谢谢！</td>
  </tr>
  <tr>
    <td width="270"><div align="right"></div></td>
    <td width="70"><div align="right"><img src="../image/fl.gif" width="70" height="110"></div></td>
  </tr>
</table>