📄 comment.asp

📁 很好的网上书店源码适合企业个人使用很好的网络书城
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="<%=theme%>
css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="3" topmargin="4" marginwidth="00">
<%dim bookid,action
bookid=request.QueryString("id")
action=request.QueryString("action")
if action="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_comment",conn,1,3
rs.addnew
rs("bookid")=bookid
rs("pinglunname")=HTMLEncode2(trim(request("pinglunname")))
rs("pingluncontent")=HTMLEncode2(trim(request("pingluncontent")))
rs("pinglundate")=now()
rs("shenhe")=0
rs.update
rs.close
set rs=nothing
response.write "<br><br><table width=96% border=0 align=center cellpadding=0 cellspacing=0><tr><td height=86><div align=center>"
response.write "您的评论已成功提交<br>经我们审核通过后方可发布！<br><br></div></td></tr></table>"
response.End
end if
%>
<table width="96%" border="0" cellspacing="1" cellpadding="2">
  <tr><form name="pinglunform" method="post" action="comment.asp?action=save&id=<%=bookid%>">
    <td>
        <table width="100%" border="0" cellpadding="2" cellspacing="1">
          <tr> 
            <td width="23%">评论正文：</td>
            <td width="77%">
			<textarea name="pingluncontent" cols="60" rows="5" id="pingluncontent"></textarea></td>
          </tr>
          <tr> 
            <td valign="top">您的姓名：</td>
            <td>
			<input name="pinglunname" type="text" id="pinglunname" size="12">
                <input type="submit" name="Submit" value="提交评论" onClick="return check();"></div></td>
          </tr>
          <tr> 
            <td colspan="2">　</td>
          </tr>
        </table>
      </td></form>
  </tr>
</table>
</body>
</html>
<%function HTMLEncode2(fString)
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	HTMLEncode2 = fString
end function%>
<script LANGUAGE="javascript">
<!--
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
function check()
{
  if(checkspace(document.pinglunform.pinglunname.value)) {
	document.pinglunform.pinglunname.focus();
    alert("请填写您的姓名！");
	return false;
  }
  if(checkspace(document.pinglunform.pingluncontent.value)) {
	document.pinglunform.pingluncontent.focus();
    alert("请填写评论正文！");
	return false;
  }
	  }
	  //-->
</script>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -