<!--#include file="../setting/conn.asp"--><%:SoonBiz.chkadmin:Dim tempid :tempid=1:SoonBiz.LoadTemplatesAdmin("admin_index"):select case Request("act"):case "admin_left" : admin_left():case "admin_main" : admin_main():Case "ver" : showverlink:Case "showver" : showver:case else : main():end Select:Setallnothing:sub main():HtmlStr=template.html(0):HtmlStr=Replace(Htmlstr,"{$webname}",webname):Response.Write htmlstr:end sub:sub admin_left():Dim i,rs,arrs:Dim templatestr,tempstr,j:SoonBiz.title=template.html(2):SoonBiz.topplus=template.html(3):SoonBiz.adhead:htmlstr=template.html(1):htmlstr=replace(htmlstr,"{$nickname}",SoonBiz.user_nickname):htmlstr=replace(htmlstr,"{$group}",SoonBiz.Getxmlvalue("group","group[@id="& SoonBiz.user_gid &"]","title"))
If instr(htmlstr,"{$websetting}")>0 Then htmlstr=replace(htmlstr,"{$websetting}",Adindex(4))
If instr(htmlstr,"{$admintemplate}")>0 Then htmlstr=replace(htmlstr,"{$admintemplate}",Adindex(5))
If instr(htmlstr,"{$adminuser}")>0 Then htmlstr=replace(htmlstr,"{$adminuser}",Adindex(6))
If instr(htmlstr,"{$adminmoney}")>0 Then htmlstr=replace(htmlstr,"{$adminmoney}",Adindex(7))
If instr(htmlstr,"{$adminpoint}")>0 Then htmlstr=replace(htmlstr,"{$adminpoint}",Adindex(8))
If instr(htmlstr,"{$adminsell}")>0 Then htmlstr=replace(htmlstr,"{$adminsell}",Adindex(9))
If instr(htmlstr,"{$adminshortmessage}")>0 Then htmlstr=replace(htmlstr,"{$adminshortmessage}",Adindex(10))
If instr(htmlstr,"{$adminask}")>0 Then htmlstr=replace(htmlstr,"{$adminask}",Adindex(11))
If instr(htmlstr,"{$admincomman}")>0 Then htmlstr=replace(htmlstr,"{$admincomman}",Adindex(12))
If instr(htmlstr,"{$trhtml}")>0 Then htmlstr=replace(htmlstr,"{$trhtml}",AdminArticle)
If instr(htmlstr,"{$adminmdb}")>0 Then htmlstr=replace(htmlstr,"{$adminmdb}",Adindex(19))
If instr(htmlstr,"{$servermenu}")>0 Then htmlstr=replace(htmlstr,"{$servermenu}",Adindex(20))':"'come:::{'some:becausethem':$canmoremuch
Response.Write htmlstr:end Sub:Function Adindex(num):Dim yilin:yilin=template.html(num):yilin=Replace(yilin,"{$tempid}",tempid):Adindex=yilin:tempid=tempid + 1:End Function:Function AdminArticle():Dim rs,arrs,i:Dim jinfang:Set rs=SoonBiz.execute("select id,cha_name,cha_moduleid from "& sheethead &"_channel where cha_use=1 order by cha_cls asc,id asc"):arrs=rs.getrows(-1):rs.close:Set rs=Nothing:jinfang=ubound(arrs,2):Redim yilin(jinfang):For i=0 To jinfang:Select Case arrs(2,i):Case 1,2 : yilin(i)=Adarticle(arrs(0,i),arrs(1,i),13):Case 3,4,5,6 : yilin(i)=Adarticle(arrs(0,i),arrs(1,i),14):Case 7 : yilin(i)=Adarticle(arrs(0,i),arrs(1,i),16):Case 8 : yilin(i)=Adarticle(arrs(0,i),arrs(1,i),17):Case 9 : yilin(i)=Adarticle(arrs(0,i),arrs(1,i),18):End Select:Next:AdminArticle=Join(yilin,""):End Function:Function Adarticle(channelid,channelname,num):Dim yilin:yilin=template.html(num):yilin=Replace(yilin,"{$channelname}",channelname):yilin=Replace(yilin,"{$channelid}",channelid):yilin=Replace(yilin,"{$tempid}",tempid)
If channelid=6 Then
yilin=Replace(yilin,"{$liblog}",template.html(15))
Else:yilin=Replace(yilin,"{$liblog}","")
End If:Adarticle=yilin:tempid=tempid + 1:End Function:sub admin_main():Dim mycount,i:mycount=adcount:SoonBiz.adhead:SoonBiz.title="wedonet-中文建站系统管理中心首页":Htmlstr=template.html(21):htmlstr=replace(htmlstr,"{$issqldatabase}",issqldatabase):htmlstr=replace(htmlstr,"{$version}",SoonBiz.Version):htmlstr=replace(htmlstr,"{$servename}",Request.ServerVariables("SERVER_NAME")):htmlstr=replace(htmlstr,"{$system}",GetSysInfo(0)):htmlstr=replace(htmlstr,"{$iisver}",Request.ServerVariables("SERVER_SOFTWARE")):htmlstr=replace(htmlstr,"{$scripttime}",Server.ScriptTimeout):htmlstr=replace(htmlstr,"{$fso}",installed(FsoObjName)):htmlstr=replace(htmlstr,"{$jmail}",installed("JMail.SmtpMail")):htmlstr=replace(htmlstr,"{$cdonts}",installed("CDONTS.NewMail")):htmlstr=replace(htmlstr,"{$aspemail}",installed("Persits.MailSender")):htmlstr=replace(htmlstr,"{$stream}",installed(streamname)):htmlstr=replace(htmlstr,"{$aspupload}",installed("Persits.Upload")):htmlstr=replace(htmlstr,"{$safileup}",installed("SoftArtisans.FileUp")):htmlstr=replace(htmlstr,"{$dvfileup}",installed("DvFile.Upload")):htmlstr=replace(htmlstr,"{$preview}",installed("CreatePreviewImage.cGvbox")):htmlstr=replace(htmlstr,"{$jpeg}",installed("Persits.Jpeg")):htmlstr=replace(htmlstr,"{$saimg}",installed("SoftArtisans.ImageGen"))
If Request("classname")<>"" Then'manyoutbefore;being:`_himmeonhad:;"@forher:
If SoonBiz.ChkObjInstalled(Request("classname")) Then
htmlstr=replace(htmlstr,"{$customobj}","<font color=green><b>本服务器支持 "&Request("classname")&" 组件</b></font><br />")
Else:htmlstr=replace(htmlstr,"{$customobj}","<font color=red><b>本服务器不支持 "&Request("classname")&" 组件</b></font><br />")
End If
Else:htmlstr=replace(htmlstr,"{$customobj}","")
End If:For i=0 To 9:htmlstr=replace(htmlstr,"{$mycount("& i &")}",mycount(i)&""):Next:Response.Write htmlstr:SoonBiz.adfoot:End Sub:Function GetSysInfo(strtype):on error resume next:Dim WshShell,WshSysEnv:Set WshShell=server.CreateObject("WScr" & "ipt" & "." & "Sh" & "ell"):Set WshSysEnv=WshShell.Environment("SYSTEM")'dohow@:bothothercame'over""never'mostandby:bynow
if strtype=1 then
GetSysInfo=cstr(WshSysEnv("NUMBER_OF_PROCESSORS"))
elseif strtype=2 then
GetSysInfo=cstr(WshSysEnv("PROCESSOR_IDENTIFIER"))
else:GetSysInfo=cstr(WshSysEnv("OS"))
if Request.ServerVariables("OS")="" then GetSysInfo="Windows Server 2003"'here:#}our'::'fromthe':"itfor::same
end if:end Function:Function adcount():Dim thiscount(9) :Dim rs:Set rs=SoonBiz.execute("select count(*) from "& sheethead &"_shortmessage where ruid="&SoonBiz.user_id&" and readed=0 and del_r=0"):thiscount(0)=rs(0):Rs.Close:Set Rs=Nothing:Set rs=SoonBiz.execute("select count(*) from "& sheethead &"_user "):thiscount(1)=rs(0):Rs.Close:Set Rs=Nothing:Set rs=SoonBiz.execute("select count(*) from "& sheethead &"_user where user_ispass=0"):thiscount(2)=rs(0):Rs.Close:Set Rs=Nothing:Set rs=SoonBiz.execute("select sum(m_count) from "& sheethead &"_money where m_paytype=1"):thiscount(3)=rs(0):Rs.Close:Set Rs=Nothing:Set rs=SoonBiz.execute("select sum(m_count) from "& sheethead &"_money where m_paytype=3"):thiscount(4)=rs(0):Rs.Close:Set Rs=Nothing:Set rs=SoonBiz.execute("select count(*) from "& sheethead &"_productorder where isdel=0"):thiscount(5)=rs(0):Rs.Close:Set Rs=Nothing:Set rs=SoonBiz.execute("select count(*) from "& sheethead &"_ask where isover=0"):thiscount(6)=rs(0):Rs.Close:Set Rs=Nothing:Set rs=SoonBiz.execute("select count(*) from "& sheethead &"_formhis where isread=0 and isdel=0"):thiscount(7)=rs(0):Rs.Close:Set Rs=Nothing:Set rs=SoonBiz.execute("select count(*) from "& sheethead &"_comman where isdel=0"):thiscount(8)=rs(0):Rs.Close:Set Rs=Nothing:Set rs=SoonBiz.execute("select count(*) from "& sheethead &"_article where ispass=0 and isdel=0 and classid>-1 and cid<>8"):thiscount(9)=rs(0):Rs.Close:Set Rs=Nothing:adcount=thiscount:End Function:Function installed(str)
If SoonBiz.ChkObjInstalled(str) Then
installed=1
Else:installed=0
End If:End Function:Sub showverlink():SoonBiz.adhead:Response.Write template.html(22):End Sub:Sub showver():SoonBiz.adhead:Response.Write template.html(23):End Sub
%>