📄 webborn.asp
字号:
<%
Class Yixiang_Class
public user,pass,question,answer,tm,qymc,qylb,Frdb,Zycp,Qyjj,Country,Sf,City,Post,Address,Phone,Fax,mobile,Email,web,name
Public ch,bm,zw,Sortid,typeid,typeid_2,Tjbz,Hybz,Flag,Cflag,Uflag,logo,cimg,cimg_title,isournotify,isothernotify,click
Public idate,BeginDate,EndDate,trust_score,zczj,p_z_Z_LegalStatus,p_z_Z_EmployeesCount,p_z_Z_AnnualRevenue,p_z_Z_RegCapital,p_z_Z_AnnualExportAmount,p_z_Z_AnnualImportAmount,p_z_Z_RndStaffNum,p_z_Z_ProductionCapacity,p_z_Z_OemOdm,p_z_Z_QaQc,p_z_Z_FoundedPlace,p_z_Z_BizPlace,p_z_Z_EstablishedYear,p_z_Z_BrandName,p_z_Z_KeyClients,p_z_Z_Certification,p_z_Z_Bank,p_z_Z_Account,p_z_Z_FactorySize,html_pass,userid,url,contact,zs,shuiwu,jinying,chanpin,qita,hps,haopin,pinpin,gjzs,jczs,swzs,qtzs,hp,jy,cp,nian,fuwunian,vipbs,gradename
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Public 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
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Public Function tempinfo(str)
n1=instr(str,"(")
n2=instr(str,")")
tempinfo=mid(str,n1+1,n2-n1-1)
End Function
Public Function HOPE_msg()
'msg="<script type='text/javascript' src='"&HOPE_InstallDir&"showrolemsg.js'><//script><script language='vbscript'>sub window_onload() AjaxSearchmsg() end sub <//script><input type='text' id='installurlmsg' style='display:none; width:12;height:1' value='"&HOPE_InstallDir&"'/><div id='search_resultmsg' style=""display:none"">"
msg="<FORM name=form1 action='"&HOPE_InstallDir&"member/getprice/SaveMessage.asp' method=post>"
msg=msg&"<TABLE cellSpacing=2 cellPadding=3 width=""100%"" border=1>"
msg=msg&"<TR><TD style=""PADDING-TOP: 6px"" vAlign=top align=left width=""20%"" ><B>发送给：</B></TD><TD width=""80%"" bgColor=#ffffde align=left><INPUT name=touser value="&session("autouser")&" size=15 maxlength=""50""></TD></TR>"
msg=msg&"<TR><TD align=left><B>附加码： </B></TD><TD bgColor=#ffffde align=left><INPUT size=11 name=verifycode>请在附加码框中输入：<script src='"&HOPE_InstallDir&"member/inc/function2.asp'></script></TD></TR>"
msg=msg&"<TR><TD align='left'><B>主题：</B></TD><TD align=left><INPUT maxLength=50 size=50 name=messageTitle> </TD></TR>"
msg=msg&"<TR ><TD align='left'><B>主要内容：</B></TD><TD bgColor=#ffffde><TEXTAREA name=messageContent rows=10 cols=60></TEXTAREA> </TD></TR>"
msg=msg&"<TABLE width=300 border=0 align=""center"" cellPadding=4 cellSpacing=0><TR align=middle><TD noWrap><INPUT type=submit value="" 发送 "" name=sendButton> </TD><TD noWrap><INPUT type=reset value="" 重填 "" name=resetButton></TD></TR></TABLE></FORM>"
'msg="</div>"
HOPE_msg=msg
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'公司信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ start ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
public Sub company()
vipbs=10
userid=session("autoid") '用户id
url=session("url")
set rs=server.CreateObject("adodb.recordset")
sql="select * from [wygkcn_corporation] where id="&userid
rs.open sql,conn,1,3
rs("url")=url '
rs.update
'企业信息开始==========================================================
ID=rs("ID")
User=rs("User")
Pass=rs("Pass")
Question=rs("Question")
Answer=rs("Answer")
tm=rs("tm")
Qymc=rs("Qymc")
Qylb=rs("Qylb")
Frdb=rs("Frdb")
Zycp=rs("Zycp")
if Zycp="" then
Zycp="暂无"
end if
if trim(rs("Qyjj")&"ok")<>"ok" then
Qyjj="<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr><td style='word-break:break-all'>"&rs("Qyjj")&"</td></tr></table>"
else
Qyjj="暂无企业信息"
end if
if rs("despic")<>"" then
Qyjj=Qyjj&"<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr><td><br>"
picjs=split(rs("despic"),",")
for i=0 to ubound(picjs)-1
Qyjj=Qyjj&"<a href="&HOPE_InstallDir&"vipcom/"&session("autouser")&"/"&picjs(i)&" target='_blank'><img border='0' width='80' height='80' src="&HOPE_InstallDir&"vipcom/"&session("autouser")&"/"&picjs(i)&"></a> "
if (i+1) mod 5=0 then
Qyjj=Qyjj&"<br>"
end if
next
Qyjj=Qyjj&"</td></tr></table>"
end if
Country=rs("Country")
Sf=rs("Sf")
City=rs("City")
Post=rs("Post")
Address=rs("Address")
Phone=rs("Phone")
Fax=rs("Fax")
mobile=rs("mobile")
Email=rs("Email")
Web=rs("Web")
name=rs("name")
ch=rs("ch")
bm=rs("bm")
zw=rs("zw")
Sortid=rs("Sortid")
Typeid=rs("Typeid")
typeid_2=rs("typeid_2")
Tjbz=rs("Tjbz")
Hybz=rs("Hybz")
Flag=rs("Flag")
Cflag=rs("Cflag")
Uflag=rs("Uflag")
logo=rs("c_logo")
if logo<>"" then
logo="<img src="&HOPE_InstallDir&"Vipcom/"&logo&" border=0 width=80 height=65>"
else
logo=""
end if
cimg=rs("cimg")
cimg_title=rs("cimg_title")
if isnull(cimg_title) then cimg_title=""
if cimg <>"" then
cimg="<table border=0 cellpadding=0 cellspacing=0 align=center width='100%' ><tr><td align=center><img src="&HOPE_InstallDir&"Vipcom/"&cimg&" onload='javascript:if(this.width>300){this.width=300;}if(this.height>280){ this.height=280;}' title="&cimg_title&"></td></tr></table>"
else
cimg="暂无图片说明"
end if
url=rs("url")
isournotify=rs("isournotify")
isothernotify=rs("isothernotify")
click=rs("click")
idate=rs("idate")
BeginDate=rs("BeginDate") '认证时间
EndDate=rs("EndDate")
trust_score=rs("trust_score") '指数
zczj=rs("zczj")
p_z_Z_LegalStatus=rs("p_z_Z_LegalStatus")
p_z_Z_EmployeesCount=rs("p_z_Z_EmployeesCount")
p_z_Z_AnnualRevenue=rs("p_z_Z_AnnualRevenue")
p_z_Z_RegCapital=rs("p_z_Z_RegCapital")
p_z_Z_AnnualExportAmount=rs("p_z_Z_AnnualExportAmount")
p_z_Z_AnnualImportAmount=rs("p_z_Z_AnnualImportAmount")
p_z_Z_RndStaffNum=rs("p_z_Z_RndStaffNum")
p_z_Z_ProductionCapacity=rs("p_z_Z_ProductionCapacity")
p_z_Z_OemOdm=rs("p_z_Z_OemOdm")
p_z_Z_QaQc=rs("p_z_Z_QaQc")
p_z_Z_FoundedPlace=rs("p_z_Z_FoundedPlace")
p_z_Z_BizPlace=rs("p_z_Z_BizPlace")
p_z_Z_EstablishedYear=rs("p_z_Z_EstablishedYear")
p_z_Z_BrandName=rs("p_z_Z_BrandName")
p_z_Z_KeyClients=rs("p_z_Z_KeyClients")
p_z_Z_Certification=rs("p_z_Z_Certification")
p_z_Z_Bank=rs("p_z_Z_Bank")
p_z_Z_Account=rs("p_z_Z_Account")
p_z_Z_FactorySize=rs("p_z_Z_FactorySize")
html_pass=rs("html_pass")
contact="<script type='text/javascript' src='"&HOPE_InstallDir&"showrolemsg.js'></script><script language='vbscript'>sub window_onload() AjaxSearchmsg() end sub </script><input type='text' id='installurlmsg' style='display:none; width:12;height:1' value='"&HOPE_InstallDir&"'/><div id='search_resultmsg' style=""display:none""><table width=90% height=100 border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr ><td align=left><b>"&Qymc&"</b></td></tr><tr><td align=left ><font style='line-height:150%'><br>电话："&Phone&"<br>移动电话："&mobile&"<br>传真："&fax&"<br>地址："&Address&"<br>邮编："&Post&"<br>公司主页："&Web&"<br>邮箱："&email&"</font></td></tr></table></div>"
'企业信息结束=====================================================================
rs.close
set rs=nothing
End Sub
'公司信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ end ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
public function zsyh()
gradename="<b>服务会员</b>"
'--会员等级名称-#vip_grade#-----------------------------------------------------------
set rsgn=server.CreateObject("adodb.recordset")
sqlgn="select gradeid from wygkcn_corporation where id="&session("autoid")
rsgn.open sqlgn,conn,1,1
if rsgn.eof then
gradename="<b>服务会员</b>"
else
set rsng=server.CreateObject("adodb.recordset")
sqlng="select gradename from yixiang_vipgrade where roleid="&rsgn("gradeid")
rsng.open sqlng,conn,1,1
if not rsng.eof then
gradename="<b><font style='font-size:14px'>"&rsng("gradename")&"</font></b>"
rsng.close
end if
end if
rsgn.close
'----------------------------------------------------------
vipbs=10
'使用年限:
set rsc=server.CreateObject("adodb.recordset")
sqlc="select BeginDate from wygkcn_corporation where id="&session("autoid")
rsc.open sqlc,conn,1,1
if rsc.eof then
nian=0
end if
if not rsc.eof then
fuwunian=cint(datediff("d",rsc("BeginDate"),date())/365)+1
if datediff("d",rsc("BeginDate"),date())>365 then '从第 2 年开始，加 20 分 / 年
nian=cint(datediff("d",rsc("BeginDate"),date())/365)*20
else
nian=0
end if
set rsc=nothing
end if
set rszz=server.CreateObject("adodb.recordset")
sqlzz="select * from yixiang_bizre where sh=1 and typeid=3 and gsid="&session("autoid")
rszz.open sqlzz,conn,1,1
if rszz.eof then
shuiwu=0
end if
if not rszz.eof then
shuiwu=5
set rszz=nothing
end if
'^^^^^^^^
'经营许可证类证书
set rsz2=server.CreateObject("adodb.recordset")
sqlz2="select count(*) as ztotal from yixiang_bizre where sh=1 and typeid =1 and gsid="&session("autoid")
rsz2.open sqlz2,conn,1,1
if rsz2.eof then
jinying=0
end if
if not rsz2.eof then
jinying=rsz2("ztotal")*2
if jinying>10 then
jinying=10
end if
set rsz2=nothing
end if
'^^^^^^^^
'产品类证书
set rsz3=server.CreateObject("adodb.recordset")
sqlz3="select count(*) as ztotal from yixiang_bizre where sh=1 and typeid =2 and gsid="&session("autoid")
rsz3.open sqlz3,conn,1,1
if rsz3.eof then
chanpin=0
end if
if not rsz3.eof then
chanpin=rsz3("ztotal")*2
if chanpin>10 then
chanpin=10
end if
set rsz3=nothing
end if
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'其他证书
set rsz4=server.CreateObject("adodb.recordset")
sqlz4="select count(*) as ztotal from yixiang_bizre where sh=1 and typeid =4 and gsid="&session("autoid")
rsz4.open sqlz4,conn,1,1
if rsz4.eof then
qita=0
end if
if not rsz4.eof then
qita=rsz4("ztotal")*2
if qita>10 then
qita=10
end if
set rsz4=nothing
end if
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'执行加分的操作:
haopin=0
set rsjj=server.CreateObject("adodb.recordset")
sqljj="select * from Yixiang_trustadv where abs(pass)=1 and type='好评' and bprid="&session("autoid")
rsjj.open sqljj,conn,1,1
if rsjj.eof then
haopin=0
end if
if not rsjj.eof then
do while not rsjj.eof
haopin=haopin+1
rsjj.movenext
loop
set rsjj=nothing
end if
'^^^^^^^^^^^^^^^^^^^^^^^^减分^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
pipin=0
set rspp=server.CreateObject("adodb.recordset")
sqlpp="select * from Yixiang_trustadv where abs(pass)=1 and type='批评' and bprid="&session("autoid")
rspp.open sqlpp,conn,1,1
if rspp.eof then
pipin=0
end if
if not rspp.eof then
do while not rspp.eof
pipin=pipin-1
rspp.movenext
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -