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

📄 admin_articlepreview.asp

📁 三鸟个人网站源码。
💻 ASP
字号:
🔍 
<%@language=vbscript codepage=936 %>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/function.asp"-->
<%
dim FoundErr,ErrMsg
dim ClassID,tClass,ClassName,RootID,ParentID,ParentPath,Depth,Child,ClassMaster
call main()
call CloseConn()

sub main()
%>
<html>
<head>
<title><%=request("Title")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_Style.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="760" border="0" align="center" cellpadding="5" cellspacing="0" class="border">
  <tr class="title"> 
    <td width="400" height="22">
	<%
	ClassID=trim(request("ClassID"))
	if ClassID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定所属栏目</li>"
		exit sub
	else
		ClassID=Clng(ClassID)
	end if
	set tClass=conn.execute("select ClassName,RootID,ParentID,Depth,ParentPath,Child,ClassMaster From ArticleClass where ClassID=" & ClassID)
	if tClass.bof and tClass.eof then
		FounErr=True
		ErrMsg=ErrMsg & "<br><li>找不到指定的栏目</li>"
		exit sub
	else
		ClassName=tClass(0)
		RootID=tClass(1)
		ParentID=tClass(2)
		Depth=tClass(3)
		ParentPath=tClass(4)
		Child=tClass(5)
		ClassMaster=tClass(6)
	end if
	set tClass=nothing
if ParentID>0 then
	dim sqlPath,rsPath
	sqlPath="select ClassID,ClassName From ArticleClass where ClassID in (" & ParentPath & ") order by Depth"
	set rsPath=server.createobject("adodb.recordset")
	rsPath.open sqlPath,conn,1,1
	do while not rsPath.eof
		response.Write rsPath(1) & "&nbsp;&gt;&gt;&nbsp;"
		rsPath.movenext
	loop
	rsPath.close
	set rsPath=nothing
end if
response.write ClassName & "&nbsp;&gt;&gt;&nbsp;"

	if request("IncludePic")=true then
		response.write "<font color=blue>[图文]</font>"
	end if
	response.write request("Title")
	%>
	</td>
    <td width="50" height="22" align="right"> <%
			if lcase(request("OnTop"))="yes" then
				response.Write("顶&nbsp;")
			else
				response.write("&nbsp;&nbsp;&nbsp;")
			end if
			if lcase(request("Hot"))="yes" then
				response.write("热&nbsp;")
			else
				response.write("&nbsp;&nbsp;&nbsp;")
			end if
			if lcase(request("Elite"))="yes" then
				response.write("荐")
			else
				response.write("&nbsp;&nbsp;")
			end if
			%> </td>
  </tr>
  <tr class="tdbg"> 
    <td colspan="3"><p align="center"><font size="6"><%=dvhtmlencode(request("Title"))%></font><br>
        作者：<%=dvhtmlencode(request("Author"))%>&nbsp;&nbsp;&nbsp;&nbsp;转贴自：<%=dvhtmlencode(request("CopyFrom"))%>&nbsp;&nbsp;&nbsp;&nbsp;点击数：0&nbsp;&nbsp;&nbsp;&nbsp;文章录入：<%=session("admin")%></p>
      <p><%=ubbcode(request("Content"))%></p>
      </td>
  </tr>
</table>
<p align="center">【<a href="javascript:window.close();">关闭窗口</a>】</p>
</body>
</html>
<%
end sub
%>

⌨️ 快捷键说明

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