开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
Default.Asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：10k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

Default.Asp：源码内容
  1. <!--#include file="Inc/SysConfig.Asp"-->
  3. <%
  4. Dim PageString,GCode
  5. YxBBs.Head("论坛首页")
  6. If YxBBs.BBSSetting(7)="0" then PageString=ShowInfo()
  7. PageString=PageString&ShowBoard()
  8. If YxBBs.BBSSetting(10)="0" then PageString=PageString&ShowOnline()
  9. Response.Write PageString &"<iframe name='hiddenframe' frameborder='0' height='0' id='hiddenframe'></iframe>"
  10. If YxBBs.BBSSetting(32)="0" then ShowBirthday()
  11. If YxBBs.BBSSetting(8)="0" then ShowLink()
  12. YxBBs.Footer()
  13. Set Cache = Nothing
  14. Set YxBBs = Nothing
  16. Function ShowInfo()
  17. Dim Temp,OnlingType
  18. If YxBBs.FoundUser Then
  19. Temp = YxBBs.Template.ReadTemplate("用户信息")
  20. If YxBBs.MyIsQQpic Then
  21. Temp=Replace(Temp,"{用户头像}","<img src='http://qqshow-user.tencent.com/"&YxBBs.MyQQ&"/11/'>")
  22. Else
  23. Temp=Replace(Temp,"{用户头像}","<img src="&YxBBs.Mypic&" width="&YxBBs.Mypicw&" height="&YxBBs.Mypich&" >")
  24. End if
  25. OnlingType="<font Color=Red>［在线］</Font>"
  26. If YxBBs.MyHidden=2 Then OnlingType="<font Color=Red>［隐身］</Font>"
  27. Temp=Replace(Temp,"{用户名称}","<a href='Profile.Asp' title='查自己的资料信息'>"&YxBBs.MyName&"</a>")
  28. Temp=Replace(Temp,"{在线状态}",OnlingType)
  29. Temp=Replace(Temp,"{金钱数}",YxBBs.MyCoin)
  30. Temp=Replace(Temp,"{Y币}",""&YxBBs.BBSSetting(23)&"：<font color=red>"&YxBBs.MyMark&"</font>")
  31. Temp=Replace(Temp,"{帖数}",YxBBs.MyEssayNum)
  32. Temp=Replace(Temp,"{等级名称}",YxBBs.MyGradeName)
  33. Else
  34. Temp = YxBBs.Template.ReadTemplate("快速登陆")
  35. End If 
  36. Temp=Replace(Temp,"{公告}",YxBBs.Srule)
  37.         Temp=Replace(Temp,"{新会员名称}",YxBBs.NewUser) 
  38. Temp=Replace(Temp,"{今日帖数}",YxBBs.TodayNum)
  39. Temp=Replace(Temp,"{最高日帖数}",YxBBs.MaxEssayNum)
  40. Temp=Replace(Temp,"{主题数}",YxBBs.TopicNum)
  41. Temp=Replace(Temp,"{总帖数}",YxBBs.AllEssayNum)
  42. Temp=Replace(Temp,"{会员数}",YxBBs.UserNum)
  43. Temp=Replace(Temp,"{昨日帖数}",YxBBs.YsterdayNum)
  44.         If Cint(YxBBs.BBSSetting(6))=0 Then 
  45.         Temp=Replace(Temp,"{验证码}",YxBBs.GCode)
  46.         else
  47.         Temp=Replace(Temp,"{验证码}","")
  48.         end if
  49. ShowInfo=Temp
  50. End Function
  52. Function ShowBoard()
  53. Dim Rs,Temp,i,BigBoard,BoardChild,BoardBottom,BoardStr
  54. BigBoard=YxBBs.Template.ReadTemplate("分区表格")
  55. BoardChild=YxBBs.Template.ReadTemplate("版块列表")
  56. BoardBottom=YxBBs.Template.ReadTemplate("分区底部表格")
  57. If Not IsArray(YxBBs.Board_Rs) Then YxBBs.CacheBoard()
  58. If Not IsArray(YxBBs.Board_Rs) Then Exit Function
  59. For i=0 To Ubound(YxBBs.Board_Rs,2)
  60. If YxBBs.Board_Rs(0,i)<2 Then
  61. Temp=""
  62. If YxBBs.Board_Rs(0,i)=0 Then
  63. If i >= 1 Then Temp = Temp & BoardBottom & VbCrlf
  64. Temp = Temp & Replace(BigBoard,"{分类名称}",YxBBs.Board_Rs(3,i))
  65. Else
  66. Temp=BoardChild
  67. Temp=YxBBs.GetBoardInfo(Temp,i)
  68. End If
  69. BoardStr=BoardStr & Temp
  70. End If
  71. Next
  72. ShowBoard = BoardStr& BoardBottom & VbCrlf
  73. End Function
  75. Function ShowOnline()
  76. Dim Temp
  77. Temp=YxBBs.Template.ReadTemplate("在线统计")
  78. Temp=Replace(Temp,"{在线列表}","<span id=showon></span>")
  79. Dim BrowserType
  80. Set BrowserType=New Cls_Browser
  81. Temp=Replace(Temp,"{用户系统}",BrowserType.platform)
  82. Temp=Replace(Temp,"{用户浏览器}",BrowserType.Browser & BrowserType.version)
  83. Set BrowserType=Nothing
  84. Temp=Replace(Temp,"{用户IP}",YxBBs.MyIp)
  85. Temp=Replace(Temp,"{建站时间}",FORMATDATETIME(YxBBs.BuildDate,1))
  86. Temp=Replace(Temp,"{在线总数}",YxBBs.AllOnlineNum)
  87. Temp=Replace(Temp,"{会员数}",YxBBs.UserOnlineNum)
  88. Temp=Replace(Temp,"{游客数}",YxBBs.AllOnlineNum-YxBBs.UserOnlineNum)
  89. Temp=Replace(Temp,"{在线最大数}",YxBBs.MaxOnlineNum)
  90. Temp=Replace(Temp,"{最大数时间}",YxBBs.MaxOnlineTime)
  91. If Session(YxBBs.CacheName&"online")="1" then
  92. Temp=Replace(Temp,"{在线列表开关}","<a target='hiddenframe' href='Online.Asp?Action=LoadIng' onClick='ShowOnline();' ><span id='Showtxt' >关闭详细列表</span></a>")
  93. Temp=Temp&"<iframe frameborder='0'  height='0' src='Online.Asp?Action=LoadIng&id=1'></iframe>"
  94. Else
  95. Temp=Replace(Temp,"{在线列表开关}","<a target='hiddenframe' href='Online.Asp?Action=LoadIng' onClick='ShowOnline();' ><span id='Showtxt' >显示详细列表</span></a>")
  96. End If
  97. ShowOnline=Temp
  98. End Function
  100. Sub ShowLink()
  101. Dim Link_List,LogoLink,TxtLink,Rs,Arr_Rs,I,Sql,j,k
  102. Cache.Name="Link_List"
  103. If Cache.Valid then
  104. Link_List=Cache.Value
  105. Else
  106. Sql = "Select BbsName,Url,Pic,Readme,IsPic From [YX_Link] Where  Orders  order by Orders Asc"
  107. If Not IsObject(Conn) Then ConnectionDatabase
  108. Set Rs = Server.CreateObject("Adodb.RecordSet")
  109. Rs.open Sql,Conn,1,1
  110. SqlNum=SqlNum+1
  111. If Not(rs.eof or rs.bof) Then Arr_Rs = Rs.getrows()
  112. Rs.Close:Set Rs=Nothing
  113. If IsArray(Arr_Rs) Then
  114. TxtLink="":LogoLink="":j=0:k=0
  115. For i = 0 to UBound(Arr_Rs,2)
  116. If Arr_Rs(4,i) And Arr_Rs(2,i)<>"" Then
  117. j=j+1
  118. LogoLink=LogoLink&"<td align=""center""><a href="""&Arr_Rs(1,i)&""" target=""_blank""><img src="""&Arr_Rs(2,i)&""" border=""0"" alt=""::"&Arr_Rs(0,i)&"::"&Arr_Rs(3,i)&""" width=""88"" height=""31""></a></td>"
  119. If j=7 Then j=0:LogoLink=LogoLink&"</tr><tr>"
  120. Else
  121. k=k+1
  122. TxtLink=TxtLink&"<td align=""center""><a href="""&Arr_Rs(1,i)&""" target=""_blank"" title="""&Arr_Rs(3,i)&""">"&Arr_Rs(0,i)&"</a></td>"
  123. If k=7 Then k=0:TxtLink=TxtLink&"</tr><tr>"
  124. End If
  125. Next
  126. End If
  127. Link_List="<tr><td align=""center""><table width=""100%"" border=""0"" cellpadding=""4"" cellspacing=""0""><tr>"&TxtLink&"</tr></table><table width=""100%"" border=""0"" cellpadding=""4"" cellspacing=""0""><tr>"&LogoLink&"</tr></table></td></tr>"
  128. Cache.add Link_List,dateadd("n",5000,YxBBs.NowBBSTime)
  129. End If
  130. Call YxBBs.ShowTable("论坛联盟",Link_List)
  131. End Sub
  133. Sub ShowBirthday()
  134. Dim UserBirthday,temp,rs,Arr_Rs,i,Num
  135. Cache.Name="Birthday"
  136. If Cache.valid then
  137. Temp=Split(Cache.Value,"|")
  138. Num=Temp(0)
  139. UserBirthday=Temp(1)
  140. Else
  141. Set Rs=YxBBs.Execute("Select Name,Birthday From[YX_User] where Month(Birthday)=Month(now) and day(Birthday)=day(now) and Birthday<>Cdate('1900-1-1')")
  142. IF Not Rs.eof Then Arr_Rs=Rs.getrows()
  143. Rs.Close
  144. Num=0
  145. If IsArray(Arr_Rs) Then
  146. For i = 0 to UBound(Arr_Rs,2)
  147. Num=Num+1
  148. UserBirthday=UserBirthday&"  <a href=Profile.Asp?Name="&Arr_Rs(0,i)&"><img src=Images/Birthday.gif align=""absmiddle"" border=0> 祝［"&Arr_Rs(0,i)&"］生日快乐</a>  "
  149. Next
  150. End If
  151. If i>3 Then UserBirthday="<marquee onMouseOver='this.stop()' onMouseOut='this.start()' scrollamount='3' >"&UserBirthday&"</marquee>"
  152. Temp=Num&"|"&UserBirthday
  153. Cache.add Temp,dateadd("n",100,now)
  154. End If
  155. If num > 0 Then
  156. Call YxBBs.ShowTable("今天共有 "&num&" 位会员过生日","<tr><td height=30>"&UserBirthday&"</td></tr>")
  157. End If
  158. End Sub
  159. %>
  160. <%
  161. Class Cls_Browser
  162. Public Browser,version,platform,IsSearch
  163. Private Sub Class_Initialize()
  164. Dim Agent,Tmpstr
  165. Agent=Request.ServerVariables("HTTP_USER_AGENT")
  166. 'Agent="Opera/7.23 (X11; Linux i686; U)  [en]"
  167. If Left(Agent,7) ="Mozilla" Then
  168. Agent=Split(Agent,";")
  169. If InStr(Agent(1),"MSIE")>0 Then
  170. Browser="Internet Explorer "
  171. version=Trim(Left(Replace(Agent(1),"MSIE",""),6))
  172. ElseIf InStr(Agent(4),"Netscape")>0 Then 
  173. Browser="Netscape "
  174. tmpstr=Split(Agent(4),"/")
  175. version=tmpstr(UBound(tmpstr))
  176. ElseIf InStr(Agent(4),"rv:")>0 Then
  177. Browser="Mozilla "
  178. tmpstr=Split(Agent(4),":")
  179. version=tmpstr(UBound(tmpstr))
  180. If InStr(version,")") > 0 Then 
  181. tmpstr=Split(version,")")
  182. version=tmpstr(0)
  183. End If
  184. End If
  185.                         If InStr(Agent(2),"NT 6.0")>0 Then 
  186. platform="Windows vista"
  187. ElseIf InStr(Agent(2),"NT 5.2")>0 Then
  188. platform="Windows 2003"
  189. ElseIf InStr(Agent(2),"Windows CE")>0 Then
  190. platform="Windows CE"
  191. ElseIf InStr(Agent(2),"NT 5.1")>0 Then
  192. platform="Windows XP"
  193. ElseIf InStr(Agent(2),"NT 4.0")>0 Then
  194. platform="Windows NT"
  195. ElseIf InStr(Agent(2),"NT 5.0")>0 Then
  196. platform="Windows 2000"
  197. ElseIf InStr(Agent(2),"NT")>0 Then
  198. platform="Windows NT"
  199. ElseIf InStr(Agent(2),"9x")>0 Then
  200. platform="Windows ME"
  201. ElseIf InStr(Agent(2),"98")>0 Then
  202. platform="Windows 98"
  203. ElseIf InStr(Agent(2),"95")>0 Then
  204. platform="Windows 95"
  205. ElseIf InStr(Agent(2),"Win32")>0 Then
  206. platform="Win32"
  207. ElseIf InStr(Agent(2),"Linux")>0 Then
  208. platform="Linux"
  209. ElseIf InStr(Agent(2),"SunOS")>0 Then
  210. platform="SunOS"
  211. ElseIf InStr(Agent(2),"Mac")>0 Then
  212. platform="Mac"
  213. ElseIf UBound(Agent)>2 Then
  214. If InStr(Agent(3),"NT 5.1")>0 Then
  215. platform="Windows XP"
  216. End If 
  217. If InStr(Agent(3),"Linux")>0 Then
  218. platform="Linux"
  219. End If
  220. End If
  221. If InStr(Agent(2),"Windows")>0 And platform="unknown" Then
  222. platform="Windows"
  223. End If
  224. ElseIf Left(Agent,5) ="Opera" Then
  225. Agent=Split(Agent,"/")
  226. Browser="Mozilla "
  227. tmpstr=Split(Agent(1)," ")
  228. version=tmpstr(0)
  229.                         If InStr(Agent(1),"NT 6.0")>0 Then 
  230. platform="Windows vista"
  231. ElseIf InStr(Agent(1),"NT 5.2")>0 Then
  232. platform="Windows 2003"
  233. ElseIf InStr(Agent(1),"Windows CE")>0 Then
  234. platform="Windows CE"
  235. ElseIf InStr(Agent(1),"NT 5.1")>0 Then
  236. platform="Windows XP"
  237. ElseIf InStr(Agent(1),"NT 4.0")>0 Then
  238. platform="Windows NT"
  239. ElseIf InStr(Agent(1),"NT 5.0")>0 Then
  240. platform="Windows 2000"
  241. ElseIf InStr(Agent(1),"NT")>0 Then
  242. platform="Windows NT"
  243. ElseIf InStr(Agent(1),"9x")>0 Then
  244. platform="Windows ME"
  245. ElseIf InStr(Agent(1),"98")>0 Then
  246. platform="Windows 98"
  247. ElseIf InStr(Agent(1),"95")>0 Then
  248. platform="Windows 95"
  249. ElseIf InStr(Agent(1),"Win32")>0 Then
  250. platform="Win32"
  251. ElseIf InStr(Agent(1),"Linux")>0 Then
  252. platform="Linux"
  253. ElseIf InStr(Agent(1),"SunOS")>0 Then
  254. platform="SunOS"
  255. ElseIf InStr(Agent(1),"Mac")>0 Then
  256. platform="Mac"
  257. ElseIf UBound(Agent)>2 Then
  258. If InStr(Agent(3),"NT 5.1")>0 Then
  259. platform="Windows XP"
  260. End If 
  261. If InStr(Agent(3),"Linux")>0 Then
  262. platform="Linux"
  263. End If
  264. End If
  265. Else
  266. '识别搜索引擎
  267. Dim botlist,i
  268. Botlist="Google,Isaac,SurveyBot,Baiduspider,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir"
  269. Botlist=split(Botlist,",")
  270. For i=0 to UBound(Botlist)
  271. If InStr(Agent,Botlist(i))>0  Then 
  272. platform=Botlist(i)&"搜索器"
  273. IsSearch=True
  274. Exit For
  275. End If
  276. Next 
  277. End If
  278. End Sub
  279. End Class
  280. %>