📄 config_article.asp

📁 鄂尔多斯建站网全站程序(冬季修正版)
💻 ASP
字号:
<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: steven_bass@msn.com         *
'手机:(0)13632779827              *
'mail:wtez@vip.163.com            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
</head>

<%sub article%>
	<table border="0" cellpadding="0" cellspacing="1" width="100%" id="table1" bgcolor="#626262">
		<tr>
			<td height="20">&nbsp;<font color="#FFFFFF">当前位置: 首页 --&nbsp; 所有新闻</font></td>
		</tr>
		<tr>
			<td bgcolor="#FFFFFF">
			<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="95%" id="table2" height="25">
					<tr>
						<td>　</td>
					</tr>
					<tr>
						<td>
						<div align="center">
							<table border="0" cellpadding="0" cellspacing="1" width="100%" id="table3">
<%Set rs = Server.CreateObject("ADODB.Recordset")                                 
sql="select * from news order by news_id desc"                                  
rs.open sql,conn,3,3                                 
if rs.eof and rs.bof then                                 
response.write("未有任何文章")                               
else                                 
pgsize=30                                 
page=request.querystring("page")
rs.pagesize=pgsize                                 
pgnm=rs.pagecount                                 
if page=""or clng(page)<1 then page=1                                 
if clng(page)>pgnm then page=pgnm 
if pgnm>0 then rs.absolutepage=page
count=0
do while not rs.eof and count<rs.pagesize
%>							
								<tr>
									<td height="20">
									<img border="0" src="pic/h_.gif" width="11" height="11"> 
									[<%if rs("id")="1" then
									response.write("站内新闻")
									elseif rs("id")="2" then
									response.write("帮助专区")
									elseif rs("id")="3" then
									response.write("业务相关")
									end if
									%>]&nbsp;&nbsp;-&nbsp;&nbsp;<a href=javascript:openScript('news.asp?news_id=<%=rs("news_id")%>',600,450)><%=rs("news_title")%></a></td>
								</tr>
<%                 
count=count+1                  
rs.movenext                  
loop                  
end if                  
rs.close                  
set rs=nothing                  
%>								
							</table>
						</div>
						</td>
					</tr>
					<tr>
						<td>
						<p align="center"><a href=article.asp?page=<%=page-1%>>上一页</a>&nbsp;┊&nbsp;<a href=article.asp?page=<%=page+1%>>下一页</a></td>
					</tr>
					<tr>
						<td>　</td>
					</tr>
				</table>
			</div>
			</td>
		</tr>
	</table>
<%end sub%>
<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: steven_bass@msn.com         *
'手机:(0)13632779827              *
'mail:wtez@vip.163.com            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
⌨️ 快捷键说明

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