西安网站建设ASP文章心情评论插件

8522016-07-05

数据库:xinqing1-xinqing6 数字字段 默认0,文章ID数字字段

JS文件评论.js


 function CreateAjax()
 {
    var XMLHttp;
    try
    {
        XMLHttp = new ActiveXObject("Microsoft.XMLHTTP");   //IE的创建方式
    }
    catch(e)
    {
        try
        {
            XMLHttp = new XMLHttpRequest();     //FF等浏览器的创建方式
        }
        catch(e)
        {
            XMLHttp = false;        //创建失败,返回false
        }
    }
    return XMLHttp;     //返回XMLHttp实例
 }


function pinglun(id,xinqing)
{
 _xmlhttp = CreateAjax();


 
 var content = document.getElementById("pl_box");

 var url = 'ajax.asp?id='+id+'&xinqing='+xinqing+'&n='+Math.random()+'';  //这里添加了一个参数n,表示为一个随机数,以避免浏览器缓存
 

 //alert(url)
 if(_xmlhttp)    //判断XmlHttp是否创建成功
    {

        _xmlhttp.open('GET',url,true);
        _xmlhttp.onreadystatechange=function()
        {
            if(_xmlhttp.readyState == 4)        //客户端完成请求
            {
                if(_xmlhttp.status == 200)      //服务端完成处理并返回数据
                {
                    var ResponseText = unescape(_xmlhttp.responseText);   //获取service的显示字符
     var r=ResponseText.split("|#|");        //
                    if(r[0] == "Dianmo" )   //service返回了错误信息
                    {
                        alert("一分钟内只能发表一次");

                    }
     //没有找到文章
                    else if(r[0] == "NoData")
     {
      alert("参数错误!");
     }
     else
                    {
      //服务器返回了成功,重置数据
      content.innerHTML=r[1];


                    }
                }
                else    //服务器出现异常
                {
                    alert("服务器返回异常!");
                    top.location.href='index.asp';
                }
            }
            else    //请求未完成时的提示信息
            {
               // showmsg.innerHTML='';这里是加载信息

            }
        }
        _xmlhttp.send(null);  //向服务器发送请求,因为是get请求,会直接附在URL后面,所以这里括号中的数据为null,IE中也可以不写,但FF就必须加上null,否则会发送失败,西安网站建设团队点墨网络竭诚为您服务。
    }
    else    //创建未成功
    {
        alert("您的浏览器不支持或未启用 XMLHttp!");
    }
}

执行操作页面ajax.asp,输入的内容最终结果类似:stra |#| strb,其中stra是提示信息,可以为空,参看JS部分。

<!--#include file="conn.asp" --><%

id=trim(request("id"))
xinqing=trim(request("xinqing"))


  if Request.Cookies("xinqing")(id)="" then'主要用来简单防重复提交
   Response.Cookies("xinqing")(id)=now()
   
   
    set rs=server.CreateObject("adodb.recordset")
    rs.open "select * from xinqing where infoid="&id&" ",conn,1,3
    if not rs.eof then
    
     if xinqing=1 then
     rs("xinqing1")=rs("xinqing1")+1
     end if
     if xinqing=2 then
     rs("xinqing2")=rs("xinqing2")+1
     end if
     if xinqing=3 then
     rs("xinqing3")=rs("xinqing3")+1
     end if
     if xinqing=4 then
     rs("xinqing4")=rs("xinqing4")+1
     end if
     if xinqing=5 then
     rs("xinqing5")=rs("xinqing5")+1
     end if
     if xinqing=6 then
     rs("xinqing6")=rs("xinqing6")+1
     end if
     
     rs.update
    else
     Set rsx = Server.CreateObject("ADODB.RecordSet")
     rsx.Open "xinqing", Conn, 1,2
     rsx.addnew
      if xinqing=1 then
      rsx("xinqing1")=1
      end if
      if xinqing=2 then
      rsx("xinqing2")=1
      end if
      if xinqing=3 then
      rsx("xinqing3")=1
      end if
      if xinqing=4 then
      rsx("xinqing4")=1
      end if
      if xinqing=5 then
      rsx("xinqing5")=1
      end if
      if xinqing=6 then
      rsx("xinqing6")=1
      end if
      rsx("infoid")=id
     rsx.update
     rsx.close
     set rsx=nothing
    end if
    rs.close
   
   
   
  else
  
   if DateDiff("s",request.Cookies("xinqing")(id),now())>59 then '1分钟重复提交
    Response.Cookies("xinqing")(id)=now()
    
    
    set rs=server.CreateObject("adodb.recordset")
    rs.open "select * from xinqing where infoid="&id&" ",conn,1,3
    if not rs.eof then
    
     if xinqing=1 then
     rs("xinqing1")=rs("xinqing1")+1
     end if
     if xinqing=2 then
     rs("xinqing2")=rs("xinqing2")+1
     end if
     if xinqing=3 then
     rs("xinqing3")=rs("xinqing3")+1
     end if
     if xinqing=4 then
     rs("xinqing4")=rs("xinqing4")+1
     end if
     if xinqing=5 then
     rs("xinqing5")=rs("xinqing5")+1
     end if
     if xinqing=6 then
     rs("xinqing6")=rs("xinqing6")+1
     end if
     
     rs.update
    else
     Set rsx = Server.CreateObject("ADODB.RecordSet")
     rsx.Open "xinqing", Conn, 1,2
     rsx.addnew
      if xinqing=1 then
      rsx("xinqing1")=1
      end if
      if xinqing=2 then
      rsx("xinqing2")=1
      end if
      if xinqing=3 then
      rsx("xinqing3")=1
      end if
      if xinqing=4 then
      rsx("xinqing4")=1
      end if
      if xinqing=5 then
      rsx("xinqing5")=1
      end if
      if xinqing=6 then
      rsx("xinqing6")=1
      end if
      rsx("infoid")=id
     rsx.update
     rsx.close
     set rsx=nothing
    end if
    rs.close
    
   else
    Response.write "Dianmo"
    Response.End()
   end if
  
  end if


Response.write "|#|"


xinqing1=0
xinqing2=0
xinqing3=0
xinqing4=0
xinqing5=0
xinqing6=0

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from xinqing where infoid="&id&"",conn,1,1
if not rs.eof then
xinqing1=rs("xinqing1")
xinqing2=rs("xinqing2")
xinqing3=rs("xinqing3")
xinqing4=rs("xinqing4")
xinqing5=rs("xinqing5")
xinqing6=rs("xinqing6") 
end if
rs.close


allxinqing=xinqing1+xinqing2+xinqing3+xinqing4+xinqing5+xinqing6

if allxinqing>0 then
 xinqing1=xinqing1/allxinqing*100
 xinqing2=xinqing2/allxinqing*100
 xinqing3=xinqing3/allxinqing*100
 xinqing4=xinqing4/allxinqing*100
 xinqing5=xinqing5/allxinqing*100
 xinqing6=xinqing6/allxinqing*100
end if

ppp1=100-xinqing1
ppp2=100-xinqing2
ppp3=100-xinqing3
ppp4=100-xinqing4
ppp5=100-xinqing5
ppp6=100-xinqing6

Response.write "<ul>"
Response.write "<li><div><span style=""height:"&ppp1&"px;""></span></div><p>微笑</p><p><img src=""images/weixiao.png"" alt=""微笑"" onclick=""javascript:pinlun("&id&",1);""></p></li>"
Response.write "<li><div><span style=""height:"&ppp2&"px;""></span></div><p>流汗</p><p><img src=""images/liuhan.png"" alt=""流汗"" onclick=""javascript:pinlun("&id&",2);""></p></li>"
Response.write "<li><div><span style=""height:"&ppp3&"px;""></span></div><p>难过</p><p><img src=""images/nanguo.png"" alt=""难过"" onclick=""javascript:pinlun("&id&",3);""></p></li>"
Response.write "<li><div><span style=""height:"&ppp4&"px;""></span></div><p>羡慕</p><p><img src=""images/xianmu.png"" alt=""羡慕"" onclick=""javascript:pinlun("&id&",4);""></p></li>"
Response.write "<li><div><span style=""height:"&ppp5&"px;""></span></div><p>愤怒</p><p><img src=""images/fennu.png"" alt=""愤怒"" onclick=""javascript:pinlun("&id&",5);""></p></li>"
Response.write "<li><div><span style=""height:"&ppp6&"px;""></span></div><p>流泪</p><p><img src=""images/liulei.png"" alt=""流泪"" onclick=""javascript:pinlun("&id&",6);""></p></li>"
Response.write "</ul>"



Response.end


%>

前台页面代码保留一个id为pl_box的层,默认内容直接诶读取数据库数据,或者直接拷贝执行页面输出strb部分

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:15229292610

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

服务热线:15229292610

客服信箱:vip@dianmo.cc

846461336327

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1