www.gusucode.com > 凡人网络购物系统 2008源码程序 > article.asp
<!--#include file="conn.asp"-->
<%
if Request("a_id")<>"" then
a_id=Request("a_id")
chkid(a_id)
set rs=server.createobject("adodb.recordset")
sql="select a_name,a_keyword from venshop_article where id="&a_id&""
rs.open sql,conn,1,1
if not rs.eof then
a_name=rs("a_name")
if rs("a_name")<>"" then
hw_keyword=rs("a_keyword")
else
hw_keyword=rs("a_name")
end if
end if
rs.close
set rs=nothing
end if
page=request("page")
page=getpage(page)
%>
<!--#include file="IncAsp/venshop_top.asp"-->
<div align="center">
<table cellpadding="0" cellspacing="0" class="all_t1">
<tr><td class="all_l_td" valign="top" height=300>
<table cellSpacing="0" cellPadding="0" border="0" class="news_la">
<tr><td class="news_la1"><span class="news_laf">网站新闻 | NEWS</span></td></tr>
<tr><td class="news_la2" align=center>
<table border="0" cellpadding="0" cellspacing="0" width="85%" id="table1">
<form method="POST" action="article.asp">
<tr><td height="30">
<input type="text" name="a_name" size="12" class=input value="<%=request("a_name")%>">
<input type="submit" value="搜索" name="B1" class="input"></td></tr>
</form>
<tr><td height="23"><b><a href="article.asp">所有新闻</a></b></td></tr>
<tr><td height="2" background="Img/dot_menu.gif"></td></tr>
<%set rs=server.CreateObject("adodb.recordset")
sql="select sort_id,sort_name from venshop_newssort order by sort_id asc"
rs.open sql,conn,1,1
do while not rs.eof
inaid=rs("sort_id")%>
<tr><td height="23"><b><a href="article.asp?newssort_id=<%=rs("sort_id")%>"><%=rs("sort_name")%></a></b></td></tr>
<tr><td height="2" background="Img/dot_menu.gif"></td></tr>
<%set rs8=server.CreateObject("adodb.recordset")
rs8.open "select nsort_id,nsort_name from venshop_newsnsort where sort_id="&inaid&"" ,conn,1,1
do while not rs8.eof and not rs8.bof%>
<tr><td height="23"> <img border="0" src="img/newsq.gif" width="6" height="6"> <a href="article.asp?newsnsort_id=<%=rs8("nsort_id")%>"><%=rs8("nsort_name")%></a></td></tr>
<tr><td height="2" background="Img/dot_menu.gif"></td></tr>
<%rs8.movenext
loop
rs8.close
set rs8=nothing%>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</table>
</td></tr>
<tr><td class="news_la3"></td></tr></table>
</td>
<td valign="top" class="all_c_td">
<%if request("a_id")<>"" then
id=Request.QueryString("a_id")
chkid(id)
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="99%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0">
<tr><td class="sort"> <IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle"> 您的位置：
<a href="index.asp">首页</a> >> <a href="article.asp">文章列表</a> >> <%=rs("a_name")%></td></tr>
<tr><td valign="top" align="center">
<table border="0" width="99%" 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")%> 转载自：<%=rs("a_from")%> 发布日期：<%=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("a_name")<>"" then
a_name=DelStr(Request("a_name"))
showp="&a_name="&a_name
elseif request("newssort_id")<>"" then
newssort_id=Request.QueryString("newssort_id")
showp="&newssort_id="&newssort_id
chkid(newssort_id)
elseif request("newsnsort_id")<>"" then
newsnsort_id=Request.QueryString("newsnsort_id")
showp="&newsnsort_id="&newsnsort_id
chkid(newsnsort_id)
end if
set rs=server.createobject("adodb.recordset")
if a_name<>"" then
sql="select id,a_name,a_date from venshop_article where a_name like '%"&a_name&"%' order by id desc"
elseif newsnsort_id<>"" then
sql="select id,a_name,a_date from venshop_article where a_nsort="&newsnsort_id&" order by id desc"
elseif newssort_id<>"" then
sql="select id,a_name,a_date from venshop_article where a_sort="&newssort_id&" order by id desc"
else
sql="select id,a_name,a_date from venshop_article order by id desc"
end if
rs.open sql,conn,1,1%>
<table width="99%" cellpadding="0" cellspacing="0">
<tr><td class="sort"> <IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle"> 您的位置：
<a href="index.asp">首页</a> >> 文章列表：</td></tr>
<tr><td valign="top" 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
rs.pagesize=20
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize
i=0
do while not rs.eof and (i<rs.pagesize)
i=i+1
news_name=replace(rs("a_name"),a_name,"<font color=#FF0000><b>"&a_name&"</b></font>")
%>
<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><%=news_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="99%">
<form action=article.asp?t=venshop<%=showp%> method=post><tr>
<td height="30">
第<%=page%>页/共<%=totalpage%>页
<%if page-1>0 then%><a href="article.asp?t=venshop<%=showp%>&page=<%=page-1%>">上一页</a><%else%>上一页<%end if%>
<%if page+1<=totalpage then%><a href="article.asp?t=venshop<%=showp%>&page=<%=page+1%>">下一页</a><%else%>下一页<%end if%>
页面跳转：<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="IncAsp/venshop_copy.asp"-->