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

📄 page.asp

📁 Simple涂乌板2
💻 ASP
字号:
🔍 
<!-- #include file="inc/conn.asp" -->
<!-- #include file="inc/config.asp" -->
<!-- #include file="inc/func_login.asp" -->
<!-- #include file="inc/function.asp" -->
<%
If Session("visitor")=Empty Then
	Response.Redirect "index.asp"
End If
Session.Contents.Remove("FuncLoginPass")

tbname="record"

mode=Int(SafeRequest("mode"))
block=Int(SafeRequest("block"))
theme=Int(SafeRequest("theme"))

Dim sql,sql_block,sql_theme,sql_theme_Count,n,n_block,n_theme,mode

If theme<>0 And mode=0 Then
	'主题区留言语句
	sql="select ID,name,note,image,face,mood,weather,time,webtype,webaddr,qq,email,homepage,phone,reply,quote,replytime,IP,themeName from "&tbname&" where dbtype="&block&" and themeNo="&theme&" order by ID"
	set rs=GetRS(mdbname,tbname,sql)
	rsrow=rs.GetRows
Else
	'留言区语句
	sql="select ID,name,note,image,face,mood,weather,time,webtype,webaddr,qq,email,homepage,phone,reply,quote,replytime,IP from "&tbname&" where dbtype=0 order by ID DESC"
	set rs=GetRS(mdbname,tbname,sql)
	rsrow=rs.GetRows
End If

If mode=1 Then
	'该版块语句
	sql_block="select name,image,mood,themeName,dbtype,reply,ID from "&tbname&" where dbtype="&block&" and themeNo=0 order by dbtype"
	set block_rs=GetRS(mdbname,tbname,sql_block)
	block_row=block_rs.GetRows
	'该主题数目
	sql_theme_Count="select count(dbtype) from "&tbname&" where dbtype="&block&" and themeName<>Null and themeNo<>0"
	set theme_Count_rs=GetRS(mdbname,tbname,sql_theme_Count)
	theme_Count_row=theme_Count_rs.GetRows
ElseIf mode=0 Or mode=8 Then
	'所有版块语句
	sql_block="select name,image,mood,themeName,dbtype,reply from "&tbname&" where dbtype<>0 and themeNo=0 order by dbtype"
	set block_rs=GetRS(mdbname,tbname,sql_block)
	If block_rs.EOF Then
		mode=7
	Else
		block_row=block_rs.GetRows
		'所有主题数目
		sql_theme_Count="select count(dbtype) from "&tbname&" where dbtype<>0 and themeName<>Null and themeNo<>0 group by dbtype"
		set theme_Count_rs=GetRS(mdbname,tbname,sql_theme_Count)
		theme_Count_row=theme_Count_rs.GetRows
	End If

End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<!-- #include file="inc/head.html" -->
	<body>
		<div id="body" align="center">
<!-- #include file="inc/LOGO.html" -->
<% If (mode=0 Or mode=8 Or mode=1) And theme=0 Then %>
<!-- #include file="inc/themebar.asp" -->
<!-- #include file="inc/theme_inc.asp" -->
<% If mode=1 Then %><!-- #include file="inc/themebottom.asp" -->
<% End If %>
<% End If %>

<% If mode=0 Or mode=7 Then %>
<% RecordCount=rs.RecordCount %>
<!-- #include file="inc/blockbar.asp" -->
<!-- #include file="inc/page_inc.asp" -->
<!-- #include file="inc/blockbottom.asp" -->
<% End If %>
<!-- #include file="inc/copyright.html" -->
		</div>
	</body>
</html>

<%
rs.Close
cnn.Close
If mode<>7 Then
	block_rs.Close
	Set block_rs=Nothing
	Set theme_rs=Nothing
	Set theme_Count_rs=Nothing
End If
Set rs=Nothing
Set cnn=Nothing
%>

⌨️ 快捷键说明

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