📄 temp_inc.asp
字号:
<%
'朱************************************ start **************************************************
'作用：标签函数通用匹配替换，自动识别标签函数名称和参数及信息变量名称，自动调用函数执行和变量值
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Function Hope_HtmlResult(str)
resultHtml=Hope_htmlAll(str)
resultHtml=Hope_htmlAll(resultHtml) '使用三层，考虑资源问题
Hope_HtmlResult=resultHtml
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Function Hope_htmlAll(str)
str=Hope_htmlAllCus(str) '替换自定义标签内容
strInfo=RegExpTest("#\w+(\((\b[,0-9]+\b)?\))?#", str) '调用函数(RegExpTest)匹配出所有str变量中的标签
If strInfo<>"" Then
arrInfo=Split(strInfo,"|")
For i=0 To ubound(arrInfo)-1
If Left(arrInfo(i),3)="#WS" Then
'处理自定义标签^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
cusLabelcon=ReplceCusLabel(arrInfo(i)) '提出标签名称进行赋值
str=Replace(str,arrInfo(i),cusLabelcon) '替换自定义标签内容
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Else
If InStr(arrInfo(i),"(")>0 Then
'替换函数标签^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
funTitle=tempTitle(arrInfo(i)) '调用函数(temptitle)取函数名称
arry=tempInfo(arrInfo(i)) '调用函数(tempinfo)取参数列表
On Error Resume Next
str=Replace(str,arrInfo(i),Eval(funTitle&"("&arry&")"))'取函数返回值
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Else
'替换静态标签和无参函数标签^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
staTitle=staticTitle(arrInfo(i)) '调用函数(statictitle)取变量名称
On Error Resume Next
str=Replace(str,arrInfo(i),Eval(staTitle)) '取变量值
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
End If
Next
End If
Hope_htmlAll=str
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'处理自定义标签^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Function Hope_htmlAllCus(str)
strInfo=RegExpTest("#WS_\w+#", str) '调用函数(RegExpTest)匹配出所有str变量中的标签
If strInfo<>"" Then
arrInfo=Split(strInfo,"|")
For i=0 To ubound(arrInfo)-1
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
cusLabelcon=ReplceCusLabel(arrInfo(i)) '提出标签名称进行赋值
str=Replace(str,arrInfo(i),cusLabelcon) '替换自定义标签内容
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Next
End If
Hope_htmlAllCus=str
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'查出该自定义标签的内容^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Function ReplceCusLabel(str)
strs=""
nostr=str
Set rscul=server.CreateObject("ADODB.Recordset")
sqlcul="select top 1 lcontent from Websen_cuslabel where lname='"&str&"'"
rscul.Open sqlcul,conn,1,1
If rscul.Eof Then
strs=nostr
End If
If Not rscul.Eof Then
strs=rscul("lcontent")
rscul.close
End If
ReplceCusLabel=strs
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'获取变量名称
Function staticTitle(str)
no=Len(str)-2
staticTitle=Mid(str,2,no)
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'获取标签中的函数名称
Function tempTitle(str)
nstart=Instr(str,"(")
tempTitle=mid(str,2,nstart-2)
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'检测标签函数或信息变量的重复,多个性
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match In Matches ' 遍历匹配集合。
On Error Resume Next
RetStr = RetStr & Match.Value&"|"
Next
RegExpTest = RetStr
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'获取标签中的函数中的参数列表
Function tempInfo(str) '#HOPE_newinfo(1,10,5,100)# '1,10,5,100
nstart=Instr(str,"(")
nend=Instr(str,")")
tempInfo=Mid(str,nstart+1,nend-nstart-1)
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Function noHtml(str)
Dim re
Set re=New RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="(\<.*?\>)"
str=re.Replace(str,"")
re.Pattern="(\<\/.*?\>)"
str=re.Replace(str,"")
noHtml=str
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'*************************************** End *******************************************************
'以下是标签函数和信息变量：
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'信息变量---------网站公用配置信息：
HOPE_WebUrl=WebUrl '网站地址 #HOPE_WebUrl#
HOPE_Webname=webname '网站名称 #HOPE_Webname#
HOPE_Title=webname
HOPE_tel=Systemtel '网站联系电话 #HOPE_tel#
HOPE_fax=hotfax '网站联系传真 #HOPE_fax#
HOPE_Copyright=Copyright '网站版权 #HOPE_Copyright#
HOPE_address=address '网站联系地址 #HOPE_address#
HOPE_post=HOPE_post '网站联系邮政编码 #HOPE_post#
HOPE_Email=SystemEmail '网站联系邮箱 #HOPE_Email#
HOPE_ComName=worldname '本站的公司名称 #HOPE_ComName#
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'搜索热门关键字#HOPE_hotkey（Kind,brnum,Num）#
'Kind--属于那个栏目(0-全部，1-产品、2-供求、3-企业、4-行业、5-展会)
'brnum--分几列显示
'Num--显示多少数量
Function HOPE_hotkey(Kind,brnum,Num)
str=""
If Kind=0 Then
searchstr=""
Else
searchstr=" where Websen_KeyKindId="&Kind
End If
Set rskey2=Server.CreateObject("ADODB.Recordset")
sqlkey2="select top "&Num&" * from Websen_Keywords "&searchstr
rskey2.open sqlkey2,conn,1,1
If rskey2.Eof Then
str=""
End If
If rskey2.Eof Then
str="暂无数据"
Else
Dim h
h=1
str=str&"<TABLE border=0 cellpadding=0 align=center cellspacing=0 width='100%'><tr><td style=word-break:break-all align=left valign=middle width=100> 热门关键字：</td><td align=left><TABLE border=0 cellpadding=0 cellspacing=0 align=left ><tr>"
Do While Not rskey2.Eof
str=str&"<td align=left><a href="&HOPE_InstallDir&"search/searchproduct.asp?keywords="&rskey2("Websen_Keyword")&" target=_blank >"&rskey2("Websen_Keyword")&"</a> <td>"
If h Mod brnum=0 Then
str=str&"</tr><tr>"
End If
rskey2.Movenext
h=h+1
Loop
str=str&"</tr></TABLE></td></tr></TABLE>"
rskey2.Close
Set rskey2=Nothing
End If
HOPE_hotkey=str
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'会员登陆标签 --------#HOPE_ShowUsernLogin(ShowType)#
'ShowType --显示方式，1为纵向，2为横向
Function HOPE_ShowUsernLogin(ShowType)
str=""
str=str&"<script>function checkLoginsafe(){var str1=document.loginForm1.UsernameGet;var str2=document.loginForm1.PasswordGet;var str3=document.loginForm1.Verifycode;if(str1.value.replace(/^\s+|\s+$/g,'')==''){alert('请输入会员名称！');str1.focus();return false;}if(str2.value.replace(/^\s+|\s+$/g,'')==''){alert('请输入密码！');str2.focus();return false;}if(str3.value.replace(/^\s+|\s+$/g,'')==''){alert('请输入验证码！');str3.focus();return false;}if(/[0-9]{4}/.test(str3.value)==false){alert('请只输入正确的验证码！');str3.select();return false;}}</script>"
If ShowType=1 Then
str=str&"<table width='100%' border='0' cellpadding='0' align=left cellspacing='0'><FORM name='loginForm1' action='"&HOPE_InstallDir&"login/login1.asp' method=post onSubmit='return checkLoginsafe();' style='margin:0'> <tr> <td colspan=2><script language='javascript' src='"&HOPE_InstallDir&"login_js.asp'></script></td></tr></form> </table>"
Else
str=str&"<TABLE cellPadding=0 cellspacing=0 width='100%' align=left border=0> <FORM name='loginForm1' action='"&HOPE_InstallDir&"login/login1.asp' method=post onSubmit='return checkLoginsafe()' ><tr><td><span style='color:#DA1217'>■</span></td><td><script language='javascript' src='"&HOPE_InstallDir&"login_jsh.asp'></script></td><td align=right width=100 valign=middle><span style='color:#DA1217'>■</span></td><td width=180 align=right><a href="&HOPE_InstallDir&"login/register.asp target=_parent>注册会员</a> | <a href="&HOPE_InstallDir&"login/getanswer.asp target=_parent>忘记密码</a> | <a class=53 href="&HOPE_InstallDir&"login/loginout.asp target=_blank>退出</a> </td></TR></form></TABLE>"
End If
HOPE_ShowUsernLogin=str
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'已审核会员的总数：
Function HOPE_GeneralMember()
sql="select count(ID) from Websen_corporation where flag=1"
Set totle=Server.CreateObject("adodb.recordset")
totle.Open sql,conn,1,1
If Not totle.Eof Then
totlea=totle(0)
totle.Close
End If
HOPE_GeneralMember=totlea
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'全站统计标签 #HOPE_ShowSiteCountAll(ShowType,scrollhign,tablewidth,brnum,supply,buy,reg,info,supplyall,buyall,infoall,Dealall,orderall,memberall)
'#---一共14个参数
'ShowType参数1(滚动方式)：值：0--不滚动 | 1--上下 | 1--左右 '滚动方向|滚动显示的高度|宽度|换行|今日供应|今日求购|今日注册会员数|今日资讯数|供应总数|求购总数|行业资讯总数|成交总额|订单数|普通会员数|
Function HOPE_ShowSiteCountAll(ShowType,scrollhign,tablewidth,brnum,supply,buy,reg,info,supplyall,buyall,infoall,Dealall,orderall,memberall)
str=""
'--------------------------------------------------------
usergrade=""
set rsgr=server.CreateObject("adodb.recordset")
sqlgr="select * from Websen_vipgrade"
rsgr.open sqlgr,conn,1,1
if not rsgr.eof then
do while not rsgr.eof
set rst=server.CreateObject("adodb.recordset")
sqlt="select count(*) as t1 from Websen_corporation where flag=1 and gradeid="&rsgr("roleid")
rst.open sqlt,conn,1,1
if not rst.eof then
usergrade=rsgr("gradename")&":"&rst("t1")&"个;"
rst.close
end if
userlist=userlist&usergrade
rsgr.movenext
loop
rsgr.close
end if
'---------------------------------------------------------
str=",本站信息：," '控制是否显示的参数start^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If supply=0 Then
str=str&""
Else
str=str&"今日供应:"&todayinfo_sale&"个 ,"
End If
If buy=0 Then
str=str&""
Else
str=str&"今日求购:"&todayinfo_buy&"个 ,"
End If
If reg=0 Then
str=str&""
Else
str=str&"今日注册会员数:"&today_corporation&"个 ,"
End If
If info=0 Then
str=str&""
Else
str=str&"今日资讯数;"&zixun_datetime&"条 ,"
End If
If supplyall=0 Then
str=str&""
Else
str=str&"供应总数:"&allinfo_sale&"个 ,"
End If
If buyall=0 Then
str=str&""
Else
str=str&"求购总数:"&allinfo_buy&"个 ,"
End If
If infoall=0 Then
str=str&""
Else
str=str&"行业资讯总数:"&zixun_all&"个 ,"
End If
If Dealall=0 Then
str=str&""
Else
str=str&""
' str=str&"成交总额? ,"'???????????????????
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -