aspα¾²Ì¬ - Web ¿ª·¢ / ASP

ÎÒÕÒÁËÒ»¸öα¾²Ì¬´úÂ룬ÈçÏ£º

index.asp


<!--#include file="config.asp"-->  
<ol>  
<%  

Set rs=server.CreateObject("adodb.recordset")  
sql="select * from Article"  
rs.open sql,conn,1,1  
do while not rs.eof  
%>  
<li><a href="article.asp?/<%=rs("id")%>.html"><%=left(trim(rs("title")),30)%></a></li>  
<%  
rs.movenext  
loop  
rs.close  
set rs=Nothing  
%>  
</ol>  

Article.asp

<!--#include file="config.asp"-->  
<%  
'¹¦ÄÜ£ºaspʵÏÖα¾²Ì¬µÄÀý×Ó
'꿅᣼www.aspprogram.cn
'À´Ô´£ºÍøÂç
id=request.QueryString("id")  
If id="" Then  
server_v40=Request.ServerVariables("QUERY_STRING")  
id=Int(replace(replace(server_v40,"/",""),".html",""))  
End If  
Call ReadNews()  
%>  
<div>  
±êÌâ: <b><%= News_title%></b><br />  
ÄÚÈÝ: <%=News_content%>  
</div>  

config.asp

<%