article.asp

凡人网络购物系统 v8.0 中文版

<!--#include file="top.asp"-->
<div align="center"><table width=980 border=0 cellpadding=0 cellspacing=0 bgcolor="#FFFFFF">
<tr><td width=180 valign="top" rowspan="2" height="300" align="center"><!--#include file="ina.asp"--></td>
<td valign="top" align="center" width="10"></td>
<td valign="top" align="center">
<%if request("a_id")<>"" then 
id=Request.QueryString("a_id")
If Not(isNumeric(id)) Then
Response.Write "<p align=center>操作错误！</p>"
Response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_article where id="&id&""
rs.open sql,conn,1,1  
if not rs.eof then%>	
<table width="100%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0"> 
<tr><td valign="top" align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr><td height="30" align="center"  class="vtitle" valign="bottom"><%=rs("a_name")%></td></tr>
<tr><td><hr size="1"></td></tr>
<tr><td height="20" align="right"><p style="margin-right: 20px"><font color="#808080">作者：<%=rs("a_author")%>&nbsp;&nbsp;转载自：<%=rs("a_from")%>&nbsp;&nbsp;发布日期：<%=rs("a_date")%></font></td></tr>
	<tr><td height="100"><p style="line-height: 150%; margin-left: 10; margin-right: 10"><%=rs("a_content")%></td></tr></table>
  </td></tr>
</table>
<%end if
rs.close
set rs=nothing
else
if request("newssort_id")<>"" then
newssort_id=Request.QueryString("newssort_id")
If Not(isNumeric(newssort_id)) Then
Response.Write "<p align=center>操作错误！</p>"
Response.end
end if
elseif request("newsnsort_id")<>"" then
newsnsort_id=Request.QueryString("newsnsort_id")
If Not(isNumeric(newsnsort_id)) Then
Response.Write "<p align=center>操作错误！</p>"
Response.end
end if
end if
page=request("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
set rs=server.createobject("adodb.recordset")
if newsnsort_id<>"" then
sql="select * from venshop_article where a_nsort="&newsnsort_id&" order by id desc"
elseif newssort_id<>"" then
sql="select * from venshop_article where a_sort="&newssort_id&" order by id desc"
else
sql="select * from venshop_article order by id desc"
end if
rs.open sql,conn,1,1
rs.pagesize=20
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize%>
<table width="100%" cellpadding="0" cellspacing="0"> 
  <tr><td height="23" class="bg"><p style="margin-left: 10px;font-size:10pt"><font color="#FFFFFF"><b>文章列表：</b></font></td></tr>
  <tr><td valign="top" width="770" align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<%if rs.eof then%><tr><td><p style="line-height: 150%; margin-left: 10; margin-right: 10">No Date</td></tr>
<%else
i=0
do while not rs.eof and (i<rs.pagesize)
i=i+1%>
<tr><td height="26"><p style="line-height: 150%; margin-left: 10; margin-right: 10"><img border="0" src="img/newsq.gif" width="6" height="6"> <a href="article.asp?a_id=<%=rs("id")%>" target=_blank><%=rs("a_name")%></a> <font color="#808080">[<%=rs("a_date")%>]</font></td></tr>
<tr><td height="2" background="Img/dot_menu.gif"></td></tr>
<%rs.movenext
loop
End If
rs.close
set rs=nothing%></table></td></tr></table><%end if%>
<%if id="" then%><table cellspacing="0" cellpadding="0" width="100%">
<form action=article.asp?newssort_id=<%=newssort_id%> method=post><tr> 
<td height="23" align="center"> 
第<%=page%>页/共<%=totalpage%>页&nbsp;&nbsp;
<%if page-1>0 then%><a href="article.asp?newssort_id=<%=newssort_id%>&page=<%=page-1%>">上一页</a><%else%>上一页<%end if%>&nbsp;&nbsp;
<%if page+1<=totalpage then%><a href="article.asp?newssort_id=<%=newssort_id%>&page=<%=page+1%>">下一页</a><%else%>下一页<%end if%>&nbsp;&nbsp;
页面跳转：<input type="text" name="page" value="<%=page+1%>" size="1" style="text-align: center" class=input><input type="submit" value="GO" class=input></td></tr></form>
</table><%end if%>
<br><br>
</td></tr></table>
</td></tr></table></div>
<!--#include file="copy.asp"-->