list.asp

来自「旅游管理系统 用ASP+SQL 2」· ASP 代码 · 共 138 行

<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="code.asp"-->
<%
   	dim sql
   	dim rs
   	dim rstype
   	dim typesql
   	dim typeid,typename,classname,classid,Nclassname,Nclassid
   	dim title
	set rs=server.createobject("adodb.recordset")
	sql="update article set hits=hits+1 where articleID="&request("id")
	rs.open sql,conn,1,3 
  	sql="select Aclass.class,ANclass.Nclass,article.title,article.classid,article.Nclassid from article,Aclass,ANclass where article.classid=Aclass.classid and article.Nclassid=ANclass.Nclassid and article.articleID="&request("id")
 	rs.open sql,conn,1,1
 	if not rs.eof then
	title=rs("title")
	classid=rs("classid")
	Nclassid=rs("Nclassid")
	classname=rs("class")
	Nclassname=rs("Nclass")
 	end if
	rs.close
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" id="AutoNumber3">
<tr>
<td><!--#include file="head.htm"-->
</td>
</tr>
</table>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" id="AutoNumber4">
<tr>
<td width="150" valign="top" bgcolor="#00BAF2">
<!--#include file="left.htm"-->
</td>
<td width="610" valign="top" bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
  <tr>
    <td width="100%">
	<table border="0" width="100%" cellspacing="3" cellpadding="3" style="border-collapse: collapse" id="table1">
		<tr>
			<td><a href="index.asp"><u><%=classname%></u></a>…<a href="indexx.asp?classid=<%=classid%>&Nclassid=<%=Nclassid%>"><u><%=Nclassname%></u></a>…<font color="#ff0000"><%=title%></font></font>&nbsp;</td>
		</tr>
	</table>
	</td>
  </tr>
  <tr>
    <td width="100%" background="pic/line.gif"><img border="0" src="pic/line.gif"></td>
  </tr>
  <tr>
    <td width="100%">
	<div align="center">
                <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="95%" id="AutoNumber9">
                  <tr><td>
                  
<%
	
	dim key   
	sql="select * from article where articleid="&request("id")   
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "没有找到相关文章。"
		response.end
	end if
	if rs("Nkey")<>"" then   
		key=rs("Nkey")   
	else   
		key="None News"   
	end if  
%>  
                  
</td></tr>
                  <tr>
					<td>
                  
　</td>
					</tr>
                  <tr>
<td width="100%">&nbsp;<u><b><%=rs("title")%></b></u></td>
                  </tr>
                  <tr><td><hr noshade size="1" color="#CCCCCC"></td></tr>
                  <tr>
                    <td width="100%">
					<div align="center">
						<table border="0" width="90%" cellspacing="3" cellpadding="3" style="border-collapse: collapse" id="table2">
							<tr>
								<td><%=rs("content")%></td>
							</tr>
						</table>
					</div>
					</td>
                  </tr>
                  <tr>
                    <td width="100%">
                    


</td>
                  </tr>
<tr>
                    <td width="100%"><hr noshade size="1" color="#CCCCCC"></td>
                  </tr>
                	<tr>
                    <td width="100%">
                    <p align="left">
                    <%   
	set rs=conn.execute("SELECT top 7 articleid,title FROM article where Nkey='"&key&"' order by articleid desc")   
	do while not rs.eof    
   
%>·&nbsp;<font color="#214DA5"><a href='list.asp?id=<%=rs("articleid")%>'><u><%=rs("title")%></u></a></font>
<%   
	rs.movenext    
	loop   
%></td>
                  </tr>
                </table>
	</div>
	</td>
  </tr>
  <tr>
    <td width="100%">　</td>
  </tr>
</table>
</td>
</tr>
</table>
<!--#include file="foot.htm"-->
</center>
</div>
<%   
rs.close   
set rs=nothing   
conn.close   
set conn=nothing
%>