⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 前台及后台用户名密码都是：gz35gz35.com
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	dim menurl
for i=0 to n
menuname="board"&i
%>
      <TR>
      <TD align=left width=100%>
      <IMG src="skins/Default/d-5j-mz520/main_folder.gif">
	<b><%=boardmenu(i,0)%></b>
	<%
	for j=1 to ubound(boardmenu,2)
	if isempty(boardmenu(i,j)) then exit for
	%>
	--<%=boardmenu(i,j)%>
	<%next%>
	<%next%>
</td>
</tr>
<%

End sub
Sub Show_Index_Footer()

	Dim TempStr,GetGroupTitle
	Dvbbs.GetBrowser
	Dvbbs.Name = "GroupTitle"
	GetGroupTitle = Dvbbs.Value
	TempStr = template.html(6)
	TempStr = Replace(TempStr,"{$piclist}",GetGroupTitle)
	TempStr = Replace(TempStr,"{$nonewpic}",template.pic(0))
	TempStr = Replace(TempStr,"{$isnewpic}",template.pic(1))
	TempStr = Replace(TempStr,"{$islockpic}",template.pic(2))
	Response.Write TempStr
	'进入JS赋值：用户IP、系统、浏览器、显示详细列表字样、总在线、用户在线、客人在线、最大在线、最大在线时间、论坛建立时间
	Response.Write Chr(10) & "<SCRIPT LANGUAGE=""JavaScript"">" & Chr(10)
	Response.Write "<!--" & Chr(10)
	Response.Write Chr(9) & "config.Index_Footer_Value = ["""&Dvbbs.UserTrueIP&""","""&Dvbbs.platform&""","""&Dvbbs.Browser & dvbbs.version&""","""&template.Strings(6)&""","""&MyBoardOnline.Forum_Online&""","""&MyBoardOnline.Forum_UserOnline&""","""&MyBoardOnline.Forum_GuestOnline&""","""&Dvbbs.Maxonline&""","""&Dvbbs.CacheData(6,0)&""","""&FormatDateTime(Dvbbs.Forum_Setting(74),1)&"""];" & Chr(10)
	Response.Write Chr(9) & "sa = [""Index_Footer""]" & Chr(10)
	Response.Write Chr(9) & "BoardData(sa,config)" & Chr(10)
	If Dvbbs.Forum_ads(2)="1" Then Response.Write Chr(9) & "move_ad('"&Dvbbs.Forum_ads(3)&"','"&Dvbbs.Forum_ads(4)&"','"&Dvbbs.Forum_ads(5)&"','"&Dvbbs.Forum_ads(6)&"');" & Chr(10)
	If Dvbbs.Forum_ads(13)="1" Then Response.Write Chr(9) & "fix_up_ad('"& Dvbbs.Forum_ads(8) & "','" & Dvbbs.Forum_ads(10) & "','" & Dvbbs.Forum_ads(11) & "','" & Dvbbs.Forum_ads(9) & "');" & Chr(10)
	Response.Write "//-->" & Chr(10)
	Response.Write "</SCRIPT>" & Chr(10)
	If Dvbbs.Forum_Setting(14)="1" Or Dvbbs.Forum_Setting(15)="1" Then 
		Response.Write "<iframe width=""0"" height=""0"" src=""Online.asp?action=1&Boardid=0"" name=""hiddenframe""></iframe>"
	Else
		Response.Write "<iframe width=""0"" height=""0"" src="""" name=""hiddenframe""></iframe>"
	End If
	TempStr = Null
End Sub

Sub Show_Index_BirthUser()
	Dim Strings
	Strings = Dvbbs.CacheData(16,0)
	Strings = Split(Strings,"$$")
	If Not IsDate(Strings(0)) Then Strings(0) = Now() - 1
	If CDate(Strings(0)) <> Date() Then Exit Sub
	Strings = Split(Dvbbs.CacheData(16,0),"$$")
	Strings(1) = Replace(Strings(1),"{$bpic}",template.pic(3))
	Response.Write Strings(1)
End Sub

Sub show_index_link()
response.write"</TABLE></TD></TR>"
response.write"<TABLE cellSpacing=1 cellPadding=0 width=100% align=center bgColor=#eeeeee border=0>"
response.write"<TBODY><TR><TD height=23 align=middle background=treepic/tb1_bg.jpg>"
response.write"<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>"
response.write"<TBODY><TR>"
response.write"<tr><td width=31 background=treepic/tb1_ps.jpg </td></tr>"
response.write"<TD width=665><div align=left class=longwei>友情论坛</div></TD>"
response.write"<TD width=66><img src=treepic/tb1_more.jpg width=66 height=26></TD>"
response.write"</TR></TBODY>"
response.write"</TABLE></TD></TR><TR>"



	Dim Rs,sql
	Dim m,i,k,l
	m=0
	k=1
	l=1
	sql="select boardname,readme,url,logo,islogo from [Dv_Bbslink] orders"
	Set Rs=DVbbs.Execute(sql)
	If Not RS.Eof then
		SQL=Rs.GetRows(-1)
    	end if
    	rs.close:set rs=nothing
	response.write "<table width=100% ><tr>"
	if Ubound(SQL,2)=0 then
 		response.write "目前还没有友情链接!"
	else

	For i=0 To Ubound(SQL,2)
		if SQL(4,i)=0 then
		response.write "<td width=""16%""><a href="&SQL(2,i)&" target=""_blank"" title="&SQL(1,i)&">"&SQL(0,i)&"</a>"      
                response.write "</td>"
				l=l+1
		if l Mod(6)=1 then
		response.write "</tr>"
		end if
		end if
	next
	end if
	response.write "<tr><td colspan=6><hr align=center size=1></td></tr><tr>"

	For i=0 To Ubound(SQL,2)
		if SQL(4,i)=1 then
		response.write "<td width=""16%""><a href="&SQL(2,i)&" target=""_blank""><img src="&SQL(3,i)&" border=0 width=""88"" height=""31"" title="&SQL(1,i)&"></a>"
                response.write "</td>"
		k=k+1
		if k Mod(6)=1 then
		response.write "</tr>"
		end if
		end if
	next
	response.write "</tr></table>"

End Sub

Sub Board_Rules()
	Dim TempStr
	TempStr=Dvbbs.BoardNode.attributes.getNamedItem("rules").text
	If TempStr<>"" Then
		Response.Write Replace(template.html(14),"{$GetRules}",TempStr)
	End If
End Sub

Sub news()
	Dim TempStr,SQL
	'TempStr=Dvbbs.Board_Data(23,0)
	TempStr = Dvbbs.BoardNode.attributes.getNamedItem("boardnews").text
	SQL=Split(TempStr,"|||")
	If Ubound(SQL)<1 Then
		Exit Sub
	End If
	Dim tmpdata,nexhour
	TempStr=template.html(8)
	If Dvbbs.Board_Setting(21)="1" Then
		tmpdata=split(Dvbbs.Board_Setting(22),"|")
		nexhour=Hour(Now())+1
		nexhour=nexhour mod 24
		If tmpdata(nexhour)="0" And Minute(now())>40 Then
			sql(1)=sql(1)&"--本版将于"&(60-Minute(now()))&"分钟后暂停开放,敬请留意"
		End If
	End If
	TempStr=Replace(TempStr,"{$width}",Dvbbs.mainsetting(0))
	TempStr=Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
	TempStr=Replace(TempStr,"{$news}",SQL(0)&"")
	TempStr=Replace(TempStr,"{$newstime}",SQL(1))
	Response.Write vbNewLine & TempStr
	TempStr="":SQL=Null
End Sub
Sub Board_online()
	Dim TempStr
	TempStr=template.html(9)
	TempStr=Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
	TempStr=Replace(TempStr,"{$allonline}",MyBoardOnline.Forum_Online)
	TempStr=Replace(TempStr,"{$boardtype}",Dvbbs.Boardtype)
	TempStr=Replace(TempStr,"{$boardonline}",MyBoardOnline.Board_UserOnline)
	TempStr=Replace(TempStr,"{$boardguest}",MyBoardOnline.Board_GuestOnline)
	TempStr=Replace(TempStr,"{$todaynum}",Dvbbs.BoardNode.attributes.getNamedItem("todaynum").text)
	TempStr=Replace(TempStr,"{$alertcolor}",Dvbbs.mainsetting(1))
	Response.Write vbNewLine & TempStr
	TempStr=""
	If Dvbbs.forum_setting(14)="1" Or Dvbbs.forum_setting(15)="1" Then 
		Response.Write vbNewLine & "<iframe width=""0"" height=""0"" src=""Online.asp?action=1&Boardid="&Dvbbs.Boardid&""" name=""hiddenframe""></iframe>"
	Else
		Response.Write vbNewLine & "<iframe width=""0"" height=""0"" src="""" name=""hiddenframe""></iframe>"
	End If
	Response.Write vbNewLine & "<Script Language=""JavaScript"">" & vbNewLine
	Response.Write LoadToolsInfo & vbNewLine
	Response.Write "</Script>" & vbNewLine
End Sub
Sub Show_List_Top()
	Dim TempStr,TempBoardMaster,BoardMaster,i
	If Dvbbs.BoardMaster="" Then
		BoardMaster="暂无版主"
	Else
		TempBoardMaster=Split(Dvbbs.BoardMasterList & "","|")
		For i=0 To Ubound(TempBoardMaster)
			BoardMaster = BoardMaster & "<a href=dispuser.asp?name="&TempBoardMaster(i)&">"&TempBoardMaster(i)&"</a>&nbsp;"
		Next
	End If
	If (Dvbbs.Board_Setting(43)="0" And Dvbbs.Board_Setting(0)="0") Or (Dvbbs.Board_Setting(43)="0" And Dvbbs.Board_Setting(0)="1" And (Dvbbs.Master Or Dvbbs.SuperBoardMaster Or Dvbbs.BoardMaster)) Then
		TempStr=template.html(11)
		TempStr=Replace(TempStr,"{$pic_postnew}",Dvbbs.mainpic(7))
		TempStr=Replace(TempStr,"{$pic_postvote}",Dvbbs.mainpic(8))
		TempStr=Replace(TempStr,"{$pic_postxzb}",Dvbbs.mainpic(9))
	if (Dvbbs.BoardID =25) then	
		TempStr=Replace(TempStr,"{$tuya}","<a href='NicePaint.asp?PaintBoard="&Dvbbs.BoardID&"'><img alt='开始涂鸦' src='Skins/Default/ty.gif' border='0' ></a>")
		else	
		TempStr=Replace(TempStr,"{$tuya}","")
		end if
	Else
		If Dvbbs.Board_Setting(0)="1" Then TempStr=template.Strings(13)
	End If
	TempStr=Replace(template.html(10),"{$showpostinfo}",TempStr)
	TempStr=Replace(TempStr,"{$page}",page)
	TempStr=Replace(TempStr,"{$width}",Dvbbs.mainsetting(0))
	TempStr=Replace(TempStr,"{$alertcolor}",Dvbbs.mainsetting(1))
	TempStr=Replace(TempStr,"{$boardmasterlist}",BoardMaster)
	TempStr=Replace(TempStr,"{$smallpaper}",Split(Dvbbs.BoardNode.attributes.getNamedItem("boardnews").text,"|||")(2))
	If Dvbbs.Forum_ChanSetting(2)="0" Or Dvbbs.Forum_ChanSetting(1)="1" Then
		TempStr=Replace(TempStr,"{$xmlandwap}",Split(Dvbbs.mainhtml(19),"||")(0))
		If Dvbbs.Forum_ChanSetting(2)="0" Then
			TempStr=Replace(TempStr,"{$isxml}",Split(Dvbbs.mainhtml(19),"||")(1))
			TempStr=Replace(TempStr,"{$isboard}",Split(Dvbbs.mainhtml(19),"||")(3))
		Else
			TempStr=Replace(TempStr,"{$isxml}","")
		End If
		If Dvbbs.Forum_ChanSetting(1)="1" Then
			TempStr=Replace(TempStr,"{$iswap}",Split(Dvbbs.mainhtml(19),"||")(2))
		Else
			TempStr=Replace(TempStr,"{$iswap}","")
		End If
	Else
		TempStr=Replace(TempStr,"{$xmlandwap}","")
	End If
	TempStr=Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
	If Dvbbs.Board_Setting(3)="1" Or Dvbbs.Board_Setting(57)="1" Then
		Dim allaudit,rs
		Set rs=dvbbs.execute("select count(*) from "&Dvbbs.Nowusebbs&" where boardid=777 and locktopic="&Dvbbs.BoardID)
		allaudit=rs(0)
		If IsNull(allaudit) Then allaudit=0
		Set Rs=Nothing
		TempStr=Replace(TempStr,"{$isaudit}","| <a href=AccessTopic.asp?boardid="&Dvbbs.BoardID&" title="&Replace(template.Strings(15),"{$auditnum}",allaudit)&">"&template.Strings(14)&"</a>(<font color="&Dvbbs.mainsetting(1)&">"&allaudit&"</font>)")
	Else
		TempStr=Replace(TempStr,"{$isaudit}","")
	End If
	If BoardTopicMode="" Then
		TempStr=Replace(TempStr,"{$topictype}","")
	Else
		TempStr=Replace(TempStr,"{$topictype}",template.html(12))
		TempStr=Replace(TempStr,"{$TopicMode}",BoardTopicMode)
	End If
	Response.Write TempStr & vbNewLine
	TempStr=Null
End Sub
Sub Chk_List_Err
	If Cint(Dvbbs.Board_Setting(2))=1 Then
		If Dvbbs.UserID=0 Then
			Dvbbs.AddErrCode(24)
		End If
	End If
	If Cint(Dvbbs.Board_Setting(1))=1 and Cint(Dvbbs.GroupSetting(37))=0 Then Dvbbs.AddErrCode(26)
	
	If Cint(Dvbbs.GroupSetting(0))=0  Then Dvbbs.AddErrCode(27)
	
	If action="batch" Then
		If CInt(Dvbbs.GroupSetting(45))<>1 Then Dvbbs.AddErrCode(28)
	End If
End Sub
'缓存道具信息
Function LoadToolsInfo()
	Dim Tools_Info,i,ShowTools,TempStr
	Dvbbs.Name="Plus_ToolsInfo"
	If Dvbbs.ObjIsEmpty() Then
		Dim Rs,Sql
		Sql = "Select ID,ToolsName From Dv_Plus_Tools_Info order by ID"
		Set Rs = Dvbbs.Plus_Execute(Sql)
		If Not Rs.Eof Then
			Sql = Rs.GetString(,, "§§§", "@#@", "")
		End If
		Rs.Close : Set Rs = Nothing
		Tools_Info = Split(Sql,"@#@")
		TempStr =  "var ShowTools = new Array();" & vbNewLine
		For i=0 To Ubound(Tools_Info)-1
			ShowTools = Split(Tools_Info(i),"§§§")
			TempStr = TempStr & "ShowTools["&ShowTools(0)&"]='"&Replace(Replace(Replace(ShowTools(1),"\","\\"),"'","\'"),chr(13),"")&"';"
		Next
		Dvbbs.value = TempStr & vbNewLine
	End If
	LoadToolsInfo = Dvbbs.value
End Function
%>
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -