<% 'Code by safe3 On Error Resume Next if request.querystring<>"" then call stophacker(request.querystring,"'|<[^>]*?=[^>]*?&#[^>]*?>|\b(alert|confirm|prompt)\b|<[^>]*?>|^\+/v(8|9)|\bonmouse(over|move)=\b|\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("

您的提交带有不合法参数,谢谢合作!

了解更多请点击:360网站安全检测
") 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("

您的提交带有不合法参数,谢谢合作!

了解更多请点击:360网站安全检测
") Response.end end if set regex = nothing next next end function sub slog(logs) dim toppath,fs,Ts toppath = Server.Mappath("/log.htm") 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 %> <%Response.Buffer=True%> <% IsSqlDataBase=1 '定义数据库类别,0为Access数据库,1为SQL数据库 2为本地SQL数据库 If IsSqlDataBase=0 Then '''''''''''''''''''''''''''''' Access数据库 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' datapath ="database/" '数据库目录的相对路径 datafile ="bbsxp.mdb" '数据库的文件名 Connstr="DBQ="&server.mappath(""&datapath&""&datafile&"")&";DRIVER={Microsoft Access Driver (*.mdb)};" SqlNowString="Now()" SqlChar="'" ver="4.10" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' elseif IsSqlDataBase=1 then '''''''''''''''''''''''''''''' 远程SQL数据库 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' SqlLocalName ="(local)" '连接IP [ 本地用 (local) 外地用IP ] SqlUsername ="henry_yu" '用户名 SqlPassword ="reTey3Xritr" '用户密码 SqlDatabaseName="wbsp_china" '数据库名 ConnStr = "DRIVER=SQL Server; SERVER=" & SqlLocalName & "; UID=" & SqlUsername & "; password=" & SqlPassword & "; DATABASE=" & SqlDatabaseName & ";" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Elseif IsSqlDataBase=2 then '''''''''''''''''''''''''''''' 本地SQL数据库 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' SqlLocalName ="(local)" '连接IP [ 本地用 (local) 外地用IP ] SqlUsername ="sa" '用户名 SqlPassword ="3xritr" '用户密码 SqlDatabaseName="wbsp_net" '数据库名 ConnStr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";" SqlNowString="GetDate()" ver="4.10 SQL" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' End If Set conn=Server.CreateObject("ADODB.Connection") conn.open ConnStr if Request.ServerVariables("HTTP_X_FORWARDED_FOR")=empty then remoteaddr=Request.ServerVariables("REMOTE_ADDR") else remoteaddr=Request.ServerVariables("HTTP_X_FORWARDED_FOR") end if %> <% Const SiteName="微波射频网" '网站名称 const khao="专注微波、射频、无线、EMC、RFID、物联网、M2M产业的垂直新媒体,为业界提供最全面的信息传播和服务平台。" Const StieAbout="为微波、射频、无线、EMC、RFID、物联网、M2M专业领域提供资讯、产品、企业、技术、方案、人才招聘、研讨会、行业报告等服务。" Const SiteNameen="WBSP Net" '网站名称 Const khaoen="RF / Microwave" Const keywords="微波射频网,射频网,射频测试,微波技术,射频技术,无线通信测试,电磁兼容测试,电磁波,微波射频器件,射频集成电路,毫米波,电磁兼容,RFID,EMC,物联网技术,M2M技术,无线技术" Const keywordsen="RF / Microwave Components, Semiconductor,chipsets,EMI,EMS,EMC,EMP,EW,Automotive,Shipbuilding,Digital TV IPTV,Wireless Terminal,RF / Wireless Communication,Data Acquisition,Signal Analysis,Power Electronics Test,Microwave Test Systems,Defenese , Aerospace" Const SiteUrl="http://www.wbsp.net" '网站地址 Const WebmasterName="Henry Yu" '联系人 Const UploadUrl="http://upload.wbsp.net" '上传域名 Const WebmasterEmail="henry.yu@wbsp.net" '联系信箱 Const WebmasterTel="0755-88840350" Const WebmasterFax="0755-88840350" Const WebmasterVip=0 '0不起用VIP限制功能 1起用VIP限制功能 const pagelist=8 '分页面时每页显示记录数 const wenlist=25 Const MaxFileSize=200 '上传文件大小限制 Const SaveUpFilesPath="UploadFiles" '存放上传文件的目录 Const UpFileType="gif|jpg|swf|mp3" '允许的上传文件类型 Const P_TAGS_SPLIT = " " 'TAG Split Const P_TAGS_MAX = 10 'TAGS IN ONE BLOG Const P_TAGS_DESC = "日志标签" 'TAG DESC Const P_TAGS_ICON = "TAG" 'TAG DESC Const P_TAGS_CLOUD = 1 '1:CLOUD;2:LIST DESC Const P_TAGS_PerLine = 8 Const P_TAGS_SYSURL = "tags.asp" Const P_TRACKBACK_MAX = 5 Const P_QQ_NAME = "群组" Const P_QQ_MASTERNAME = "组长" Const p_Group_MaxUser=500 Const P_Site_Hours = 0 '服务器与时差设置 Const P_BLOG_UPDATEPAUSE = 50 '全站更新时,每更新多少篇日志暂停一次(100以内) '请在此修改相关信息 mailserver="60.191.248.101" '邮局服务器地址(smtp服务器地址) mailusername="weekly@mwrfjournal.com" 'smtp服务器验证登陆名(邮局中开设的任何一个信箱的地址) mailpassword="3xritr" 'smtp服务器验证密码 (信箱密码) mailreceive="service@mwrfchina.com" '平台管理员信箱 mailtocc="ad@mwrfchina.com" '返回邮件CC列表 sub message(xx) response.write("") end sub %> <% function Companyperson(Company_person) if Company_person=0 then Response.Write "保密" elseif Company_person=1 then Response.Write "1~49人" elseif Company_person=2 then Response.Write "50~99人" elseif Company_person=3 then Response.Write "100~499人" elseif Company_person=4 then Response.Write "500~999人" elseif Company_person=5 then Response.Write "1000人以上" end if end function function personsex(sex) if sex=0 then Response.Write "保密" elseif sex=1 then Response.Write "先生" elseif sex=2 then Response.Write "女士" end if end function function CompanyCertificate(C_Typeid) if C_Typeid=0 then Response.Write "保密" elseif C_Typeid=1 then Response.Write "税务登记类证书" elseif C_Typeid=2 then Response.Write "经营许可类证书" elseif C_Typeid=3 then Response.Write "产品类证书" elseif C_Typeid=4 then Response.Write "其它证书" end if end function function Companyjy(Company_jy) if Company_jy=1 then Response.Write "最终用户" elseif Company_jy=2 then Response.Write "制造商" elseif Company_jy=3 then Response.Write "代理商/分销商" elseif Company_jy=4 then Response.Write "系统集成商" elseif Company_jy=5 then Response.Write "OEM厂商" elseif Company_jy=6 then Response.Write "研究院所" elseif Company_jy=7 then Response.Write "高等院校" elseif Company_jy=8 then Response.Write "检测认证机构" elseif Company_jy=9 then Response.Write "展会公司" elseif Company_jy=10 then Response.Write "组织" elseif Company_jy=11 then Response.Write "其它" end if end function function Companyxz(Company_xz) if Company_xz=1 then Response.Write "私营/民营企业" elseif Company_xz=2 then Response.Write "中外合营(合资合作)" elseif Company_xz=3 then Response.Write "国有企业" elseif Company_xz=4 then Response.Write "国内上市公司" elseif Company_xz=5 then Response.Write "外商独资" elseif Company_xz=6 then Response.Write "外企办事处" elseif Company_xz=7 then Response.Write "政府机关/非盈利机构" elseif Company_xz=8 then Response.Write "事业单位" end if end function function CompanyDown(down_typeid) set Rsq=server.createobject("adodb.recordset") Sqlq = "SELECT TypeName FROM wbsp_Company_Down_Type where Typeid=" & down_typeid Rsq.Open Sqlq, Conn, 1,1 if rsq.eof and rsq.bof then response.write "没有分类" else response.write ""&Rsq("TypeName")&"" end if Rsq.close set rsq=nothing end function function Companycatalog(catalog_typeid) set Rsq=server.createobject("adodb.recordset") Sqlq = "SELECT Title FROM wbsp_Class where Class_typeid=1 and Code='"&catalog_typeid&"'" Rsq.Open Sqlq, Conn, 1,1 if rsq.eof and rsq.bof then response.write "没有分类" else response.write ""&Rsq("Title")&"" end if Rsq.close set rsq=nothing end function '商机分类 function Companyinfo_typeid(info_typeid) if info_typeid=0 then Response.Write "供应" elseif info_typeid=1 then Response.Write "求购" elseif info_typeid=2 then Response.Write "招标" elseif info_typeid=3 then Response.Write "合作" elseif info_typeid=4 then Response.Write "招代" elseif info_typeid=5 then Response.Write "做代" elseif info_typeid=6 then Response.Write "其它" end if end function '工作年限 function job_workyear(workyear) if workyear=0 then Response.Write "不限" elseif workyear=1 then Response.Write "在读学生" elseif workyear=2 then Response.Write "应届毕业生" elseif workyear=3 then Response.Write "一年以上" elseif workyear=4 then Response.Write "二年以上" elseif workyear=5 then Response.Write "三年以上" elseif workyear=6 then Response.Write "五年以上" elseif workyear=7 then Response.Write "八年以上" elseif workyear=8 then Response.Write "十年以上" end if end function '学历要求 function job_degreefrom(degreefrom) if degreefrom=0 then Response.Write "不限" elseif degreefrom=1 then Response.Write "初中" elseif degreefrom=2 then Response.Write "高中" elseif degreefrom=3 then Response.Write "中技" elseif degreefrom=4 then Response.Write "中专" elseif degreefrom=5 then Response.Write "大专" elseif degreefrom=6 then Response.Write "本科" elseif degreefrom=7 then Response.Write "硕士" elseif degreefrom =8 then Response.write("MBA") elseif degreefrom =9 then Response.write("博士") elseif degreefrom =10 then Response.write("其他") end if end function '招聘信息有效期 function job_infodate(job_date) if job_date=7 then Response.Write "一周" elseif job_date=15 then Response.Write "半月" elseif job_date=30 then Response.Write "一个月" elseif job_date=90 then Response.Write "三个月" elseif job_date=180 then Response.Write "半年" end if end function function jobprovidesalary(providesalary) if providesalary=0 then Response.write "面议" elseif providesalary=1 then Response.write "1500以下" elseif providesalary=2 then Response.write "1500-1999" elseif providesalary=3 then Response.write "2000-2999" elseif providesalary=4 then Response.write "3000-4499" elseif providesalary=5 then Response.write "4500-5999" elseif providesalary=6 then Response.write "6000-7999" elseif providesalary=7 then Response.write "8000-9999" elseif providesalary=8 then Response.write "10000-14999" elseif jprovidesalary=9 then Response.write "15000-19999" elseif providesalary=10 then Response.write "20000-29999" elseif providesalary=11 then Response.write "30000-49999" elseif providesalary=12 then Response.write "50000及以上" end if end function '频段 function frequency_units(frequencyunits) if frequencyunits=1 then Response.Write "kHz" elseif frequencyunits=2 then Response.Write "MHz" elseif frequencyunits=3 then Response.Write "GHz" end if end function '自定义分类 function personcatalog(catalogid) set Rsq=server.createobject("adodb.recordset") Sqlq = "SELECT catalog_title FROM wbsp_Company_Catalog where qizuflag=1 and catalogid=" & catalogid Rsq.Open Sqlq, Conn, 1,1 if rsq.eof and rsq.bof then response.write "没有分类" else response.write ""&Rsq("catalog_title")&"" end if Rsq.close set rsq=nothing end function '下载分类查询 function DownTypeName(typeid) set Rsq=server.createobject("adodb.recordset") Sqlq = "SELECT TypeName FROM wbsp_Company_Down_Type where Typeid=" & Typeid Rsq.Open Sqlq, Conn, 1,1 if rsq.eof and rsq.bof then response.write "所有分类" else response.write ""&Rsq("TypeName")&"" end if Rsq.close set rsq=nothing end function '公司所属查询 function Companynametitle(UserID) set Rsq=server.createobject("adodb.recordset") Sqlq = "SELECT Company_name FROM wbsp_Company where qizuflag=1 and UserID=" & UserID Rsq.Open Sqlq, Conn, 1,1 if rsq.eof and rsq.bof then response.write "公司不存在" else response.write ""&Rsq("Company_name")&"" end if Rsq.close set rsq=nothing end function '公司所属查询 function Companyname(UserID) set Rsq=server.createobject("adodb.recordset") Sqlq = "SELECT Company_name FROM wbsp_Company where qizuflag=1 and UserID=" & UserID Rsq.Open Sqlq, Conn, 1,1 if rsq.eof and rsq.bof then response.write "公司不存在" else response.write ""&Rsq("Company_name")&"" end if Rsq.close set rsq=nothing end function '职位所属查询 function Companyjobname(jobid) set Rsq=server.createobject("adodb.recordset") Sqlq = "SELECT job_title FROM wbsp_Job_list where qizuflag=1 and jobid=" & jobid Rsq.Open Sqlq, Conn, 1,1 if rsq.eof and rsq.bof then response.write "没有职位" else response.write ""&Rsq("job_title")&"" end if Rsq.close set rsq=nothing end function '简历所属查询 function PersonResumename(UserID) set Rsq=server.createobject("adodb.recordset") Sqlq = "SELECT Resume_Last_Name,Resume_First_Name FROM wbsp_Resume where qizuflag=1 and UserID=" & UserID Rsq.Open Sqlq, Conn, 1,1 if rsq.eof and rsq.bof then response.write "简历不存在" else response.write ""&Rsq("Resume_Last_Name")&Rsq("Resume_First_Name")&"" end if Rsq.close set rsq=nothing end function '产品所属查询 function Companyproductname(productid) set Rsq=server.createobject("adodb.recordset") Sqlq = "SELECT product_title,product_type FROM wbsp_company_product where qizuflag=1 and productid=" & productid Rsq.Open Sqlq, Conn, 1,1 if rsq.eof and rsq.bof then response.write "没有产品" else response.write ""&Rsq("product_title")&" "&Rsq("product_type")&"" end if Rsq.close set rsq=nothing end function '商机所属查询 function CompanyInfoname(infoid) set Rsq=server.createobject("adodb.recordset") Sqlq = "SELECT product_title,product_type FROM wbsp_Company_info where qizuflag=1 and infoid=" & infoid Rsq.Open Sqlq, Conn, 1,1 if rsq.eof and rsq.bof then response.write "没有产品" else response.write ""&Rsq("product_title")&" "&Rsq("product_type")&"" end if Rsq.close set rsq=nothing end function '下载所属查询 function Companydonwname(DownID) set Rsq=server.createobject("adodb.recordset") Sqlq = "SELECT down_title FROM wbsp_company_down where qizuflag=1 and down_id=" & DownID Rsq.Open Sqlq, Conn, 1,1 if rsq.eof and rsq.bof then response.write "没有资料" else response.write ""&Rsq("down_title")&"" end if Rsq.close set rsq=nothing end function '图书分类 function Book_Sort_Name(Typeid) set Rsq=server.createobject("adodb.recordset") Sqlq = "SELECT TypeName FROM wbsp_Book_Sort where Typeid=" & Typeid Rsq.Open Sqlq, Conn, 1,1 if rsq.eof and rsq.bof then response.write "没有分类" else response.write ""&Rsq("TypeName")&"" end if Rsq.close set rsq=nothing end function '品牌所属查询 function CompanyBrand(BrandID) set Rsq=server.createobject("adodb.recordset") Sqlq = "SELECT Brand_title FROM wbsp_Company_Brand where qizuflag=1 and BrandID=" & BrandID Rsq.Open Sqlq, Conn, 1,1 if rsq.eof and rsq.bof then response.write "没有品牌" else response.write ""&Rsq("Brand_title")&"" end if Rsq.close set rsq=nothing end function '岗位类型查询 function JobTypeName(TypeID) set Rsq=server.createobject("adodb.recordset") Sqlq = "SELECT Job_TypeName FROM wbsp_Job_Type where TypeID="&TypeID&"" Rsq.Open Sqlq, Conn, 1,1 if rsq.eof and rsq.bof then response.write "没有填写" else response.write ""&Rsq("Job_TypeName")&"" end if Rsq.close set rsq=nothing end function '简历用户教育经历调用 function Edu_school_title(UserID) set Rsq=server.createobject("adodb.recordset") Sqlq = "SELECT Edu_school,Edu_major FROM wbsp_Resume_Edu where qizuflag=1 and UserID=" & UserID&" order by Eduid asc" Rsq.Open Sqlq, Conn, 1,1 if rsq.eof and rsq.bof then response.write "没有填写" else response.write ""&Rsq("Edu_school")&" - "&Rsq("Edu_major")&"" end if Rsq.close set rsq=nothing end function 'VIP申请类型 function App_type(App_typeid) if App_typeid=0 then Response.Write "VIP会员(基础套餐)1200元/年" elseif App_typeid=1 then Response.Write "VIP会员(铜牌套餐)2800元/年" elseif App_typeid=2 then Response.Write "VIP会员(银牌套餐)4800元/年" elseif App_typeid=3 then Response.Write "VIP会员(金牌套餐)6800元/年" end if end function '付款方式 function Play_type(Play_typeid) if Play_typeid=0 then Response.Write "网银在线支付" elseif Play_typeid=1 then Response.Write "银行汇款" elseif Play_typeid=2 then Response.Write "支付宝支付" end if end function Public Function job_city(province, city) Dim tmpstr tmpstr = "" tmpstr = tmpstr & "   " tmpstr = tmpstr & "" tmpstr = tmpstr & "" job_city = tmpstr End Function Public Function resume_city(province, city) Dim tmpstr tmpstr = "" tmpstr = tmpstr & "   " tmpstr = tmpstr & "" tmpstr = tmpstr & "" resume_city = tmpstr End Function %> <% Function ResponseCookies(Key,Value,Expires) DomainPath="/" 'DomainSite=".9music.cn" Response.Cookies(Key)=""&Value&"" if Expires<>0 then Response.Cookies(Key).Expires=date+Expires 'Response.Cookies(Key).Domain = DomainSite Response.Cookies(Key).Path = DomainPath End Function Public Function CleanCookies() DomainSite=".wbsp.net" DomainPath="/" For Each objCookie In Request.Cookies Response.Cookies(objCookie)= "" Response.Cookies(objCookie).Path=DomainPath Response.Cookies(objCookie).Domain=DomainSite Next End Function Public Function chkdomain(domain) Dim name, i, c name = domain chkdomain = True If Len(name) <= 0 Then chkdomain = False Exit Function End If For i = 1 To Len(name) c = LCase(Mid(name, i, 1)) If InStr("abcdefghijklmnopqrstuvwxyz-", c) <= 0 And Not IsNumeric(c) Then chkdomain = False Exit Function End If Next End Function Public Function filt_badstr(sSql) If ISNull(sSql) Then Exit Function sSql=Trim(sSql) If sSql="" Then Exit Function sSql=Replace(sSql,Chr(0),"") sSql=Replace(sSql,"'","‘") sSql=Replace(sSql,"%","%") 'sSql=Replace(sSql,"-","-") filt_badstr=sSql End Function Public Function strLength(Str) On Error Resume Next Dim WINNT_CHINESE WINNT_CHINESE = (Len("中国") = 2) If WINNT_CHINESE Then Dim l, t, c Dim i l = Len(Str) t = l For i = 1 To l c = Asc(Mid(Str, i, 1)) If c < 0 Then c = c + 65536 If c > 255 Then t = t + 1 End If Next strLength = t Else strLength = Len(Str) End If If Err.Number <> 0 Then Err.Clear End Function Public Function chk_regname(regname) Dim regbadstr, i regbadstr = Split(setup(51, 0), vbCrLf) chk_regname = False For i = 0 To UBound(regbadstr) If Trim(regbadstr(i)) <> "" Then If Trim(regname) = Trim(regbadstr(i)) Then chk_regname = True End If End If If chk_regname = True Then Exit For Next End Function Public Function chk_badword(Str) Dim badstr, i, n, tmp tmp=setup(50, 0) if instr(tmp,"$$$") then tmp=split(tmp,"$$$") badstr=tmp(1) else chk_badword=0 exit function end if badstr = Split(badstr, vbCrLf) chk_badword = 0 For i = 0 To UBound(badstr) If Trim(badstr(i)) <> "" Then If InStr(Str, Trim(badstr(i))) > 0 Then chk_badword = 1 exit function End If End If Next End Function Public Function filtpath(Str) If is_relativepath = 1 Then Dim nurl nurl = Trim("http://" & request.ServerVariables("SERVER_NAME")) nurl = nurl & request.ServerVariables("SCRIPT_NAME") nurl = Left(nurl, InStrRev(nurl, "/")) filtpath = Replace(Str, nurl, "") Else filtpath = Str End If End Function Public Function filt_badword(Str) Dim badstr,i,tmp tmp=setup(50, 0) if instr(tmp,"$$$") then tmp=split(tmp,"$$$") badstr=tmp(0) else badstr=tmp end if badstr = Split(badstr, vbCrLf) For i = 0 To UBound(badstr) If Trim(badstr(i)) <> "" Then Str = Replace(Str, badstr(i), "***") End If Next filt_badword = Str End Function '------------------------------------------------ 'ServerDate(byval strDate) '服务器时差设置 '回复/留言及发表日志 '接收Trackback '------------------------------------------------ Function ServerDate(byval strDate) Dim intHours If Not isDate(strDate) Then Exit Function intHours=P_Site_Hours If Not isNumeric(intHours) Then intHours=0 ServerDate=strDate Exit Function End If intHours =Int(intHours) If intHours>24 OR intHours<-24 Then intHours=0 ServerDate=strDate Exit Function End If ServerDate=Dateadd("h",intHours,strDate) End Function '------------------------------------------------ 'EncodeJP(byval strContent) '日文编码 '10k文章编码过程小于0.01秒,不会影响到执行效率 '目前需要更新的位置为: '站点配置里的各个项目:名称、描述 '发布文章时的标题、内容、关键字 '发布留言/评论时的内容 '搜索时对关键字进行编码 '暂时不考虑注册名问题 '可与其他函数配合使用 '------------------------------------------------ Function EncodeJP(byval strContent) If strContent="" Then Exit Function 'SQL版本不进行编码 If IS_SQLDATA=1 Then EncodeJP=strContent Exit Function End If strContent=Replace(strContent,"ガ","ガ") strContent=Replace(strContent,"ギ","ギ") strContent=Replace(strContent,"グ","グ") strContent=Replace(strContent,"ア","ア") strContent=Replace(strContent,"ゲ","ゲ") strContent=Replace(strContent,"ゴ","ゴ") strContent=Replace(strContent,"ザ","ザ") strContent=Replace(strContent,"ジ","ジ") strContent=Replace(strContent,"ズ","ズ") strContent=Replace(strContent,"ゼ","ゼ") strContent=Replace(strContent,"ゾ","ゾ") strContent=Replace(strContent,"ダ","ダ") strContent=Replace(strContent,"ヂ","ヂ") strContent=Replace(strContent,"ヅ","ヅ") strContent=Replace(strContent,"デ","デ") strContent=Replace(strContent,"ド","ド") strContent=Replace(strContent,"バ","バ") strContent=Replace(strContent,"パ","パ") strContent=Replace(strContent,"ビ","ビ") strContent=Replace(strContent,"ピ","ピ") strContent=Replace(strContent,"ブ","ブ") strContent=Replace(strContent,"ブ","ブ") strContent=Replace(strContent,"プ","プ") strContent=Replace(strContent,"ベ","ベ") strContent=Replace(strContent,"ペ","ペ") strContent=Replace(strContent,"ボ","ボ") strContent=Replace(strContent,"ポ","ポ") strContent=Replace(strContent,"ヴ","ヴ") EncodeJP=strContent End Function '------------------------------------------------ 'ProtectSql(sSql) '用于接收地址栏参数传递时SQL组合保护 '------------------------------------------------ '防止SQL注入 Function ProtectSQL(sSql) If ISNull(sSql) Then Exit Function sSql=Trim(sSql) If sSql="" Then Exit Function sSql=Replace(sSql,Chr(0),"") sSql=Replace(sSql,"'","‘") sSql=Replace(sSql," ","") sSql=Replace(sSql,"%","%") sSql=Replace(sSql,"-","-") ProtectSQL=sSql End Function '数字检测 Function RequestInt(fString) RequestInt=Request(fString) if IsNumeric(RequestInt) then RequestInt=int(RequestInt) else RequestInt=0 end if End Function '用于用户发布的各种信息过滤,带脏话过滤 Function HTMLEncode(fString) If Not IsNull(fString) Then fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = Replace(fString, CHR(32), " ") '  fString = Replace(fString, CHR(9), " ") '  fString = Replace(fString, CHR(34), """) 'fString = Replace(fString, CHR(39), "'") '单引号过滤 fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "

") fString = Replace(fString, CHR(10), "
") 'fString=ChkBadWords(fString) HTMLEncode = fString End If End Function function nohtml(str) if isnull(str) or trim(str)="" then nohtml="" exit function end if dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\<.[^\<]*\>)" str=re.replace(str," ") re.Pattern="(\<\/[^\<]*\>)" str=re.replace(str," ") set re=nothing str=replace(str,chr(34),"") str=replace(str,"'","") nohtml=str end function '通用分页 sub pager(byval currentPage,byval mpage,byval MaxPerPage,byval totalPut,byval keys,byval urls) Dim pageno,pp,p,pno Response.Write "页次:"¤tPage&"/"&mpage&",每页"&MaxPerPage&"个," if keys<>"" then Response.Write "搜到" else Response.Write "当前" end If Response.Write "结果信息"&totalPut&"条 " pageno=currentPage if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage Then pageno=1 Response.Write "[ " if cint(pageno)>1 Then Response.Write "" End If Response.Write "<<- " if cint(pageno)>1 Then Response.Write "" End If Response.Write "<- " pp=cint(pageno)-3 if pp<1 then pp=1 for pno=pp to mpage p=p+1 if pno=cint(pageno) Then Response.Write ""&pno&" " Else Response.Write ""&pno&" " End If if p>=7 then exit For Next if cint(pageno)< mpage Then Response.Write "" End If Response.Write "-> " if cint(pageno)< mpage Then Response.Write "" End If Response.Write "->> ]" end sub '成功信息显示 sub sucessMsg(byval msg) Response.Write "" & vbCrlf Response.Write "" & vbCrlf call head() Response.Write "投票系统" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.End end sub '页面头部信息 sub head() Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf Response.Write "" & vbCrlf end sub Function GetUrl() on error resume next Dim strTemp If LCase(Request.ServerVariables("HTTPS"))="off" Then strTemp="http://" Else strTemp="https://" End If strTemp=strTemp&Request.ServerVariables("SERVER_NAME") If Request.ServerVariables("SERVER_PORT")<>80 Then strTemp=strTemp&":"&Request.ServerVariables("SERVER_PORT") End if strTemp=strTemp&Request.ServerVariables("URL") If Trim(Request.QueryString)<>"" Then strTemp=strTemp&"?"&Trim(Request.QueryString) End if GetUrl=strTemp End Function Public Function FormatDate(DateAndTime, para) On Error Resume Next Dim y, m, d, h, mi, s, strDateTime If Not IsNumeric(para) Then Exit Function If Not IsDate(DateAndTime) Then Exit Function y = CStr(Year(DateAndTime)) m = CStr(Month(DateAndTime)) If Len(m) = 1 Then m = "0" & m d = CStr(Day(DateAndTime)) If Len(d) = 1 Then d = "0" & d h = CStr(Hour(DateAndTime)) If Len(h) = 1 Then h = "0" & h mi = CStr(Minute(DateAndTime)) If Len(mi) = 1 Then mi = "0" & mi s = CStr(Second(DateAndTime)) If Len(s) = 1 Then s = "0" & s Select Case para Case "1" strDateTime = y & "-" & m & "-" & d Case "2" strDateTime = right(y,2) & "-" &m & "-" & d Case "3" strDateTime = m & "-" & d Case "4" strDateTime = y & "-" & m Case "5" strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s Case Else strDateTime = DateAndTime End Select FormatDate = strDateTime End Function 'asp截取文章标题的长度达大小 function cutstr(tempstr,tempwid) if len(tempstr)>tempwid then cutstr=left(tempstr,tempwid)&"." else cutstr=tempstr end if end function 'email合法性检测 function IsValidEmail(email) dim names, name, i, c IsValidEmail = true names = Split(email, "@") if UBound(names) <> 1 then IsValidEmail = false exit function end if for each name in names if Len(name) <= 0 then IsValidEmail = false exit function end if for i = 1 to Len(name) c = Lcase(Mid(name, i, 1)) if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then IsValidEmail = false exit function end if next if Left(name, 1) = "." or Right(name, 1) = "." then IsValidEmail = false exit function end if next if InStr(names(1), ".") <= 0 then IsValidEmail = false exit function end if i = Len(names(1)) - InStrRev(names(1), ".") if i <> 2 and i <> 3 then IsValidEmail = false exit function end if if InStr(email, "..") > 0 then IsValidEmail = false end if end function Sub SendMail(MailAddRecipient,MailSubject,MailBody) if MailAddRecipient=""or MailSubject="" or MailBody="" then Exit Sub on error resume next MailBody=MailBody&"
本邮件由系统自动发送,请勿直接回复。
查询请登录微波射频网 - 用户中心

微波射频网(WBSP.Net) - 专注微波、射频、毫米波、无线、光电产业的垂直新媒体,为业界提供最全面的信息传播和服务平台。
Http://www.wbsp.net

" Set JMail=Server.CreateObject("JMail.Message") JMail.Charset="gb2312" JMail.ContentType = "text/html" JMail.From =mailreceive JMail.FromName ="微波射频网(WBSP.Net)" AddRecipientArray=split(MailAddRecipient,";") For i=0 to Ubound(AddRecipientArray) if ""&AddRecipientArray(i)&""<>"" then JMail.AddRecipient AddRecipientArray(i) Next JMail.Subject = MailSubject JMail.Body = MailBody JMail.MailServerUserName =mailusername JMail.MailServerPassword =mailpassword JMail.Send (mailserver) Set JMail=nothing If Err Then Response.Write ""&MailAddRecipient&"邮件发送失败!错误原因:" & Err.Description & "
" On Error GoTo 0 End Sub Public Function type_city(province, city) Dim tmpstr tmpstr = "" tmpstr = tmpstr & " " tmpstr = tmpstr & "" tmpstr = tmpstr & "" type_city = tmpstr End Function sub message_pag(xx) response.write(""&xx&"") response.end end sub sub message(xx) response.write("") end sub sub connclose conn.close set conn=nothing end sub %> <% sql1="select count(DQCID) from wbsp_Dquan_Company where qizuflag=1 and C_Flag=1" set stat_DQC=conn.execute(sql1) stat_DQC=stat_DQC(0) %> 《微波与射频行业大全》 - 微波射频工程师必备工具书
" & vbCrlf Response.Write "

" & vbCrlf Response.Write "点此返回再次操作  进入管理首页" & vbCrlf '返回时会自动刷新页面 Response.Write "
微波射频网 | 资讯 | 专题 | 微波技术 | 下载 | 视频 | 电子商务 | 招聘 | 活动 | 图书 | 博客 | 社区 | 周刊 | 百科 | 工具
《微波与射频行业大全》
网站首页 大全介绍 大全动态 企业收录 赞助大全 赠阅申请 派发计划 联系我们 电子书 微波在线 EN
 派发进度查询  
姓名:
邮箱:
我要申请赠阅
最新动态  
《微波射频技术》杂志征文通知 诚邀专家投稿 2015-07-29
在线技术讲座:微带传输线无源交调测试可重复性 2015-06-10
微波射频网参展2015年微波毫米波科技成果及产品展 2015-05-31
微波射频网参展2015年深圳国际微波无线技术展览会 2015-03-30
微波射频网参展2014第九届上海微波及天线技术展览会 2014-11-01
<%set rs=server.createobject("adodb.recordset") sql="select top 3 Company_Web,Company_Name from wbsp_Dquan_Company where qizuflag=1 and C_Flag=1 order by newid()" rs.open sql,conn,1,1 do while not rs.eof %> <%rs.movenext loop rs.close set rs=nothing conn.close set conn=nothing %>
随机显示 V1版收录 <%=stat_DQC%> 家企业
<%=rs("Company_Name")%>
 支持单位  
·中国通信工业协会物联网行业分会
·暨南猎狐无线电协会
·微波射频测试技术大会
·中国国际通信展览会
·中国无线电大会
·深圳4G无线射频技术大会
·微波通信产业与技术发展论坛
·第85届中国电子展
·深圳无线通讯产业联盟
·华东国际物联网技术及应用展览会
·黄岗学院微波协会
赞助厂商
合作媒体

承办单位:深圳睿领域科技有限公司  Retey Media Inc.
咨询电话:0755-88840350 23270255   收录传真:0755-27757880 联系邮箱:service@mwrf.net
Copyright www.mwrfchina.org All Rights Reserved   工业和信息化部备案:粤ICP备11063816号