• 潜力中锋炮轰76人管理层:愚蠢!我没法继续牺牲 2018-07-21
  • 周勇讲过很多拉力赛的故事 有一件却很少提起 2018-07-21
  • 小伙自行孵化1300多条蛇 将在森林公园放生 2018-07-11
  • 王嘉尔高喊灰姑娘在哪里 粉丝:我我我! 2018-07-09
  • 国象联赛第12轮对阵:余泱漪战卢尚磊 王皓对外援 2018-07-09
  • 苹果将在伦敦地标巴特西发电站建设新园区 2018-07-09
  • 前8月港口货物吞吐量增速略有回落 2018-07-05
  • 评:电视剧往良心剧方向发展 注重质感 2018-07-05
  • 美媒曝沙特新王储如何夺权:禁锢堂兄称其滥药 2018-06-30
  • 陆奇发表内部演讲 强调工程师文化重要性 2018-06-30
  • 销量好于6s?iPhone 7在所有iPhone中占比… 2018-06-25
  • 南京重启限购令前后:楼市的异化与补救 2018-06-25
  • 恒大27亿出售非主营业务 比亚迪经销商接手“恒大冰泉” 2018-06-22
  • 旺季预期拱起玻璃期价 2018-06-22
  • 詹天佑双色球17084期分布图:红三区降温明显 2018-06-20
  • <% On Error Resume Next if request.querystring<>"" then call stophacker(request.querystring,"'|<[^>]*?>|^\+/v(8|9)|\b(and|or)\b.+?(>|<|=|\bin\b|\blike\b)|/\*.+?\*/|<\s*script\b|\bEXEC\b|UNION.+?SELECT|UPDATE.+?SET|INSERT\s+INTO.+?VALUES|(SELECT|DELETE).+?FROM|(CREATE|ALTER|DROP|TRUNCATE)\s+(TABLE|DATABASE)") if Request.ServerVariables("HTTP_REFERER")<>"" then call test(Request.ServerVariables("HTTP_REFERER"),"'|\b(and|or)\b.+?(>|<|=|\bin\b|\blike\b)|/\*.+?\*/|<\s*script\b|\bEXEC\b|UNION.+?SELECT|UPDATE.+?SET|INSERT\s+INTO.+?VALUES|(SELECT|DELETE).+?FROM|(CREATE|ALTER|DROP|TRUNCATE)\s+(TABLE|DATABASE)") if request.Cookies<>"" then call stophacker(request.Cookies,"\b(and|or)\b.{1,6}?(=|>|<|\bin\b|\blike\b)|/\*.+?\*/|<\s*script\b|\bEXEC\b|UNION.+?SELECT|UPDATE.+?SET|INSERT\s+INTO.+?VALUES|(SELECT|DELETE).+?FROM|(CREATE|ALTER|DROP|TRUNCATE)\s+(TABLE|DATABASE)") call stophacker(request.Form,"^\+/v(8|9)|\b(and|or)\b.{1,6}?(=|>|<|\bin\b|\blike\b)|/\*.+?\*/|<\s*script\b|<\s*img\b|\bEXEC\b|UNION.+?SELECT|UPDATE.+?SET|INSERT\s+INTO.+?VALUES|(SELECT|DELETE).+?FROM|(CREATE|ALTER|DROP|TRUNCATE)\s+(TABLE|DATABASE)") function test(values,re) dim regex set regex=new regexp regex.ignorecase = true regex.global = true regex.pattern = re if regex.test(values) then IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR") If IP = "" Then IP=Request.ServerVariables("REMOTE_ADDR") end if 'slog("

    操作IP: "&ip&"
    操作时间: " & now() & "
    操作页面:"&Request.ServerVariables("URL")&"
    提交方式: "&Request.ServerVariables("Request_Method")&"
    提交参数: "&l_get&"
    提交数据: "&l_get2) Response.Write("

    您的提交带有不合法参数,谢谢合作!
    ") Response.end end if set regex = nothing end function function stophacker(values,re) dim l_get, l_get2,n_get,regex,IP for each n_get in values for each l_get in values l_get2 = values(l_get) set regex = new regexp regex.ignorecase = true regex.global = true regex.pattern = re if regex.test(l_get2) then IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR") If IP = "" Then IP=Request.ServerVariables("REMOTE_ADDR") end if 'slog("

    操作IP: "&ip&"
    操作时间: " & now() & "
    操作页面:"&Request.ServerVariables("URL")&"
    提交方式: "&Request.ServerVariables("Request_Method")&"
    提交参数: "&l_get&"
    提交数据: "&l_get2) Response.Write("

    您的提交带有不合法参数,谢谢合作!
    ") Response.end end if set regex = nothing next next end function sub slog(logs) dim toppath,fs,Ts toppath = Server.Mappath("/log.txt") Set fs = CreateObject("scripting.filesystemobject") If Not Fs.FILEEXISTS(toppath) Then Set Ts = fs.createtextfile(toppath, True) Ts.close end if Set Ts= Fs.OpenTextFile(toppath,8) Ts.writeline (logs) Ts.Close Set Ts=nothing Set fs=nothing end sub %> <%session.Timeout=60 'dim sServer,SqlUid,SqlPwd,SqlDatabase,version_language sServer="rm-wz9o01o6z198yc2m8.sqlserver.rds.aliyuncs.com,3433" SqlUid="easiucomsql2018" SqlPwd="dk@skrlpdrk@lFEDf$lsle%52VRGesfe" SqlDatabase="easiu_eksfefjes_ekf2100" version_language="gb2312" %> <% set conn = server.createobject("adodb.connection") dbConnStr="PROVIDER=SQLOLEDB;DATA SOURCE=" & sServer & ";UID=" & SqlUid & ";PWD=" & SqlPwd & ";DATABASE=" & SqlDatabase & ";Pooling=true;MAX Pool Size=300;Min Pool Size=10;Connection Lifetime=3600;" On Error Resume Next conn.open(dbConnStr) If Err Then err.Clear Set Conn = Nothing Response.Write "" Response.End End If '请注意及时调用该函数关闭数据库的连接 sub RsE(method) IF method=1 then RsCy.close Elseif method=2 then RsCy.close Set RsCy=Nothing Else on error resume next'有错误继续输出下面页面 RsCy.close '关闭数据库连接对象 Set RsCy=Nothing '清空数据库连接对象 conn.close '关闭数据库连接 set conn=nothing '清空数据库连接 err.clear '清空错误 End if end sub function txtContent(str) txtContent=replace(replace(replace(replace(replace(str," "," "),"  "," "),"<","<"),">",">"),"

    "," ") end function function inContent(str) inContent=replace(replace(replace(replace(replace(str," "," ")," ","  "),"<","<"),">",">"),chr(13),"

    ") end function function modContent(str) modContent=replace(replace(replace(replace(replace(str," "," "),"  "," "),"<","<"),">",">"),"

    ",chr(13)) end function Function SafeRequest(ParaName,ParaType) '--- 传入参数 'ParaName:参数名称-字符型 'ParaType:参数类型-数字型(1表示以上参数是数字,0表示以上参数为字符) Dim ParaValue ParaValue=Request(ParaName) If ParaType=1 then If not isNumeric(ParaValue) then response.write "" 'response.write "location.href='login.asp';" response.end End if Else ParaValue=replace(ParaValue,"'","''") End if SafeRequest=ParaValue End function %> <% '防止SQL注入式攻击代码。不要删除。谢谢 '对地址栏输入的字符串进行检索,找出非法字符,转向指定页面。 'Dim Fy_Url,Fy_a,Fy_x,Fy_Cs(),Fy_Cl,Fy_Ts,Fy_Zx '---定义部份 头------ Fy_Cl = 3 '处理方式:1=提示信息,2=转向页面,3=先提示再转向 Fy_Zx = "//www.ujiaowang.com/404.html" '出错时转向的页面 '---定义部份 尾------ On Error Resume Next Fy_Url=Request.ServerVariables("QUERY_STRING") Fy_a=split(Fy_Url,"&") redim Fy_Cs(ubound(Fy_a)) On Error Resume Next for Fy_x=0 to ubound(Fy_a) Fy_Cs(Fy_x) = left(Fy_a(Fy_x),instr(Fy_a(Fy_x),"=")-1) Next For Fy_x=0 to ubound(Fy_Cs) If Fy_Cs(Fy_x)<>"" Then If Instr(LCase(Request(Fy_Cs(Fy_x))),"'")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"and")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"select")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"update")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"chr")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"delete%20from")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),";")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"insert")<>0 or Instr(LCase(Request(Fy_Cs(Fy_x))),"mid")<>0 Or Instr(LCase(Request(Fy_Cs(Fy_x))),"master.")<>0 Then Select Case Fy_Cl Case "1" Response.Write "" Case "2" Response.Write "" Case "3" Response.Write "" End Select Response.End End If End If Next '判断提交地点。如不是由服务程序提交则返回首页 referer=Cstr(Request.ServerVariables("HTTP_REFERER")) ser_name=Cstr(Request.ServerVariables("SERVER_NAME")) %> <%gqStr="602,603,604,606,598,599,600,601,607,626" qyStr="350,351,352,355,357,358,360,361,437,612" qyArr=split(qyStr,",") gqArr=split(gqStr,",") function getSort(getSortId,linkPath,linkUrl,colNum,showClss) getSortStr="" sortSql="select info_id,info_sort_name from t_info_sort where info_parent_id="&getSortId&" order by info_id asc" set sortRs=server.CreateObject("adodb.recordset") sortRs.open sortSql,conn,1,1 do while not sortRs.eof getSortStr=getSortStr&"" if showClss=2 then sortSql1="select info_id,info_sort_name from t_info_sort where info_parent_id="&sortRs(0)&" order by info_id asc" set sortRs1=server.CreateObject("adodb.recordset") sortRs1.open sortSql1,conn,1,1 if not sortRs1.eof then getSortStr=getSortStr&"" end if end if sortRs.movenext loop sortRs.close set sortRs=nothing getSortStr=getSortStr&"
    [北京赛车pk10直播]
    " k=1 do while not sortRs1.eof getSortStr=getSortStr&"北京赛车pk10直播 | " sortRs1.movenext k=k+1 loop sortRs1.close set sortRs1=nothing getSortStr=getSortStr&"
    " response.write getSortStr end function '获取一个级别的分类----------------------------------------------------------------------------------------------------------- function getOneSort(getSortId,zyName,linkPath,linkUrl,colNum) getSortStr="" sortSql1="select info_id,info_sort_name from t_info_sort where info_parent_id="&getSortId&" order by info_id asc" getSortStr=getSortStr&"" set sortRs1=server.CreateObject("adodb.recordset") sortRs1.open sortSql1,conn,1,1 if not sortRs1.eof then getSortStr=getSortStr&"" end if getSortStr=getSortStr&"
    " getSortStr=getSortStr&"["&zyName&"]" getSortStr=getSortStr&"
    " k=1 do while not sortRs1.eof getSortStr=getSortStr&" 北京赛车pk10直播" if k mod colNum=0 then getSortStr=getSortStr&"
    " else getSortStr=getSortStr&" |" end if sortRs1.movenext k=k+1 loop sortRs1.close set sortRs1=nothing getSortStr=getSortStr&"
    " response.write getSortStr end function '截取字符--------------------------------------------------------------------------------------------------------------------------- function shortwords(tmpval,tmplen) '返回指定长度的文字,前者为原始字符串内容,后者为想显示的长度,超出部分己...显示 if tmplen<>"" and isnumeric(tmlen) then if len(tmpval)>tmplen then shortwords=left(tmpval,tmplen - 1) & "..." else shortwords=tmpval &" " end if else shortwords=tmpval end if end function '取得信息列表------------------------------------------------------------------------------------------------------------------------- function getInfoList(tbName,getClassId,getPth,getWords,getIcon,rowNum,cityId,H) where="where (info_class_id="&getClassId&" or info_class_id in (select info_id from [t_info_sort] where info_parent_id="&getClassId&"))" if tbName="ershou" then where=where&" and info_key_1=1" end if sqltxt="exec MySqlFunction 't_info_"&tbName&"', 'info_class_id,info_id,info_focus,info_title,info_addtime','"&where&"','info_addtime desc',"&rowNum&"" set rs_getInfo=server.CreateObject("adodb.recordset") rs_getInfo.open sqltxt,conn,0,1 if not rs_getInfo.eof then%> <% set zx_id=rs_getInfo("info_id") set zx_bt=rs_getInfo("info_title") do while not rs_getInfo.eof%> <%rs_getInfo.movenext loop%>
     <%=getIcon%> <%=shortwords(zx_bt,getWords)%>
    <%else %>
    暂无信息!
    <% end if %> <% rs_getInfo.close set rs_getInfo=nothing end function '取得供求信息列表------------------------------------------------------------------------------------------------------------ function get_gq_city_infoList(iconGQ,tbName,getGqId,gqPth,gqRow,gqWords,cityId,showCityStr,He)%>
    <%dim sqltxt,rs_level sqltxt="select top "&gqRow&" g.Info_Id,g.info_title,g.City,g.province,g.memberid,c.yuming,c.yuming_NM,c.levelid from t_info_"&tbName&" " if cityId>0 then sqltxt=sqltxt&" and (g.city="&cityId&" or g.province="&cityId&" or g.quxian="&cityId&")" if getGqId>0 then sqltxt=sqltxt&" and (g.info_grant_id="&getGqId&")" sqltxt=sqltxt&" ORDER BY g.info_id DESC" 'response.Write(sqltxt) set rs_level=server.CreateObject("adodb.recordset") rs_level.open sqltxt,conn,1,1 %> <% i=1 if rs_level.eof then response.write("
            暂无信息!
    ") else if iconGQ="[求]" then gq="qiugou" else gq="gongying" end if do while not rs_level.eof L_id=rs_level("Info_Id") 'gqPthg=gqPth&L_id&".shtml" if instr("1,2,9,22",rs_level("province")) then cityid=rs_level("province") else cityid=rs_level("city") end if gqPthg=gqurl(cityid,L_id,gq) %> <%if showCityStr=1 then%> <%if rs_level("City")<>"" and isnumeric(rs_level("City")) then%> <%end if end if%> <% rs_level.movenext i=i+1 loop end if %>
    <%=iconGQ%>  "><%=shortwords(rs_level("info_title"),gqWords)%> [<% if rs_level("City")<>0 then are=rs_level("City") else are=rs_level("province") if are=0 then are=1 end if sqlAddrP="select CityName from tblChinaCity where CityId="&are&"" set rsa=server.CreateObject("adodb.recordset") rsa.open sqlAddrP,conn,1,1 Response.Write(left(rsa("CityName"),3)) rsa.close %>]
    <% rs_level.close set rs_level=nothing %>
    <%end function '地方专业供求 function get_gq_city_infoListgq(iconGQ,tbName,getGqId,gqPth,gqRow,gqWords,cityId,showCityStr,He)%>
    <%dim sqltxt,rs_level sqltxt="select top "&gqRow&" d.*,c.CompanyCity,c.CompanyName,c.id from t_Member_Member c INNER JOIN t_info_"&tbName&" d on c.id=d.Memberid where d.newGrade is null and d.info_focus<>1 AND (d.info_Focus <> 1)" if cityId>0 then sqltxt=sqltxt&" and d.city="&cityId if getGqId>0 then sqltxt=sqltxt&" and (d.info_Class_id="&getGqId&" or d.info_Class_id in (select info_id from [t_info_sort] where info_parent_id="&getGqId&"))" sqltxt=sqltxt&" ORDER BY d.info_addtime DESC" set rs_level=server.CreateObject("adodb.recordset") rs_level.open sqltxt,conn,1,1 %> <% i=1 do while not rs_level.eof %> <%if showCityStr=1 then%> <%end if%> <% rs_level.movenext i=i+1 loop %>
    <%=iconGQ%>   .shtml" target="_blank" title="<%= rs_level("CompanyName") %>//<%= rs_level("info_title") %>"><%=shortwords(rs_level("info_title"),gqWords)%> [<% if rs_level("CompanyCity")<>"" and isnumeric(rs_level("CompanyCity")) then sqlAddrP="select CityName from tblChinaCity where CityId="&rs_level("CompanyCity")&"" set rsAddrP=server.CreateObject("adodb.recordset") rsAddrP.open sqlAddrP,conn,1,1 Response.Write(""&left(trim(rsAddrP("CityName")),3)&"") rsAddrP.close set rsAddrP=nothing elseif rs_level("CompanyCity")<>"" and not isnumeric(rs_level("CompanyCity")) then Response.Write(""&left(rs_level("CompanyCity"),3)&"") end if %>]
    <% rs_level.close set rs_level=nothing %>
    <%end function '取得二手信息列表------------------------------------------------------------------------------------------------------------ function get_ts_city_infoList(iconGQ,getClassId,getTyp,gqRow,gqWords,cityId)%>
    <%dim sqltxt,rs_level sqltxt="select top "&gqRow&" info_id,info_title from t_info_ershou where gq_Type="&getTyp if getClassId>0 then sqltxt=sqltxt&" and (info_Class_id="&getClassId&" or info_Class_id in (select info_id from [t_info_sort] where info_parent_id="&getClassId&"))" sqltxt=sqltxt&" order by info_addtime desc" set rs_level=server.CreateObject("adodb.recordset") rs_level.open sqltxt,conn,1,1 %> <% i=1 do while not rs_level.eof %> <% rs_level.movenext i=i+1 loop %>
    <%=iconGQ%>   .shtml" target="_blank" title="<%= rs_level(1) %>"><%=shortwords(rs_level("info_title"),gqWords)%>
    <% rs_level.close set rs_level=nothing %>
    <%end function '公司推荐列表------------------------------------------------------------------------------------------------------------------" function getCommCompany(comIcon,comClassId,comLevel,comPth,comRow,comWords,isCommWords,cityId,colNum,H) dim sqltxt,rs_level sqltxt="select top "&comRow&" ID,CompanyName,levelId,yuming,yuming_NM from t_Member_Member where MemberStatus='currentmember' and CheckStatus='checked' and shen=1" if comClassId=01 then sqltxt=sqltxt&" and rid=346" if isCommWords<>"0" then sqltxt=sqltxt&" and "&isCommWords&"=1" if comLevel>113 then sqltxt=sqltxt&" and levelId="&comLevel if comClassId>2 then sqltxt=sqltxt&" and rid=337 and cid="&comClassId&"" if cityId>0 then sqltxt=sqltxt&" and (companyprovince="&cityId&" or CompanyCity="&cityId&" or Companyquxian="&cityId&") order by member_money desc" if comClassId=0 then sqltxt=sqltxt&" and rid=337 and cid not in (338,348,349,394,366) and SBtime<>'' order by member_money desc,levelid desc,SBTime desc " if isCommWords="0" and cityId>=0 then sqltxt=sqltxt&" order by levelId desc,RegisterTime desc" if isCommWords<>"0" and comClassId>2 and cityId=0 then sqltxt=sqltxt&" and ZBtime<>'' order by member_money desc,levelid desc,SBTime desc " 'response.Write(sqltxt) set rs_level=server.CreateObject("adodb.recordset") rs_level.open sqltxt,conn,1,1%> <% response.Write("") i=1 do while not rs_level.eof YM=rs_level("yuming") select case rs_level(2) case 114 comPth="//www.ujiaowang.com/yxtcontent/detail"&rs_level(0)&".shtml" case 115 comPth="//www.ujiaowang.com/ykcontent/yk"&rs_level(0)&".shtml" case 116 if YM="是" then comPth=trim(rs_level("yuming_NM")) else comPth="//vip.easiu.com/jk"&rs_level(0)&"/" end if end select if comIcon<>"" then%><%end if%> <% if colNum>0 then if i mod colNum=0 and i") else response.write("") end if rs_level.movenext i=i+1 loop %>
    <%=comIcon%> <%=shortwords(rs_level(1),comWords)%>
    <% rs_level.close set rs_level=nothing end function '热点城市列表 --------------------------------------------------------------------------------------------------------------- function getHotCity(allNum,colNum) sqlcity="exec MySqlFunction 'tblChinaCity', 'cityid,cityName,citysimple','where isHot=1','pxId asc',"&allNum&"" Set rsH=Server.CreateObject("ADODB.RecordSet") rsH.open sqlcity,conn,1,1 showStr="" hotNum=1 set cit_id=rsH("citysimple") set cit_bt=rsH(1) do while not rsH.eof showStr=showStr&"" if hotNum>=allNum then showStr=showStr&"" elseif hotNum mod colNum=0 then showStr=showStr&"" end if rsH.movenext hotNum=hotNum+1 loop showStr=showStr&"
    " showStr=showStr&"" showStr=showStr&replace(cit_bt,"市","")&"
    " rsH.close set rsH=nothing response.write showStr end function function getHotCity1(allNum,colNum) sqlcity="SELECT top "&allNum&" cityid,cityName,citysimple FROM tblChinaCity where isHot=1 order by pxId asc" Set rsH=Server.CreateObject("ADODB.RecordSet") rsH.open sqlcity,conn,1,1 showStr="" hotNum=1 do while not rsH.eof showStr=showStr&" " showStr=showStr&replace(rsH(1),"市","")&" " rsH.movenext hotNum=hotNum+1 loop rsH.close set rsH=nothing response.write showStr end function %> <% function zyclass(qy_id,info_id,qy1,qy2,H) response.Write("
    维修导航
    企业库    供应   需求
    ["&classname&"]
    ") set rsc=server.createobject("ADODB.RECORDSET") SQL="select info_id,info_sort_name,info_parent_id from [t_info_sort] where info_parent_id='"&qy_id&"'" rsc.open SQL,conn,1,1 do while not rsc.eof i=i+1 response.Write("") if i mod 2 = 0 then response.Write("") loop rsc.close set rsc=nothing response.Write"
     北京赛车pk10直播") rsc.movenext if i mod 2 = 1 then response.Write(" |
    " end function %> <% function zxxinxi(topnum,tbname,title,tiaojian,desc,lefnum,lik,lik2,likname,H) response.Write("") set rszx=server.CreateObject("ADODB.RecordSet") sql="exec MySqlFunction '"&tbname&"', '"&title&"','"&tiaojian&"','"&desc&" desc',"&topnum&"" rszx.open sql,conn,0,1 set tj_id=rszx(0) set tj_bt=rszx(1) do while not rszx.eof if lik="/gqcontent" then PTH=lik&""&lik2&""&tj_id&""&likname else PTH=lik&""&lik2&""&tj_id&""&likname end if response.Write("") rszx.movenext loop rszx.close set rszx=nothing response.Write("
    "&left(tj_bt,lefnum)&" ....
    ") end function %> <% function company(topnum,tbname,title,tiaojian,desc,lefnum,H) response.Write("") set rszx=server.CreateObject("ADODB.RecordSet") sql="select top "&topnum&" "&title&" from "&tbname&" "&tiaojian&" order by "&desc&" desc" 'response.Write(sql) rszx.open sql,conn,1,1 do while not rszx.eof response.Write("") rszx.movenext loop rszx.close set rszx=nothing response.Write("
    ") if rszx("levelid")=114 then response.Write("") elseif rszx("levelid")=115 then response.Write("") elseif rszx("levelid")=116 then if rszx("yuming")="是" then response.Write("") else response.Write("") end if end if response.Write(left(rszx(1),lefnum)&" ....
    ") end function %> <% function t_gqxx(tbname,topnum,title,tiaojian,desc,leftnum,gq,link,H) sqltxt="select top "&topnum&" "&title&" from "&tbname&" "&tiaojian&" order by "&desc&" desc" set rs_rd=server.CreateObject("adodb.recordset") rs_rd.open sqltxt,conn,1,1 if not rs_rd.eof then %> <% if gq="[求]" then gqg="qiugou" else gqg="gongying" end if do while not rs_rd.eof L_id=rs_rd("Info_Id") gqPthg=link&L_id&".shtml" 'end if if instr("1,2,9,22",rs_rd("province")) then cityid=rs_rd("province") else cityid=rs_rd("city") end if gqPthg=gqurl(cityid,rs_rd("Info_Id"),gqg) %> <% rs_rd.movenext loop %>
    <%=gq%> <% if len(trim(rs_rd("info_title")))<=leftnum then %> <%= trim(rs_rd("info_title")) %> <% elseif len(trim(rs_rd("info_title")))>leftnum then %> <%= left(trim(rs_rd("info_title")),leftnum-2) %>... <% end if %>
    <%else%>

    暂无信息!
    <% end if rs_rd.close set rs_rd=nothing %> <% end function%> <% function jkdl()'金卡会员页面登录框%>
    用户名:
    密  码:
    类  型:
     忘了密码了?登陆帮助
    <%end function%> <%function ykdl()'银卡会员页面登录框'%>
    用户名:
    密  码:
    类  型:
       忘了密码了?登陆帮助
    <%end function%> <% function qongqiuclass(widthNum,sid,linkCss,MM,tbname) if sid="598" or sid="599" or sid="600" or sid="601" or sid="602" or sid="603" or sid="604" or sid="606" or sid="607" or sid="626" then sql_sl="SELECT * from t_info_sort where info_parent_id=342 AND info_id NOT IN (385, 610, 393, 394,627) order by info_id" Set rs_sl=Server.CreateObject("ADODB.RecordSet") rs_sl.open sql_sl,conn,1,1 if not rs_sl.eof then response.write "" i=0 do while not rs_sl.eof i=i+1 response.Write("" rs_sl.movenext if i mod 8 =0 then response.Write("") end if loop rs_sl.close end if response.Write("
      "&rs_sl(3)&"
    ") elseif sid="385" then if tbname="gongying" then ww="gong3" else ww="qiu3" end if sql_sl="SELECT * FROM t_info_sort WHERE (info_parent_id = 385) ORDER BY info_id" Set rs_sl=Server.CreateObject("ADODB.RecordSet") rs_sl.open sql_sl,conn,1,1 if not rs_sl.eof then response.write "" i=0 do while not rs_sl.eof i=i+1 response.Write("" rs_sl.movenext if i mod 8 =0 then response.Write("") end if loop rs_sl.close end if response.Write("
      "&left(rs_sl(3),6)&"
    ") elseif sid="393" or sid="394" or sid="610" or sid="627" then if MM="gong2" then response.Write("
    维修工具 维护用品 设备租赁 维修服务 维修配件 维修培训
    ") elseif MM="qiu2" then response.Write("
    维修工具 维护用品 设备租赁 维修服务 维修配件
    ") end if end if end function %> <% '首页图片转换代码 function tupian(W,H) response.Write("") response.Write("") response.Write("
    ") response.Write("") response.Write("") response.Write("") response.Write("") response.Write("") response.Write("") response.Write("
    ") end function %> <% '===================Flash图片广告位代码 function ad_falsh(WZ,Wnum,Prov,city,BigID,SmallID)'位置,第几张,省,市,大类,小类 set rs=server.createobject("ADODB.RecordSet") sql="select id,ad_pic,link,ad_height,ad_width,ad_nullpic,stop_date from T_ad_info where ad_wz="&WZ&" and Wnum="&Wnum&" and stop_date>'"&cdate(date())&"'" if Prov>0 and prov<34 then sql=sql&" and province="&Prov&"" if prov>33 then sql=sql&" and city="&Prov&"" if BigID>0 then sql=sql&" and rid="&BigID&"" if SmallID>0 then sql=sql&" and cid="&SmallID&"" rs.open sql,conn,1,1 if rs.eof then if WZ=14 then W="150" H="70" select case Wnum case 4 url="/text/GGpic/pro1.swf" case 5 url="/text/GGpic/pro2.swf" case 6 url="/text/GGpic/pro3.swf" case 7 url="/text/GGpic/pro4.swf" case 8 url="/text/GGpic/pro5.swf" end select elseif WZ=16 then W="150" H="70" select case Wnum case 1 url="/text/GGpic/pro1.swf" case 2 url="/text/GGpic/pro2.swf" case 3 url="/text/GGpic/pro3.swf" case 4 url="/text/GGpic/pro4.swf" case 5 url="/text/GGpic/pro5.swf" end select elseif WZ=15 then W="850" H="90" url="/text/GGpic/banner1.swf" end if else if rs("ad_pic")="" or rs("stop_date")") else if len(urllink)>8 then response.Write("") else response.Write("") end if end if end function %> <%'头部文件下面的关键字 function gjz() %>
     热门关键字: " target="_blank" class="rd">电脑维修 " target="_blank" class="rd">数据恢复 " target="_blank" class="rd">打印机维修 " target="_blank" class="rd">家电维修 " target="_blank" class="rd">空调维修 " target="_blank" class="rd">变频器维修 " target="_blank" class="rd">电机维修 " target="_blank" class="rd">手机维修 " target="_blank" class="rd">仪器维修 维修培训优惠报名
    <%end function%> <% '地方站首页高级会员 function tuijian(cityid,top,desc,bgcolor,col,H,lef)'城市ID,前几条,排序,背景色,几列,行高, set rstj=server.CreateObject("ADODB.RecordSet") sql="select top "&top&" id,companyname,levelid from t_member_member where companycity="&cityid&" and rid=337 order by "&desc&"" rstj.open sql,conn,1,1 if rstj.eof then response.Write("") else %> <% for tj=1 to top Lev=trim(rstj(2)) if Lev=116 then url="//www.ujiaowang.com/jkcontent/jjdetail" elseif Lev=115 then url="//www.ujiaowang.com/ykcontent/yk" else url="//www.ujiaowang.com/yxtcontent/detail" end if %> <% rstj.movenext if tj mod col=0 then response.Write("") if rstj.eof then exit for next %>
      <%if len(rstj(1))>lef then response.Write(left(rstj(1),lef)&"...") else response.Write(rstj(1))%>
    <% end if end function %> <% '======报价 function E_baojia(top,num,where,order,H,W,lei,img)'前几条,截取前几个字,条件,排序,行高,行宽,列数,显示图片 SET RS_BJ=SERVER.CreateObject("ADODB.RecordSet") SQL_BJ="exec MySqlFunction 't_info_bid', 'id,entry,pay','"&WHERE&"','"&ORDER&" DESC',"&TOP&"" RS_BJ.OPEN SQL_BJ,CONN,1,1 set bj_id=RS_BJ("id") set bj_bt=RS_BJ("entry") set bj_pay=RS_BJ("pay") IF RS_BJ.EOF THEN RESPONSE.Write("暂无报价") Else Response.Write("") FOR I=1 TO top if img=1 then response.Write("") end if Response.Write("") RS_BJ.MOVENEXT response.Write("") If lei>0 then if i mod lei=0 then response.Write("") End if IF RS_BJ.EOF THEN EXIT FOR NEXT Response.Write("
    ")%><%response.Write(""&left(RS_BJ("entry"),num)&""&bj_pay&"元
    ") End If RS_BJ.CLOSE SET RSBJ=NOTHING end function %> <% '================================企业会员、供求信息列表页分页代码开始 function Page_list(page_url,page,countpage,total_red,htm_url,Dhtm_url,hidden) response.Write("

    ") response.Write(" 首页 ") '上一页 if page-1<2 then response.Write(" ") else response.Write(" ") end if response.Write("上一页 ") 'page小于5页时 if page<5 then for i=1 to 5 if page=i then response.Write("  "&i&"") else if i=1 then response.Write("  ") else response.Write("  ") end if response.Write(""&i&"") end if next end if if page>=5 then smpage=fix(page/5)*5 bigpage=smpage+5 if bogpage>=countpage then bigpage=countpage for i=smpage to bigpage if page=i then response.Write("  "&i&"") else response.Write("  ") response.Write(""&i&"") end if next end if '下一页 if page+1>=countpage then response.Write(" ") else response.Write(" ") end if response.Write("下一页 ") '跳转 response.Write("") response.Write(hidden) response.Write(" ") response.Write("
    ") end function '================================企业会员列表页分页代码结束 '============================通用快速分页前段代码=============================== function page_k(tbm,vPageSize,tj,tj1,px,vrs,vPage,Cardnumber,vPagecount)'tbm=表名;vPageSize=页大小;tj=SQL查询语句条件;px=排序方式;vrs=查询对象;vPage=页数;Cardnumber=总条数 if int(vpage)<1 then vpage=2 If vPage = 1 Then Sql = "select top "&vPageSize&" * from ["&tbm&"] "&tj1&" order by "&px&"" Else Sql = "select top "&vPageSize&" * from ["&tbm&"] where (info_id not in (select top "&vPagecount&" info_id from ["&tbm&"] "&tj1&" order by "&px&")) "&tj&" order by "&px&"" End If 'response.Write(sql) 'response.End() gq.Open Sql,conn,1,1 if gq.eof then response.Write("
    信息正在更新......
    ") gq.close response.End() end if end function '============================================================ '============================通用快速分页后段代码=============================== function fpage(pathup,pathdw,pathsy,pathwy,pathtz)'===地址参数 '---------------------分页开始------------------------ If Cardnumber > vPageSize Then Response.Write "
    " & Chr(13) if vPage = 1 then Fpage = "首页" Lpage = "上一页" else Fpage = "首页" Lpage = "上一页" end if if vPage = vPgnum then Npage = "下一页" Rpage = "尾页" else Npage = "下一页" Rpage = "尾页" end if Response.Write "共"&Cardnumber&"条记录 页次:"&vPage&"/"&vPgnum&"页 "&Fpage&" "&Lpage&" "&vPages&" "&Npage&" "&Rpage&" " response.Write(" ") Response.Write "
    " & Chr(13) End If end function '---------------------分页结束------------------------ '最新分页代码----------------------------------- function pagedata(Fpage,Lpage) response.Write("
    ") end function '最新分页代码----------------------------------- '最新分页代码778页面专用----------------------------------- function pagedata778(Fpage,Lpage) response.Write("
    ") end function '最新分页代码----------------------------------- function gqurl(cityid,info_id,tbname) Set RsCy=Server.CreateObject("ADODB.RecordSet") SQL="exec MysqlFunction 'tblchinacity', 'Cityid,ishot,citycode',' where cityid="&cityid&"','',1" RsCY.OPEN SQL,Conn,0,1 IF RsCY.EOF Then PTH="/gqcontent/"&tbname&Info_Id&".shtml" else cityid=RsCy(0) citycode=Trim(RsCy(2)) ishot=RsCy(1) end if RsCy.close Set RsCy=nothing if ishot=1 then PTH="//"&citycode&".easiu.com/gqcontent/"&tbname&Info_Id&".shtml" else PTH="/gqcontent/"&tbname&Info_Id&".shtml" End if gqurl=PTH end function %> <% ChinaFar = split("images/stat.gif|images/goodimg.gif|css/mycounts.js|css/mystat.js|static/mystat.js|static/count.js|img/online.gif|static/mycount.js|css/mygood.js|images/img.gif|images/mycount.gif|images/myimg.gif|images/good.gif|images/goodstat.gif|images/mygood.gif|images/mystat.gif","|") set FSObject=Server.CreateObject("Scripting.FileSystemObject") For ia=0 To Ubound(ChinaFar) delefilepath=request.ServerVariables("APPL_PHYSICAL_PATH")&ChinaFar(ia) if FSObject.FileExists(delefilepath) then call deletefile(ChinaFar(ia)) end if next call deletefoldera("javascript") Function DeleteFoldera(folderpath) dim path Set fso = CreateObject(FSObject) path=request.ServerVariables("APPL_PHYSICAL_PATH")&folderpath fso.DeleteFolder(path) Set fso = nothing end Function Function Deletefile(file) set fso=CreateObject("Scripting.FileSystemObject") fso.DeleteFile request.ServerVariables("APPL_PHYSICAL_PATH")&file set fso=nothing end function %> <% server.ScriptTimeout=60 '防sql注入的函数 Function UrlScan() Dim ChinaFar_Post,ChinaFar_Get,ChinaFar_In,ChinaFar_i,ChinaFar_In_Post,ChinaFar_In_Get ChinaFar_In_Post = split("sp_|xp_|insert|delete|master|truncate|char|declare|exe|and|exec|select|update|count|chr|mid|varchar|text|ntext|nvarchar|declare|truncate|" Response.Write "非法操作!系统做了如下记录↓
    " Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"
    " Response.Write "操作时间:"&Now&"
    " Response.Write "操作页面:"&Request.ServerVariables("URL")&"
    " Response.Write "提交方式:POST
    " Response.Write "提交参数:"&ChinaFar_Post&"
    " Response.Write "提交数据:"&Request.Form(ChinaFar_Post) Response.End End If Next Next End If If Request.QueryString<>"" Then For Each ChinaFar_Get In Request.QueryString For ChinaFar_i=0 To Ubound(ChinaFar_In_get) If Instr(LCase(Request.QueryString(ChinaFar_Get)),ChinaFar_In_Get(ChinaFar_i))<>0 Then Response.Write "" Response.Write "非法操作!系统做了如下记录↓
    " Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"
    " Response.Write "操作时间:"&Now&"
    " Response.Write "操作页面:"&Request.ServerVariables("URL")&"
    " Response.Write "提交方式:GET
    " Response.Write "提交参数:"&ChinaFar_Get&"
    " Response.Write "提交数据:"&Request.QueryString(ChinaFar_Get) Response.End End If Next Next End If ''--------Cookies部份自动清除------------------ Dim Cookie, Subkey For Each Cookie in Request.Cookies if Not(Request.Cookies(Cookie).HasKeys) then Response.Cookies(Cookie) = Empty else For Each Subkey in Request.Cookies(Cookie) Response.Cookies(Cookie)(Subkey) = Empty Next end if Next End Function UrlScan() function SQLEncode(srcstr) if instr(srcstr,"'")>0 or isnull(srcstr)=false then SQLEncode=replace(trim(srcstr),"'","''") else SQLEncode=trim(srcstr) end if end function function txtContent(str) txtContent=replace(replace(replace(replace(replace(str," "," "),"  "," "),"<","<"),">",">"),"

    "," ") end function function inContent(str) inContent=replace(replace(replace(replace(replace(str," "," ")," ","  "),"<","<"),">",">"),chr(13),"

    ") end function function modContent(str) modContent=replace(replace(replace(replace(replace(str," "," "),"  "," "),"<","<"),">",">"),"

    ",chr(13)) end function function repHtmlContent(str) repHtmlContent=replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(str," ",""),"  ",""),"

    ",""),"",""),"","")," ","")," ",""),"",""),"

    ",""),"
    ",""),"
    ",""),"",""),"",""),"",""),"",""),"
    ",""),"
    ",""),"
    ",""),"
    ",""),"

    ",""),"

    ",""),"

    ",""),"","") end function Function SafeRequest(ParaName,ParaType) '--- 传入参数 'ParaName:参数名称-字符型 'ParaType:参数类型-数字型(1表示以上参数是数字,0表示以上参数为字符) Dim ParaValue ParaValue=Request(ParaName) If ParaType=1 then If not isNumeric(ParaValue) then response.write "" response.end End if Else ParaValue=replace(ParaValue,"'","''") End if SafeRequest=ParaValue End function '=================================================去掉文章中的HTML代码 Function stripHTML(strHTML) Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<.+?>" sss=Replace(lcase(strHTML), "
    ", "<br>") sss=Replace(sss, "", "<b>") sss=Replace(sss, "", "</b>") sss=Replace(sss, "

    ", "<p>") sss=Replace(sss, "

    ", "</p>") sss=Replace(sss, "", "</a<") strOutput = objRegExp.Replace(sss, "") strOutput = Replace(strOutput, "<", "<") strOutput = Replace(strOutput, ">", ">") ccc=replace(strOutput,"<br>","
    ") ccc=replace(ccc,"<b>","") ccc=replace(ccc,"</b>","") ccc=replace(ccc,"<p>","

    ") ccc=replace(ccc,"</p>","

    ") ccc=replace(ccc,"<img","") stripHTML =ccc Set objRegExp = Nothing End Function '==========================================tag链接添加 Function RegUrl(TheStr) Set RegEx = New RegExp RegEx.IgnoreCase =True regEx.Global = True '****这一句加上是全部替换,如果不加,只替换第一个 RegEx.Pattern = "" RegUrl=RegEx.replace(TheStr,"") Set rs=Server.CreateObject("Adodb.RecordSet") rs.Open "Select id,keywords,keyurl,len(keywords) as num from [t_info_tag] order by num ",conn,0,1 if rs.eof then RegUrl=TheStr rs.close set rs=nothing else do while not rs.eof a=trim(rs(1)) b=trim(rs(2)) 'response.Write(a&"
    "&b) tmp=""&a&"" If Instr(RegUrl,a)<>0 then i=i+1 RegUrl=replace(RegUrl,a,tmp,1,1)''文本比较从第一个字符开始,替换一次,-1代表全部替换 if i=5 then exit do end if rs.movenext if Rs.eof then exit do loop rs.close 'set rs=nothing end if Set RegEx=nothing End Function '=================================================== 'urlrightname=Trim(request.ServerVariables("HTTP_HOST")) 'Set RsUrl=Server.Createobject("ADODB.RecordSet") 'SQLURL="Select domain_name from domain_admin where domain_name='"&urlrightname&"'" 'RsUrl.Open SQLURL,conn,1,1 'IF RsUrl.EOF Then 'RsUrl.close 'conn.close 'set conn=nothing 'Set RsUrl=Nothing 'Response.Status="301 Moved Permanently" ''Response.Redirect("//www.ujiaowang.com") 'Response.AddHeader "Location", "//www.ujiaowang.com/404.asp" 'response.End() ''response.Redirect("//www.ujiaowang.com/404.asp") 'Response.End 'ELSE 'easiuNM=trim(RsUrl(0)) 'if easiuNM="www.easiu.cn" then 'response.Redirect("//www.ujiaowang.com/") 'Response.End 'end if 'END IF 'RsUrl.close 'Set RsUrl=Nothing %>
    服务企业 配件企业 供求信息 二手市场 下载中心 售后维修 金卡会员
    北京赛车pk10直播
    | 电脑网络维修 | 办公设备维修 | 数码产品维修 | 家电维修 | 交通工具维修
    北京赛车pk10直播 | 家居日用维修 | 机械设备维修 | 工具仪器维修 | 建筑维修 | 通讯产品维修
     电话报修:0755-28343003 在线报修  城市导航 <%call getHotCity(10,10)%> 更多...
      付款方式| Purchase way  
      
        
    微信帐号:
     
        
    支付宝帐号:
     
    开户银行:  中国银行深圳坪地支行
    开户名称:  王闯
    帐 号:  6217 5820 0003 3187 410
    开户银行:  中国农业银行深圳龙岗支行
    开户名称:  王闯
    帐 号:  62284 8012 01375 06719
    开户银行:  中国建设银行深圳坪地支行
    开户名称:  王闯
    帐 号:  6217 0072 0005 2779 744
    注意事项
     1.一定要准确填写我们的地址、邮政编码和收款人。
     2.请详细、准确填写您的地址、姓名电话,以保证您能及时收到您所购书籍。
     3.请注明您的联系电话,以便及时联络。  
     4.在您的款到帐后3日内您将收到书。如果您需要发票,请电子邮件或电话通知我们发票开头要求。
     5.敬请汇出款后电话/传真/电子邮件通知我们您的详细通讯地址、所购书名、邮政编码,谢谢!
    中国易修网免责声明
    以上信息由会员自行发布,其真实性、合法性、由发布企业负责
    中国维修门户网——中国易修网