<%
'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("
")
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("
")
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
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&" 本邮件由系统自动发送，请勿直接回复。 查询请登录微波射频网 - 用户中心
"
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)
%>
《微波与射频行业大全》 - 微波射频工程师必备工具书
<%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("Company_Name")%>
<%rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
承办单位：深圳睿领域科技有限公司 Retey Media Inc.
咨询电话：0755-88840350 23270255 收录传真：0755-27757880 联系邮箱:service@mwrf.net
Copyright www.mwrfchina.org All Rights Reserved 工业和信息化部备案：粤ICP备11063816号
