📄 review.asp

📁 商机网站8.0,比教完整,可以自己二次开发!
💻 ASP
字号:
<html><head><title>178商机网--免费发布商业信息|因为专业所以最好</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<link href="css/main.css" rel="stylesheet">
<body leftmargin="0" topmargin="0" ><div align=center>
<!--#include file="conn.asp"-->
<!--#include file="head.asp"-->
<!--#include file="admin/char.asp"-->
<script language="JavaScript">
function b_isnull(str)
{
 var index=0;
 str_get='';
 while(index<str.length)
  {
    if(str.charAt(index)!=' ')
    str_get=str_get+str.charAt(index);
       else
         str_get=str_get+'';
         index=index+1;
   }
    if(str_get=='')
    return (true);
    else
    return (false);
}
function i_length(str)
{  //返回str长度---中文2位。
  var ret=0;
  for(var i=0;i<str.length;i++)
    ret+=(str.charCodeAt(i)>255?2:1);
  return(ret);
}
function email_isok(str)
{
reg = new RegExp("^([_a-z0-9]+([\._a-z0-9-]+)*)@([a-z0-9]{2,}(\.[a-z0-9-]{2,})*\.[a-z]{2,3})$") ;
if (!reg.test(str)) {
  alert('email地址不合法！');
  document.review.reviewemail.focus();
  return (false);
}
return(true);
}
function form_isok()
{
          if(b_isnull(document.review.reviewname.value))
            {
               alert('您的大名不能为空；');
                document.review.reviewname.focus();
                return (false);
             }
          
          if(i_length(document.review.reviewname.value)>20)
            {
               alert('您的大名不能超过20位；');
                document.review.reviewname.focus();
                return (false);
             }
          
          
          if(b_isnull(document.review.reviewcontent.value))
            {
               alert('评论内容不能为空；');
                document.review.reviewcontent.focus();
                return (false);
             }
          if(i_length(document.review.reviewcontent.value)>500)
            {
               alert('评论内容不能超过500字节；');
                document.review.reviewcontent.focus();
                return (false);
             }
       return (email_isok(document.review.reviewemail.value));  
}
</script>

<%
dim userip
userip=Request.ServerVariables("REMOTE_ADDR")

if Request("action") ="save" then
	call save()
else
        call  add()
end if%>

<%sub add()%>

<%
dim id,rs,sql
id=request("id")
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from site where id="& cstr(request("id"))
rs.open sql,conn,1,1
if rs.eof then
response.Write("<center><br><font color=blue>该商业信息不存在！  <a href=./><font color=red>返回首页</a><br><br>")
else
%>
<table width=760 cellspacing=0  cellpadding=0><tr><td width=580>
<table width=100% cellpadding=3 cellspacing=0 bgcolor=CCCCCC>
          <tr>
            <td height="25" align=center background="img/net_13.gif" bgcolor="dddddd"><a href=go.asp?url=<%=rs("siteurl")%>&id=<%=rs("id")%> target=_blank>欢迎您对 
              <font color=cc0000><%=rs("sitename")%></font> 留言！</a></td>
          </tr></table>
<br><table align=center><form name=review method=POST  action="review.asp?action=save&id=<%=rs("id")%>" onsubmit="return form_isok();">

<tr><td align="right">您的大名：</td><td><input name="reviewname" type="text" size="45" maxlength="20"></td></tr>
<tr><td align="right">电子邮件：</td><td><input name="reviewemail" type="text" size="45" maxlength="100"></td></tr>
<tr><td align="right">留言内容：</td><td><textarea name="reviewcontent" cols="40" rows="5"></textarea></td></tr>
<tr><td></td><td align="center"><input type="submit" name="Submit2" value="发表">  <input type="reset" name="Submit3" value="重来"> </td></tr></form>
</table>

</td><td width=15 background="img/showbg.gif"></td><td width=165></td></tr></table>





  <br>
  <table width=760 cellspacing=0 cellpadding=0><tr>
      <td bgcolor=dddddd height=1></td>
    </tr></table>
<!--#include file="end.asp"-->
</div></body></html>
<%rs.close
end if
end sub%>


<%sub save()
set rs1=server.createobject("adodb.recordset")
sql1="select * from review" 
rs1.open sql1,conn,1,3
rs1.addnew
rs1("siteid")=request("id")
rs1("name")=Hcode(request("reviewname"))
rs1("email")=Hcode(request("reviewemail"))
rs1("content")=Hcode(request("reviewcontent"))
rs1("addtime")=now()
rs1("ip")=userip
rs1.update
response.write("<meta http-equiv=""refresh"" content=2;URL=show.asp?id="&request("id")&">")
response.write("<br><font color=red>发表成功，感谢您的参与......</font><br><br>")
%>
<br>
  <table width=760 cellspacing=0 cellpadding=0><tr><td bgcolor=dddddd height=5></td></tr></table>
<!--#include file="end.asp"-->
<%end sub%>
⌨️ 快捷键说明

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