📄 const.asp
字号:
content=content+"<li><a href=""javascript:anysale();"" onclick="""&target&""" title="""&rs("readme")&""">"&rs("title")&"</a></li>"
rs.moveNext
loop
content=content+"</ul>"
case 1 '图片
conn.execute("update as_ad set views=views+1 where adID="&rs("adID"))
if rsg("number")=1 then
if rsg("target")=1 then
target="window.open('validator.asp?action=viewme&id="&rs("adID")&"');"
else
target="location.href='validator.asp?action=viewme&id="&rs("adID")&"';"
end if
content=content+"<a href=""javascript:anysale();"" onclick="""&target&"""><img src="""&rs("url")&""" alt="""&rs("readme")&""" width="""&rsg("width")&""" height="""&rsg("height")&""" /></a>"
else
i=1
do while not rs.eof and i<6
url=url+rs("url")&"|"
link=link+"validator.asp?action=viewme&id="&rs("adID")&"|"
title=title+rs("title")&"|"
rs.moveNext
i=i+1
loop
content=content+"<script type=""text/javascript"">"
content=content+"document.write('<object classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" codebase=""http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"" width="""&rsg("width")&""" height="""&rsg("height")&""">');"
content=content+"document.write('<param name=""allowScriptAccess"" value=""sameDomain""><param name=""movie"" value=""images/focus.swf""><param name=""quality"" value=""high""><param name=""menu"" value=""false""><param name=""wmode"" value=""opaque""><param name=""bgcolor"" value=""#ffffff"">');"
content=content+"document.write('<param name=""FlashVars"" value=""pics="&left(url,len(url)-1)&"&links="&left(link,len(link)-1)&"&texts="&left(title,len(title)-1)&"&borderwidth="&rsg("width")&"&borderheight="&rsg("height")&"&textheight=0"">');"
content=content+"document.write('<embed src=""images/focus.swf"" wmode=""opaque"" FlashVars=""pics=url&links=link&texts=title&borderwidth="&rsg("width")&"&borderheight="&rsg("height")&"&textheight=0"" menu=""false"" bgcolor=""#ffffff"" quality=""high"" width="""&rsg("width")&""" height="""&rsg("height")&""" allowScriptAccess=""sameDomain"" type=""application/x-shockwave-flash"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" />');"
content=content+"document.write('</object>');"
content=content+"</script>"
end if
case 2 '动画
content=content+"<script type=""text/javascript"">"
content=content+"document.write(' <object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0"" width="""&rsg("width")&""" height="""&rsg("height")&""" title="""&rs("readme")&"""> ');"
content=content+"document.write(' <param name=""movie"" value="""&rs("url")&"?link=validator.asp?action=viewme|id="&rs("adID")&"||"&rsg("target")&""" /> ');"
content=content+"document.write(' <param name=""quality"" value=""high"" /><param name=""wmode"" value=""opaque""> ');"
if rsg("istransparent")=1 then
content=content+"document.write(' <param name=""wmode"" value=""transparent"" /> ');"
content=content+"document.write(' <embed src="""&rs("url")&"?link=validator.asp?action=viewme|id="&rs("adID")&"||"&rsg("target")&""" quality=""high"" wmode=""transparent"" wmode=""opaque"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width="""&rsg("width")&""" height="""&rsg("height")&"""></embed> ');"
else
content=content+"document.write(' <embed src="""&rs("url")&"?link=validator.asp?action=viewme|id="&rs("adID")&"||"&rsg("target")&""" quality=""high"" wmode=""opaque"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width="""&rsg("width")&""" height="""&rsg("height")&"""></embed> ');"
end if
content=content+"document.write(' </object> ');"
content=content+"</script>"
case 3 '视频
content=content+"<script type=""text/javascript"">"
content=content+"document.write(' <object classid=""clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"" name=""player"" width="""&rsg("width")&""" height="""&rsg("height")&""" id=""player""> ');"
content=content+"document.write(' <param name=""_ExtentX"" value=""10001""><param name=""_ExtentY"" value=""6879""><param name=""AUTOSTART"" value=""-1""><param name=""SHUFFLE"" value=""0""> ');"
content=content+"document.write(' <param name=""PREFETCH"" value=""0""><param name=""NOLABELS"" value=""-1""><param name=""SRC"" value="""&rs("url")&"""><param name=""CONTROLS"" value=""Imagewindow""><param name=""CONSOLE"" value=""clip1""> ');"
content=content+"document.write(' <param name=""LOOP"" value=""1""><param name=""NUMLOOP"" value=""0""><param name=""CENTER"" value=""0""><param name=""MAINTAINASPECT"" value=""0""><param name=""BACKGROUNDCOLOR"" value=""#ffffff""> ');"
content=content+"document.write(' </object> ');"
content=content+"</script>"
case 4 '代码
do while not rs.eof
content=content+ rs("readme")
rs.moveNext
loop
case 5 '页面
content=content+ "<iframe src="""&rs("url")&""" width="""&rsg("width")&""" height="""&rsg("height")&""" frameborder=""0"" scrolling=""auto""></iframe>"
end select
content=content+"</div>"
end if
rs.close
set rs=nothing
end if
rsg.close
set rsg=nothing
ad=content
end function
'网站头部
public function header(nav,title,keywords,description)
dim rsAnn,rsClass
response.write"<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Strict//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd""><html xmlns=""http://www.w3.org/1999/xhtml""><head><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" /><title>"
if nav="home" then
response.write asInfo(0)&" - "&asInfo(2)
else
response.write title&" - "&asInfo(0)
end if
response.write" - Powered by AnySale!</title><meta name=""robots"" content=""index,follow"" /><meta name=""keywords"" content="""&keywords&""" /><meta name=""description"" content="""&description&""" />"
response.write"<meta name=""generator"" content=""AnySale v2.0"" /><meta name=""author"" content=""AnySale"" /><meta name=""copyright"" content=""2006-2008 anysale.cn"" /><meta name=""MSSmartTagsPreventParsing"" content=""True"" /><meta http-equiv=""MSThemeCompatible"" content=""Yes"" /><meta http-equiv=""x-ua-compatible"" content=""ie=7"" />"
response.write"<link href="""&asSet(0)&""" rel=""stylesheet"" type=""text/css"" id=""skin"" /><link rel=""shortcut icon"" href="""&asInfo(1)&"images/favicon.ico"" type=""image/x-icon"" /><link rel=""bookmark icon"" href="""&asInfo(1)&"images/favicon.ico"" /><script type=""text/javascript"" src=""inc/anysale.js""></script></head><body>"
if nav="home" then response.write ad(1,"class=""banner""") end if
response.write"<div id=""windows"" class=""hidden""></div><div class=""line10""></div><div class=""header""><div class=""headR""><div style=""padding:0 0 0 55px;"">"
if username="" then
response.write"<ul class=""linkN"" onmouseover=""this.className='linkH'"" onmouseout=""this.className='linkN'""><li class=""linkL""> </li><li class=""linkM""><a href=""register.asp"">免费注册</a></li><li class=""linkR""> </li></ul>"
response.write"<ul class=""linkN"" onmouseover=""this.className='linkH'"" onmouseout=""this.className='linkN'""><li class=""linkL""> </li><li class=""linkM""><a href=""login.asp"">登 录</a></li><li class=""linkR""> </li></ul>"
else
response.write"<ul class=""linkN"" onmouseover=""this.className='linkH'"" onmouseout=""this.className='linkN'""><li class=""linkL""> </li><li class=""linkM""><a href=""companydetail.asp?u="&username&""">我的网站</a></li><li class=""linkR""> </li></ul>"
response.write"<ul class=""linkN"" onmouseover=""this.className='linkH'"" onmouseout=""this.className='linkN'""><li class=""linkL""> </li><li class=""linkM""><a href=""logout.asp"">退 出</a></li><li class=""linkR""> </li></ul>"
end if
response.write"<ul class=""linkN"" onmouseover=""this.className='linkH'"" onmouseout=""this.className='linkN'""><li class=""linkL""> </li><li class=""linkM""><a href=""help.asp"">使用帮助</a></li><li class=""linkR""> </li></ul>"
response.write"<ul class=""linkN"" onmouseover=""this.className='linkH'"" onmouseout=""this.className='linkN'""><li class=""linkL""> </li><li class=""linkM""><a href=""user.asp"">会员中心</a></li><li class=""linkR""> </li></ul>"
response.write"<ul class=""linkN"" onmouseover=""this.className='linkH'"" onmouseout=""this.className='linkN'""><li class=""linkL""> </li><li class=""linkM""><a href=""user.asp?addTab="&server.urlEncode("发布供求信息")&"&tabL=user/business.asp?action=add"">发布供求</a></li><li class=""linkR""> </li></ul>"
response.write"<ul class=""left"" style=""padding:3px 0 0 0;""><li><img src=""images/free.gif"" alt=""free"" /></li></ul></div>"
set rsAnn=conn.execute("select annID,title from as_ann where isactive=1 order by annID desc")
if not (rsAnn.eof and rsAnn.bof) then
response.write"<div style=""width:400px;""><ul><li class=""ann"">"
do while not rsAnn.eof
response.write"<a href=""javascript:anysale();"" onclick=""getPage('windows.asp?action=ann&annID="&rsAnn("annID")&"');"">"&rsAnn("title")&"</a> "
rsAnn.moveNext
loop
response.write"</li></ul></div>"
end if
response.write"</div><div class=""headL""><ul><li><a href="""&asInfo(1)&"""><img src="""&asInfo(5)&""" alt="""&asInfo(0)&""" height=""60"" /></a></li>"
response.write"<li style=""padding:26px 0 0 0;""> "&asInfo(2)&"</li></ul></div></div><div class=""line5""></div>"
response.write"<div class=""header""><div class=""nav"" id="""&nav&"""><ul class=""left"" style=""width:20px;""><li> </li></ul>"
response.write"<ul class=""navN"" id=""nHome""><li class=""navL""></li><li class=""navM""><a href=""index.asp"">网站首页</a></li><li class=""navR""></li></ul>"
response.write"<ul class=""navN"" id=""nSell""><li class=""navL""></li><li class=""navM""><a href=""business.asp?channelID=1"">找供应</a></li><li class=""navR""></li></ul>"
response.write"<ul class=""navN"" id=""nBuy""><li class=""navL""></li><li class=""navM""><a href=""business.asp?channelID=2"">找求购</a></li><li class=""navR""></li></ul>"
response.write"<ul class=""navN"" id=""nSer""><li class=""navL""></li><li class=""navM""><a href=""business.asp?channelID=3"">找服务</a></li><li class=""navR""></li></ul>"
response.write"<ul class=""navN"" id=""nPro""><li class=""navL""></li><li class=""navM""><a href=""products.asp"">找产品</a></li><li class=""navR""></li></ul>"
response.write"<ul class=""navN"" id=""nCom""><li class=""navL""></li><li class=""navM""><a href=""company.asp"">找公司</a></li><li class=""navR""></li></ul>"
response.write"<ul class=""navN"" id=""nJob""><li class=""navL""></li><li class=""navM""><a href=""job.asp"">找工作</a></li><li class=""navR""></li></ul>"
response.write"<ul class=""navN"" id=""nExh""><li class=""navL""></li><li class=""navM""><a href=""exhibit.asp"">找展会</a></li><li class=""navR""></li></ul>"
response.write"<ul class=""left"" style=""width:75px;""><li> </li></ul>"
response.write"<ul class=""navN"" id=""nNews""><li class=""navL""></li><li class=""navM""><a href=""news.asp"">行业资讯</a></li><li class=""navR""></li></ul>"
response.write"<ul class=""navN"" id=""nArt""><li class=""navL""></li><li class=""navM""><a href=""article.asp"">文章资料</a></li><li class=""navR""></li></ul>"
response.write"<ul class=""navN"" id=""nTru""><li class=""navL""></li><li class=""navM""><a href=""trust.asp"">诚信会员</a></li><li class=""navR""></li></ul>"
response.write"<ul class=""navN"" id=""nBbs""><li class=""navL""></li><li class=""navM""><a href=""bbs.asp"">行业论坛</a></li><li class=""navR""></li></ul>"
response.write"</div><div class=""subNav""><form name=""headSearch"" action=""validator.asp""><ul><li class=""txtCen"" style=""padding:6px 0 0 0;"">"
response.write"<select name=""anysale"" style=""width:150px;""><option value=""1sell"">搜索供应</option><option value=""1buy"">搜索求购</option><option value=""1services"">搜索服务</option><option value=""2"">搜索产品</option><option value=""3"">搜索公司</option><option value=""4"">搜索工作</option><option value=""5"">搜索展会</option><option value=""6"">搜索资讯</option><option value=""7"">搜索文章</option><option value=""8"">搜索论坛</option></select>"
response.write"<input type=""hidden"" name=""action"" value=""search"" /> <input type=""text"" name=""keywords"" class=""inpWidth"" /> <select name=""classID"" style=""width:150px;""><option value=""0"">所有行业</option>"
set rsClass=conn.execute("select classID,className from as_class where parentID=0 order by orders,classID")
if not (rsClass.eof and rsClass.bof) then
do while not rsClass.eof
response.write"<option value="""&rsClass(0)&""">"&rsClass(1)&"</option>"
rsClass.moveNext
loop
end if
response.write"</select> <input type=""submit"" name=""search"" value=""搜索"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'"" />"
response.write"</li></ul></form></div></div>"
end function
'网站底部
public function footer()
dim rsA,qq,msn,skype,i
response.write"<div class=""line5""> </div><div class=""footer line20 clear""><ul class=""border h30bg line30 f14""><li class=""txtCen"">"
set rsA = conn.execute("select * from as_content where isdisplay=1 and parentID=0 order by orders asc")
if not rsA.eof or not rsA.bof then
do while not rsA.eof
response.write"<a rel=""external"" href=""about.asp?id="&rsA("contentID")&""">"&rsA("title")&"</a> | "
rsA.movenext
loop
end if
rsA.close
set rsA=nothing
response.write"<a href=""sitemap.asp"">网站地图</a></li></ul><ul style=""padding:10px;""><li class=""txtCen"">"
response.write"客服："&asInfo(12)&" 传真："&asInfo(13)
if asInfo(14)<>0 then response.write" 手机："&asInfo(14) end if
response.write" 邮箱：<a href=""javascript:anysale();"" onclick=""getPage('windows.asp?action=email&email="&asInfo(7)&"');"">"&asInfo(7)&"</a>"
response.write"<br />公司名称："&asInfo(9)&" 公司地址："&asInfo(10)&" 邮编："&asInfo(11)&"<br />"
if asInfo(16)<>0 then
qq=split(asInfo(16),",")
for i=0 to UBound(qq)
response.write"<a target=""_blank"" href=""http://wpa.qq.com/msgrd?V=1&Uin="&qq(i)&"&site="&asInfo(0)&"&menu=yes""><img alt=""在线服务"" src=""http://wpa.qq.com/pa?p=1:"&qq(i)&":10"" /></a> "
next
end if
if asInfo(17)<>"0" then
msn=split(asInfo(17),",")
for i=0 to UBound(msn)
response.write"<a href=""msnim:add?contact="&msn(i)&"""> <img src=""images/msn.gif"" style=""clear:both;border:0px"" /></a> "
next
end if
if asInfo(18)<>"0" then
skype=split(asInfo(18),",")
for i=0 to UBound(skype)
response.write"<a href=""callto://"&skype(i)&"""><img src=""images/skype.gif"" border=""0"" height=""18""></a> "
next
end if
response.write"<br />"&codeReplace(asInfo(8))&" <br />"
if asInfo(15)<>"0" then response.write"营业执照："&asInfo(15)&" " end if
response.write"<a href=""http://www.miibeian.gov.cn"" target=""_blank"">"&asInfo(6)&"</a> Powered by <a href=""http://www.anysale.cn"" target=""_blank"">AnySale.cn</a>!"
response.write"</li></ul></div></body></html>"
end function
'网站迷你头部
public function minHead(title,keywords,description)
response.write"<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Strict//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd""><html xmlns=""http://www.w3.org/1999/xhtml""><head><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" /><title>"&title&" - "&asInfo(0)&" - Powered by AnySale!</title>"
response.write"<meta name=""robots"" content=""index,follow"" /><meta name=""keywords"" content="""&keywords&""" /><meta name=""description"" content="""&description&""" />"
response.write"<meta name=""generator"" content=""AnySale v2.0"" /><meta name=""author"" content=""AnySale"" /><meta name=""copyright"" content=""2006-2008 anysale.cn"" /><meta name=""MSSmartTagsPreventParsing"" content=""True"" /><meta http-equiv=""MSThemeCompatible"" content=""Yes"" /><meta http-equiv=""x-ua-compatible"" content=""ie=7"" />"
response.write"<link href="""&asSet(0)&""" rel=""stylesheet"" type=""text/css"" id=""skin"" /><link rel=""shortcut icon"" href="""&asInfo(1)&"images/favicon.ico"" type=""image/x-icon"" /><link rel=""bookmark icon"" href="""&asInfo(1)&"images/favicon.ico"" /><script type=""text/javascript"" src=""inc/anysale.js""></script></head><body id=""login"">"
response.write "<div id=""windows"" class=""hidden""></div><div class=""minH""><div class=""right""><ul style=""padding:22px 0 0 0;"">"
response.write "<li class=""left""><ul class=""linkN"" onmouseover=""this.className='linkH'"" onmouseout=""this.className='linkN'""><li class=""linkL""> </li><li class=""linkM""><span class=""iHome""> </span><a href=""index.asp"">首页</a></li><li class=""linkR""> </li></ul></li>"
response.write "<li class=""left""><ul class=""linkN"" onmouseover=""this.className='linkH'"" onmouseout=""this.className='linkN'""><li class=""linkL""> </li><li class=""linkM""><span class=""iHelp""> </span><a href=""help.asp"">帮助</a></li><li class=""linkR""> </li></ul></li>"
response.write "</ul></div>"
response.write "<div class=""headL""><ul><li><a href="""&asInfo(1)&"""><img src="""&asInfo(5)&""" alt="""&asInfo(0)&""" height=""60"" /></a></li><li style=""padding:26px 0 0 0;""> "&asInfo(2)&"</li></ul></div>"
response.write "</div>"
end function
'网站迷你底部
public function minFoot()
response.write "<div class=""minF""><ul><li> </li><li class=""txtCen"">版权所有："&asInfo(9)&" 客服电话："&asInfo(12)&" Powered by <a href=""http://www.anysale.cn"" target=""_blank"">AnySale.cn</a>!</li><li> </li></ul></div></body></html>"
end function
'分页链接
public function pagelink(page,npage,asLink,searchStr)
if page>1 then response.write"<a href="""&asLink&"page="&page-1&searchStr&""">上一页</a> " end if
dim p,proot,pfoot
proot=page-4
pfoot=page+5
if pfoot<10 then pfoot=pfoot+5-page end if
if npage-proot<10 then proot=npage-9 end if
if proot<=1 then proot=1 end if
if pfoot>=npage then pfoot=npage end if
if npage>1 then
for p=proot to pfoot
response.write"<a "
if page=p then response.write"class=""links"" "
response.write"href="""&asLink&"page="&p&searchStr&""">["&p&"]</a> "
next
end if
if page<npage then response.write"<a href="""&asLink&"page="&page+1&searchStr&""">下一页</a>" end if
end function
'检查后台是否登录及权限
public function chkAdmin(flag,pagename)
if not isAdmin then
infoNote="<li>你所在的用户组没有管理后台的权限,请用管理员帐号登录后再进行操作!</li>|||<button onclick=""getPage('windows.asp?action=adminLogin');"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'"">登 录</button>"
infoNote=infoNote+" <button onclick=""location.href='index.asp';winClose();"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'"">返回首页</button>"
infoWin(infoNote)
response.end
end if
if session("flag")="" then
infoNote="<li>你尚未登录或登录超时,请登录后再进行操作!</li>|||<button onclick=""getPage('windows.asp?action=adminLogin');"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'"">登 录</button>"
infoNote=infoNote+" <button onclick=""location.href='index.asp';winClose();"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'"">返回首页</button>"
infoWin(infoNote)
response.end
end if
if instr(","&session("flag")&",",flag)=0 and flag<>"" then
infoNote="<li>本页为管理员专用,你没有管理""&pagename&""页面的权限!</li>|||<button onClick=""getPage('windows.asp?action=login');"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'"">切换用户</button>"
infoNote=infoNote+" <button onclick=""winClose();"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'"">关 闭</button>"
infoWin(infoNote)
response.end
end if
end function
'检查会员登录
public function chkUser()
if username="" then
infoNote="<li>你尚未登录或登录超时,请登录后再进行操作!</li>|||<button onclick=""getPage('windows.asp?action=userLogin');"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'"">登 录</button>"
infoNote=infoNote+" <button onclick=""location.href='index.asp';winClose();"" class=""button"" onmouseover=""this.className='buttonH'"" onmouseout=""this.className='button'"">返回首页</button>"
infoWin(infoNote)
response.end
end if
end function
'检查诚信会员过期
public function chkExpired()
dim rs,sql,i,n
n=0
if hour(now())<9 then exit function
if isSqlDataBase=1 then
set rs=conn.execute("select userID,username,groups from as_user where (groups=3 or groups=4) and datediff(d,trustEndTime,"&anysaleNow&")>0 and istrust=1")
if not(rs.bof and rs.eof) then
sql=rs.getRows(-1)
rs.close : set rs=nothing
for i=0 to ubound(sql,2)
conn.execute("update as_business set istrust=0 where businessID="&sql(0,i))
conn.execute("update as_products set istrust=0 where productsID="&sql(0,i))
conn.execute("update as_job set istrust=0 where jobID="&sql(0,i))
if sql(2,i)=3 then
n=n+1
conn.execute("update as_user set groups=5,istrust=0 where userID="&sql(0,i)) 'groups=3过期诚信会员进入续费期(管理员，版主除外)
else
conn.execute("update as_user set groups=6,istrust=0 where userID="&sql(0,i)) 'groups=4试用诚信会员过期转为待验证的诚信会员
end if
next
end if
call setValue("as_config","siteInfo","",5,clng(anysale.siteInfo(5))-clng(n))
conn.execute("update as_user set groups=6 where groups=5 and datediff(d,trustEndTime,"&anysaleNow&")>"&cint(asUser(11))) '过期未续费转为企业会员(管理员，版主除外)
else
set rs=conn.execute("select userID,username,groups from as_user where (groups=3 or groups=4) and datediff('d',trustEndTime,"&anysaleNow&")>0 and hour(now())<9 and istrust=1")
if not(rs.bof and rs.eof) then
sql=rs.getRows(-1)
rs.close : set rs=nothing
for i=0 to ubound(sql,2)
conn.execute("update as_business set istrust=0 where businessID="&sql(0,i))
conn.execute("update as_products set istrust=0 where productsID="&sql(0,i))
conn.execute("update as_job set istrust=0 where jobID="&sql(0,i))
if sql(2,i)=3 then
n=n+1
conn.execute("update as_user set groups=5,istrust=0 where userID="&sql(0,i)) 'groups=3过期诚信会员进入续费期(管理员，版主除外)
else
conn.execute("update as_user set groups=6,istrust=0 where userID="&sql(0,i)) 'groups=4试用诚信会员过期转为待验证的诚信会员
end if
next
end if
call setValue("as_config","siteInfo","",5,clng(anysale.siteInfo(5))-clng(n))
conn.execute("update as_user set groups=6 where groups=5 and datediff('d',trustEndTime,"&anysaleNow&")>"&cint(asUser(11))) '过期未续费转为企业会员(管理员，版主除外)
end if
end function
end class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -