<% Function GetRP3(v) IF v="" or isnull(v) Then GetRP3="" Else GetRP3=v End IF End Function Function L_checkusername(str) L_checkusername=true for i = 1 to Len(str) c = Lcase(Mid(str, i, 1)) if InStr("abcdefghijklmnopqrstuvwxyz", c)<= 0 then L_checkusername = false exit function end if next End Function oaction=Request("action") op=Request("p"):op=Bint(op):op=Replace(op,"'","") oid=Request("id"):oid=Bint(oid):oid=Replace(oid,"'","") IF oaction="save" Then sgrade_speed=Bint(Request("grade_speed")) sgrade_auth=Bint(Request("grade_auth")) sgrade_interaction=Bint(Request("grade_interaction")) sgrade_exp=Bint(Request("grade_exp")) sgrade_prospect=Bint(Request("grade_prospect")) sgrade_content=HTMLEncode(Request("grade_content")) IF L_checkusername(sgrade_content) Then Response.Write "评分出错:我有话说..":Response.End() End IF ssoojs_code=request("yzm") IF Lcase(Session("SooJs_Un"))<>Lcase(ssoojs_code) Then Response.Write "验证码错误:点击返回":Response.End() End IF '=======开始计算分数================ sFall=formatnumber((sgrade_speed+sgrade_auth+sgrade_interaction+sgrade_exp+sgrade_prospect)/50,1,-1,-1,0) Set oRs2=Server.CreateObject(G_RS) oRs2.open "Select * From qingtiandy_pingfentable Where id="&oid&"",Conn,1,3 IF oRs2.Eof Then Response.Write "评分参数出错":Response.End() Else ograde_fennumb=oRs2("grade_fennumb") ograde_fenall=oRs2("grade_fenall") aograde_fennumb=ograde_fennumb+1 aograde_fenall=formatnumber((ograde_fenall*ograde_fennumb+sFall)/aograde_fennumb,1,-1,-1,0) oRs2("grade_fennumb")=oRs2("grade_fennumb")+1 oRs2("grade_fenall")=aograde_fenall oRs2("grade_speed")=formatnumber((oRs2("grade_speed")*ograde_fennumb*10+sgrade_speed)/aograde_fennumb/10,1,-1,-1,0) oRs2("grade_auth")=formatnumber((oRs2("grade_auth")*ograde_fennumb*10+sgrade_auth)/aograde_fennumb/10,1,-1,-1,0) oRs2("grade_interaction")=formatnumber((oRs2("grade_interaction")*ograde_fennumb*10+sgrade_interaction)/aograde_fennumb/10,1,-1,-1,0) oRs2("grade_exp")=formatnumber((oRs2("grade_exp")*ograde_fennumb*10+sgrade_exp)/aograde_fennumb/10,1,-1,-1,0) oRs2("grade_prospect")=formatnumber((oRs2("grade_prospect")*ograde_fennumb*10+sgrade_prospect)/aograde_fennumb/10,1,-1,-1,0) oRs2("p_date")=ForMatDate(now(),55) oRs2.Update() End IF oRs2.close '=======开始插入用户分数================ Set oRs2=Server.CreateObject(G_RS) oRs2.open "Select * From qingtiandy_pingfentable_g_b Where 1<>1",Conn,1,3 IF oRs2.Eof Then oRs2.AddNew() oRs2("g_Username")=Request.Cookies(G_u_Cookies)("soojs_u") oRs2("g_content")=left(sgrade_content,200) oRs2("g_ip")=GetIp() oRs2("g_date")=ForMatDate(now(),55) oRs2("g_fen")=sFall oRs2("g_t_id")=oid oRs2.Update() End IF oRs2.close End IF IF op="2" Then '正常数据库 Set oRs2=Server.CreateObject(G_RS) oRs2.open "Select * From qingtiandy_pingfentable Where id="&oid&"",Conn,1,1 IF Not oRs2.Eof Then kp_look=oRs2("p_look") IF kp_look="0" Then Response.Write "暂无数据" Response.End() End IF kp_name=oRs2("p_name") kp_pic=oRs2("p_pic") IF Instr(kp_pic,".")<>0 Then kp_pic=Add_Root_Dir(kp_pic) Else kp_pic="" End IF kp_url=oRs2("p_url") kp_url2=oRs2("p_url2") kp_content=GetRp(oRs2("p_content")) kp_typename=GetRp(oRs2("p_typename")) kp_typename2=replace(replace(kp_typename,"/"," - "),"","") IF Instr(kp_content,"

")>0 or Instr(kp_content,"

")>0 Then kp_content=oRs2("p_content") Else kp_content=HTMLEncode1(oRs2("p_content")) End IF IF kp_content="

" Then kp_content="" IF kp_content="  " Then kp_content="" 'kp_content=Trim(kp_content) kp_content_2=LoseeHtml(kp_content) kp_date=oRs2("p_date") kp_mid=oRs2("id") kp_grade_fenall=formatnumber(oRs2("grade_fenall"),1,-1,-1,0):kp_grade_fenall_left=Split(kp_grade_fenall,".")(0):kp_grade_fenall_right=Split(kp_grade_fenall,".")(1) kp_grade_speed=formatnumber(oRs2("grade_speed"),1,-1,-1,0):kp_grade_speed_left=Split(kp_grade_speed,".")(0):kp_grade_speed_right=Split(kp_grade_speed,".")(1) kp_grade_auth=formatnumber(oRs2("grade_auth"),1,-1,-1,0):kp_grade_auth_left=Split(kp_grade_auth,".")(0):kp_grade_auth_right=Split(kp_grade_auth,".")(1) kp_grade_interaction=formatnumber(oRs2("grade_interaction"),1,-1,-1,0):kp_grade_interaction_left=Split(kp_grade_interaction,".")(0):kp_grade_interaction_right=Split(kp_grade_interaction,".")(1) kp_grade_exp=formatnumber(oRs2("grade_exp"),1,-1,-1,0):kp_grade_exp_left=Split(kp_grade_exp,".")(0):kp_grade_exp_right=Split(kp_grade_exp,".")(1) kp_grade_prospect=formatnumber(oRs2("grade_prospect"),1,-1,-1,0):kp_grade_prospect_left=Split(kp_grade_prospect,".")(0):kp_grade_prospect_right=Split(kp_grade_prospect,".")(1) IF kp_content2<>"" Then kp_content2_1=kp_content2 kp_content2="" kp_content2_a=split(kp_content2_1,chr(13)) For m=0 To Ubound(kp_content2_a) m1=kp_content2_a(m) m1=trim(m1) m1=replace(m1,chr(10),"") IF m1<>"" Then m1_a=split(m1," ") IF Ubound(m1_a)=1 Then kp_content2=kp_content2&""&m1_a(0)&"" End IF End IF Next End IF kp_p_id=GetRp(oRs2("id")) kp_p_realname=GetRp(oRs2("p_realname")) kp_p_addr=GetRp(oRs2("p_addr")) kp_p_email=GetRp(oRs2("p_email")) kp_p_tel=GetRp(oRs2("p_tel")) kp_p_qq=GetRp(oRs2("p_qq")) kp_p_pic=GetRp(oRs2("p_pic")) kp_p_jianzhan=GetRp(oRs2("p_jianzhan")) kp_p_biaoqian=GetRp(oRs2("p_biaoqian")) Else Response.Write "暂无收录此网站":Response.End() End IF oRs2.close End IF IF kp_content="" Then kp_content="百度一下你就知道!" IF kp_content2="" Then kp_content2="搜索" kp_str_rnd="" Randomize IF G_IS_SQL_User_DB="0" Then sql="select top 15 m_url,m_name,id,ping_id From qingtiandh_List where m_look=1 order by rnd(-(id+" & rnd() & "))" Else sql="select top 15 m_url,m_name,id,ping_id From qingtiandh_List where m_look=1 order by newid()" End IF Set oRs=Conn.Execute(sql) Do While Not oRs.Eof temp_m_url=oRs("m_url") temp_m_url=url_(Array("dianpingurl",oRs("ping_id"),"1")) temp_m_name=oRs("m_name") kp_str_rnd=kp_str_rnd&""&temp_m_name&"" oRs.Movenext Loop kp_type_rnd="" Randomize IF G_IS_SQL_User_DB="0" Then sql="select top 15 typeid,typename,t_typeid From qingtiandh_type1 where typehide=1 order by rnd(-(id+" & rnd() & "))" Else sql="select top 15 typeid,typename,t_typeid From qingtiandh_type2 where typeid1="&typeid1&" order by newid()" End IF Set oRs=Conn.Execute(sql) Do While Not oRs.Eof t_typeid=oRs("typeid") m_type_url=url_(Array("l2",oRs("t_typeid"),"1")) t_typename=oRs("typename") kp_type_rnd=kp_type_rnd&""&t_typename&"" oRs.Movenext Loop oRs.close '获得文件关键词,描述内容 开始 'Url="http://www.zhuyeba.com/url/?url="+kp_url Url="http://www.zhuyeba.com/urlc/?url="+kp_url Content = GetPage(Url) re.Pattern = "(.+)" re.Pattern = "" webtitle = haskuohao("(.*)",content,1) webdes = haskuohao("]*description[^<>]*[\/]?>",content,0) webdes = haskuohao("content=[""|']?([^""' ]*)([""|']?).*[\/]?>",webdes,1) webkey = haskuohao("]*keywords[^<>]*[\/]?>",content,0) webkey = haskuohao("content=[""|']?([^""' ]*)([""|']?).*[\/]?>",webkey,1) webkey1=split(webkey,",") function haskuohao(title,content,y) Set re = new RegExp re.IgnoreCase = True re.Global = True re.Pattern = title Set RemoteFile = re.Execute(Content) For Each RemoteFileurl in RemoteFile if y=1 then RemoteFileurl = re.replace(RemoteFileurl,"$1") end if haskuohao = RemoteFileurl Next end function Function GetPage(url) '获得文件关键词,描述内容 dim Retrieval Set Retrieval = CreateObject("MSXML2.ServerXMLHTTP") With Retrieval .Open "Get", url, False ', "", "" .Send GetPage = BytesToBstr(.ResponseBody) End With Set Retrieval = Nothing End Function Function BytesToBstr(body) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = "utf-8" BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function '获得文件关键词,描述内容 结束 '获得url短 开始 url=""&kp_url&"" url0=replace(replace(url,"http://",""),"https://","") url1=split(url0,"/") url2=replace(replace(url0,"www.",""),"https://","") url3=split(url2,"/") url4=split(url2,".") '获得url短链 结束 调用代码 %><%response.Write webtitle%><%=kp_name%>_<%response.Write url4(0)%>网站_导航推荐<%=kp_name%>首页_主页吧网址导航css/layui.css" type="text/css">css/zhuyeba_com.css" type="text/css">css/zhuyeba_com-app.css" type="text/css">css/broadcast-me.css">css/nrstyle.css">
好站大全 - 实用网址目录 -<%=G_WEBNAME%>设为主页网站快审TAGS工具大全收藏本站

images/flag/0.png" alt="词条" title="快审开启按钮直链"> 

<%=kp_name%><%response.Write url4(0)%>网站首页

images/baocuo.png" alt="报错反馈" title="报错反馈">

<%=kp_name%>
  • 网站地址:<%response.Write url1(0)%>
  • 更新日期:<%=FormatDate(now(),0)%>
  • 所属类别:<%=kp_typename%>
  • 人气热度:<% randomize temp = int(rnd * (99999) + 1) response.write temp %>℃
  • 绿色评级:images/star/<%=Clng(kp_grade_interaction)%>.gif" alt="<%=Clng(kp_grade_interaction)%>颗星好评" title="<%=Clng(kp_grade_interaction)%>星好评"/>
  • 赞助打赏:images/like.png" alt="赞助" title="赞助">*<% randomize temp = int(rnd * (40) + 5) response.write temp %>.00
  • <%=kp_name%>
  • 站点信息
  • 点评印象
  • 网页快照
  • 词条图片
  • 码上阅读
  • 相关查询

   <%=kp_name%><%=kp_name%>是什么?<%=kp_name%>怎么样?<%response.Write webtitle%>。<%response.Write webdes%>[提交您的网站到网站点评,让用户发现、点评您的网站]!

  • 网站名称:<%=kp_name%>
  • 网站语言:简体中文
  • 域名地址:<%=kp_url%>
  • 收录时间:<%=kp_p_jianzhan%>
  • 今日点击:1156人次
  • 本月点击:5.81万人次
  • 累计点击:121.36万人次
  • •  访问速度打分:<%=kp_grade_speed_left%>.<%=kp_grade_speed_right%>分

    •  信息权威打分:<%=kp_grade_auth_left%>.<%=kp_grade_auth_right%>分

    •  互动信息打分:<%=kp_grade_interaction_left%>.<%=kp_grade_interaction_right%>分

    •  使用体验打分:<%=kp_grade_exp_left%>.<%=kp_grade_exp_right%>分

    •  发展前景打分:<%=kp_grade_prospect_left%>.<%=kp_grade_prospect_right%>分

    共有 26149 个网上印象,[点击查看]

      

    <%=kp_name%>网页截图

      

    <%=kp_name%>图片

      

    <%=kp_name%>二维码

    网站点评:

      <%=kp_name%>_<%response.Write url4(0)%>于<%=kp_p_jianzhan%>发布收录在<%=G_WEBNAME%>目录<%=kp_typename%>类别中,目前已有13076人喜欢<%=kp_name%>词条,网站点评以用户为导向,致力于快速为互联网用户提供真实、客观的网站信息,集合各界信息对“<%=kp_name%>”的基础数据分析其价值、可信度和可靠性,以网友点评、访问人气、绿色评级、喜爱度等方式,把站点详细用于展示,作为广大网民放心上网的参考依据。以网站的流量或收益多少来衡量站点价值当然不够准确,网站真正的价值在于它是否为社会的发展带来积极促进作用,包括自有品牌价值,域名价值,行业价值以及社会贡献等综合价值。本页所收录的网站资料均来源于网络,请自行查阅,谨慎选择、自辨真伪,感谢您的理解与支持。

    本文链接:<%=G_WEBURL%>/company/<%=kp_p_id%>.html

    <%=kp_name%>官网链接:<%=kp_url%>

    发现更多点评网站<%=kp_str_rnd%>

    分享喜欢:26152个人认为这个词条有用

    13077人参与点评打分:

    <% Set Rs = Server.CreateObject("ADODB.Recordset") Sql = "SELECT * FROM qingtiandy_pingfentable_g_b where g_t_id="&oid&" Order By Id Desc" Rs.Open Sql,Conn,1,1 Rs.pagesize=10 Pgsize = Rs.pagesize RecordNum=Rs.RecordCount Pagenum=Rs.PageCount CurrentPage=Clng(Bint(Request("page"))) if CurrentPage="" or IsNull(CurrentPage) or CurrentPage=0 or not(IsNumeric(CurrentPage)) then CurrentPage=1 End if if RecordNum=-1 then RecordNum=0 End if ss=CurrentPage mod (Pgsize\2) If ss = 0 then ss = Pgsize\2 If CurrentPage<= Pgsize\2 then ss = CurrentPage - 1 iStart = CurrentPage - ss iEnd = CurrentPage + Pgsize\2 - ss If iEnd >= Pagenum then iEnd = Pagenum If CurrentPage>1 then Pager = Pager & "上一页" End if For i = iStart To iEnd If i = clng(CurrentPage) then Pager = Pager & ""&i&"" Else Pager = Pager & ""&i&"" End if Next If clng(Pagenum)>clng(CurrentPage) then Pager = Pager & "下一页" End if If clng(Pagenum)=1 Then Pager="" End IF NN=0 If Not Rs.Eof then Rs.AbsolutePage = CurrentPage Do While Not Rs.Eof and NN
    回复于<%=sg_date%>
    <%=sg_floor%>楼
    IP:<%=sg_ip%>

    <%=ksg_fen_left%>.<%=ksg_fen_right%>分

    <%=sg_content%>
    <% Rs.MoveNext() Loop Else %>
    images/avatar-40.png"/>
    回复于<%=FormatDate(Now(),55)%>
    1楼
     

    5.0分

    哎呀,沙发呀,赶快抢沙发~~~~
    <% End If Rs.Close: set Rs=Nothing %>
    index.asp?action=save">
    访问速度打分0.0分
    信息权威打分0.0分
    互动性打分0.0分
    使用体验打分0.0分
    发展前景打分0.0分
    验证码:members/Ujs/code.asp?ff" border=0 onClick="javascript:newverifypic();" alt="看不清左边的字符">
    最多200字
    <%=Pager%>

    版权声明:

    1、本文内容转载于<%=kp_name%>(<%response.Write url1(0)%>),或有会员发布,版权归原网站所有。

    2、本站收录<%=kp_name%>时该网站内容都正常,如失效,请联系网站管理员处理。

    3、本站仅提供<%=kp_name%>网站的信息展示平台,不承担相关法律责任。

    <% set rs=Server.CreateObject("ADODB.RecordSet") rs.open "select id,p_name from qingtiandy_pingfentable where id<"&trim(request("id"))&" order by id desc",conn,1,1 if rs.eof or rs.bof then response.write ("上一页为空了!") else response.write ("上一页:"&rs("p_name")&"") end if %><% set rs=Server.CreateObject("ADODB.RecordSet") rs.open "select id,p_name from qingtiandy_pingfentable where id>"&trim(request("id"))&" order by id asc",conn,1,1 if rs.eof or rs.bof then response.write ("下一页为空了!") else response.write ("下一页:"&rs("p_name")&"") end if %>

    热门点评

      <% Set oRsa=Conn.Execute("Select Top 15 * From qingtiandy_pingfentable where keytype=2 Order By grade_fenall Desc,Id Asc") i=0 Do While Not oRsa.Eof i= i + 1 skeyid = oRsa.Fields.Item("keyid").Value skid = oRsa.Fields.Item("id").Value sg_fen = oRsa.Fields.Item("grade_fenall").Value sp_name = oRsa.Fields.Item("p_name").Value ksg_fen = formatnumber(sg_fen,1,-1,-1,0):ksg_fen_left=Split(ksg_fen,".")(0):ksg_fen_right=Split(ksg_fen,".")(1) Str = "
    • "&i&""&sp_name&""&ksg_fen_left&"."&ksg_fen_right&"
    • " Response.Write Str oRsa.MoveNext Loop oRsa.close %>

    最新点评

      <% Set oRsa=Conn.Execute("Select Top 15 * From qingtiandy_pingfentable where keytype=2 Order By p_date Desc,id desc") i=0 Do While Not oRsa.Eof i= i + 1 skeyid = oRsa.Fields.Item("keyid").Value skid = oRsa.Fields.Item("id").Value sg_fen = oRsa.Fields.Item("grade_fenall").Value sp_name = oRsa.Fields.Item("p_name").Value ksg_fen = formatnumber(sg_fen,1,-1,-1,0):ksg_fen_left=Split(ksg_fen,".")(0):ksg_fen_right=Split(ksg_fen,".")(1) Str = "
    • "&i&""&sp_name&""&ksg_fen_left&"."&ksg_fen_right&"
    • " Response.Write Str oRsa.MoveNext Loop oRsa.close %>
    热点标签
      <% Set oRs2=Server.CreateObject(G_RS) oRs2.open "select top 50 * from qingtiandh_type1 where typehide=1 order by typeno asc,typeid desc",conn,1,1 Do While Not oRs2.Eof typeid1=oRs2("typeid") typename1=oRs2("typename") Set oRs3=Server.CreateObject(G_RS) Randomize oRs3.open "select top 5 * from qingtiandh_type2 where typeid1="&typeid1&" order by rnd(-(typeid+" & rnd() & "))",conn,1,1 Do While Not oRs3.Eof t_typeid=oRs3("typeid") m_type_url=url_(array("l2",Trim(t_typeid),"")) t_typename=oRs3("typename") Response.Write ""&t_typename&"" oRs3.MoveNext Loop oRs3.close:Set oRs3=Nothing oRs2.MoveNext Loop %>
    <%=G_WEBNAME%>版权所有 Copyright ©2009-<%=G_WEBURL_2%><%=G_BEIAN%>
    <% IF oaction="save" Then oHttpurl="http://"&request.ServerVariables("HTTP_HOST")&url_(Array("dianpingurl",oid,"3")) saveurl=url_(Array("dianpingurl",oid,"2")) ostr=qtcmsdh.Qingtiandy_getHTTPPage(oHttpurl) N_Fso.CreateFolderFile saveurl,ostr response.Write "" Response.End() End IF %><% c=request.querystring("g") IF c Then oHttpurl="http://"&request.ServerVariables("HTTP_HOST")&url_(Array("dianpingurl",c,"3")) saveurl=url_(Array("dianpingurl",c,"2")) ostr=qtcmsdh.Qingtiandy_getHTTPPage(oHttpurl) N_Fso.CreateFolderFile saveurl,ostr response.Write "" Response.End() End IF %>