<%if request("typeid")="" and request("id")="" then%>
<%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%>
| |
| <%=rs("a_name")%> |
|
發(fā)布者：<%=rs("a_author")%> 發(fā)布日期：<%=rs("a_date")%> |
|
|
|
<%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 where a_sort=6 order by id desc"
end if
rs.open sql,conn,1,1%>
| |
<%if rs.eof then%>
No Date |
<%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"&a_name&"")
%>
 " target=_blank><%=news_name%> [<%=rs("a_date")%>]
|
|
<%rs.movenext
loop
End If
rs.close
set rs=nothing%>
|
<%end if%>
<%if id="" then%>
<%end if%>
|
<%elseif request("id")<>"" then
id = Request.QueryString("id")
If Not(isNumeric(id)) Then
Response.Write "操作錯誤！ "
else
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_book where id="&id&""
rs.open sql,conn,1,1
if not rs.eof then%>
<%end if
rs.close
set rs=nothing
End If
elseif request("typeid")<>"" then
typeid = Request.QueryString("typeid")
If Not(isNumeric(typeid)) Then
Response.Write "操作錯誤！ "
else
set rs=server.createobject("adodb.recordset")
sql="select typename from venshop_type where id="&typeid&""
rs.open sql,conn,1,1
if not rs.eof then
typen=rs("typename")
end if
rs.close
set rs=nothing
%>
 您的位置： 首頁 >> 關(guān)于我們 >> <%=typen%> |
<%set rs=server.createobject("adodb.recordset")
sql="select * from venshop_book where typeid="&typeid&" order by id asc"
rs.open sql,conn,1,1
do while not rs.eof%>
|
 <%=rs("title")%> |
|
<%=rs("nr")%> |
|
|
<%rs.movenext
loop
rs.close
set rs=nothing%>
|
<%End If
End If%> |
東莞網(wǎng)站建設 > 新聞中心 
