<%
dim i,j
dim ArticleID
dim Title
dim NewsClassName
dim PurviewChecked
dim strAdmin,arrAdmin
PurviewChecked=false
Title=Trim(request("Title"))
ArticleID=Request("ArticleID")
NewsClassName=Trim(request("NewsClassName"))
strFileName="News.asp?NewsClassName=" & NewsClassName
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
sql="select * from News where ArticleID>0"
if Title<>"" then
sql=sql & " and title like '%" & Title & "%' "
end if
if NewsClassName<>"" then
sql=sql & " and NewsClassName='" & NewsClassName & "' "
else
end if
sql=sql & " order by articleid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
无锡市江南运输机械有限公司欢迎您！
欢迎光临无锡市江南运输机械有限公司新版网站！！！