📄 addly.asp

📁 wanzhengban 完整版 wanzhengban 完整版

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="htmlencode2.asp"-->
<link rel="stylesheet" type="text/css" href="inc/css.css">
<title>商品评论</title>
<body topmargin="5" leftmargin="0" rightmargin="0" bottommargin="0">
<%
Set rs= Server.CreateObject("ADODB.Recordset")
If request("action")="add" Then
id=request("id")
Sql="select * from hw where hw_id="&id&""
rs.open sql,conn,1,1 
if rs.bof and rs.bof then
response.write "该产品不存在"
response.end
End If
rs.close
	mail=replace(trim(request("Mail")),"'","")
	Comment=replace(trim(Request("Comment")),"'","")
if mail="" or Comment="" then
    response.write "必须项为空时系统不接受" 
    response.end
else
    Comment = htmlencode2(Comment)
Sql="select * from comment"
rs.open sql,conn,1,3 
rs.addnew
rs("mail")=mail
rs("comment")=comment
rs("dateid")=id
rs("date")=date()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
    response.write "感谢您的留言，管理员会尽管处理。" 
    response.end
end if
else
id=request("id")
%>
 <div align="center">
 <table cellspacing=1 cellpadding=0 class=tableBorder1><form name="form" method="post" action="addly.asp?action=add&id=<%=id%>">
    <tr> 
      <th height="25" colspan="2" align=left>&nbsp;发表评论</th>
    </tr>
    <tr> 
      <td height="25" align=right>EMail：</td>
	  <td height="25"><input name="mail" type="text" size="30" maxlength="250"></td>
    </tr>
    <tr> 
      <td height="25" align=right>内容：</td>
	  <td height="25"><textarea name="comment" cols="40" rows="5"></textarea></td>
    </tr>
    <tr> 
      <td colspan="2" height="25" align=center CLass=TableTitle2><input type="submit" name="Submit" value="发表">&nbsp;&nbsp;<input type="reset" name="Submit2" value="清空"></td>
    </tr></form>
  </table>
</div>
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -