| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 505 人关注过本帖
标题:ASP评论功能的问题(新手)
只看楼主 加入收藏
theend12
Rank: 2
来 自:ASP|PHP菜鸟
等 级:论坛游民
帖 子:83
专家分:42
注 册:2009-10-8
结帖率:72%
收藏
 问题点数:0 回复次数:2 
ASP评论功能的问题(新手)
<%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%>
--------------------------------------------------------------
rs.addnew
rs("id")=id
rs("pinglunname")=HTMLEncode2(trim(request("pinglunname")))
rs("pingluncontent")=HTMLEncode2(trim(request("pingluncontent")))
rs("pinglundate")=now()
--------------------------------------------------------------
为什么要用到HTMLEncode2呢?在接收的时候接收的不是段落,换行符吗?
难道接收的是Chr("10") ???才需要这样处理一下?
搜索更多相关主题的帖子: 评论 ASP 
2010-06-21 13:48
theend12
Rank: 2
来 自:ASP|PHP菜鸟
等 级:论坛游民
帖 子:83
专家分:42
注 册:2009-10-8
收藏
得分:0 
下面是完整代码:
<!--#include file="conn.asp"-->
<html>
<head>
<title>用户评论</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="3" topmargin="4" marginwidth="00">
<%dim id,action
id=request.QueryString("id")
action=request.QueryString("action")
if action="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_pinglun",conn,1,3
rs.addnew
rs("id")=id
rs("pinglunname")=HTMLEncode2(trim(request("pinglunname")))
rs("pingluncontent")=HTMLEncode2(trim(request("pingluncontent")))
rs("pinglundate")=now()
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 bgcolor=#F5F5F5><div align=center>"
response.write "您的评论已成功提交!!<br><br><a href=javascript:window.close()>关闭窗口</a></div></td></tr></table>"
response.End
end if
%>
<table width="96%" border="0" cellspacing="1" cellpadding="2">
  <tr>
    <td bgcolor="#0066CC"> </td>
  </tr>
  <tr><form name="pinglunform" method="post" action="pinglun.asp?action=save&id=<%=id%>">
    <td bgcolor="#F5F5F5">
        <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
          <tr bgcolor="#F5F5F5">
            <td width="23%">您的姓名:</td>
            <td width="77%"><input name="pinglunname" type="text" id="pinglunname" size="12"></td>
          </tr>
          <tr bgcolor="#F5F5F5">
            <td valign="top">评论正文:</td>
            <td><textarea name="pingluncontent" cols="26" rows="5" id="pingluncontent"></textarea></td>
          </tr>
          <tr bgcolor="#F5F5F5">
            <td colspan="2"><div align="center">
                <input type="submit" name="Submit" value="提 交" onClick="return check();">
                &nbsp;  
                <input type="reset" name="Submit2" value="清 除">
              </div></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>

我是一个初学者.学每门知识都会经历一段菜鸟阶段,希望大家多帮忙
2010-06-21 13:48
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
HTMLEncode2的功能是把回车换行都变为HTML代码
2010-06-21 18:34
快速回复:ASP评论功能的问题(新手)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.011747 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved