syscode_art.asp

后台登陆admin.asp

<%

'****************************************************
if guestart<>"yes" and UserLogined<>True then
call guesterror()
response.end
end if
dim art_id,cat_id,art_title,art_images,art_imgyes
dim founderr,errmsg,RsHxcms
art_id=trim(request.querystring("art_id"))
if art_id<>"" then
    if not isInteger(art_id) then
    FoundErr=True
    ErrMsg=ErrMsg & "<br><li>非法的线路ID参数！</li>"
    end if
	art_id=CLng(art_id)
else
	art_id=0
end if

if request.querystring("cat_id")<>"" then
  if not isInteger(request.querystring("cat_id")) then
    Response.Redirect "show_error.asp?eid=传值参数非法!"
    Response.End
  end if
  cat_id=CLng(request("cat_id"))
else
  cat_id=0
end if

if art_id>0 then
   sql="select * from art where art_id="&art_id
   set rs=server.createobject("adodb.recordset")
   rs.open sql,conn,1,3
	if rs.bof and rs.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>你要找的线路不存在，或者已经被管理员删除！</li>"
	else	
		if rs("Passed")=1 then
			FoundErr=True
			ErrMsg=ErrMsg & "<br><li>你要找的线路尚未被管理员审核！</li>"
		else
			start="旅游线路中心 - "&rs("art_title")&""
                        cat_id=CLng(rs("cat_id"))
                        art_title=rs("art_title")
                        art_images=rs("images")
                        art_imgyes=rs("imgyes")
                        rs("art_count")=rs("art_count")+1
			rs.update
		end if
	end if
end if

if FoundErr=True then
	Call HxErrMsg()
	response.end
end if

'=================================================
'过程名：new_art
'作  用：最新文章
'参  数：n-调用条数,nn-显示长度
'        NewWindows-----是否新窗打开，True为是，False为否
'Web:   www.ynsky.com.cn
'=================================================
sub new_art(n,nn,NewWindows)
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=0 border=0 align='center'>" & vbCrLf
set RsHxcms=server.createobject("adodb.recordset")
set RsHxcms=conn.execute("select top "&n&" * from art where passed=0 order by art_id desc")
do while not RsHxcms.eof
Response.Write "<tr><td height='22' align='left' class=table-xia><font color=#FF0000>·</font><a href='showart.asp?art_id="&RsHxcms("art_id")&"' title='"&RsHxcms("art_title")&"' "& nnn &">"&gotTopic(RsHxcms("art_title"),nn)&"</a></td></tr>" & vbCrLf
RsHxcms.movenext
loop
if RsHxcms.bof and RsHxcms.eof then
Response.Write "<tr><td align='center' valign='middle'>当前没有线路！</td></tr>" & vbCrLf
end if
RsHxcms.close
set RsHxcms=nothing
Response.Write "</TABLE>" & vbCrLf
end sub







'=================================================
'过程名：best_web
'作  用：推荐文章
'参  数：n-调用条数,nn-显示长度
'        NewWindows-----是否新窗打开，True为是，False为否
'Web:   www.ynsky.com.cn
'=================================================
sub best_web(n,nn,NewWindows)
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=0 border=0 align='center'>" & vbCrLf
set RsHxcms=server.createobject("adodb.recordset")
set RsHxcms=conn.execute("select top "&n&" * from web where passed=0 and isbest=1 order by art_id desc")
do while not RsHxcms.eof
Response.Write "<tr><td height='22' align='left' class=table-xia>&nbsp;<font color=#FF0000>·</font><a href=showweb.asp?art_id="&RsHxcms("art_id")&" title="&RsHxcms("art_title")&" "& nnn &">"&gotTopic(RsHxcms("art_title"),nn)&"</a></td></tr>" & vbCrLf
RsHxcms.movenext
loop
if RsHxcms.bof and RsHxcms.eof then
Response.Write "<tr><td align='center' valign='middle'>没有推荐文章！</td></tr>" & vbCrLf
end if
RsHxcms.close
set RsHxcms=nothing
Response.Write "</TABLE>" & vbCrLf
end sub



'=================================================
'过程名：best_art
'作  用：推荐文章
'参  数：n-调用条数,nn-显示长度
'        NewWindows-----是否新窗打开，True为是，False为否
'Web:   www.ynsky.com.cn
'=================================================
sub best_art(n,nn,NewWindows)
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=0 border=0 align='center'>" & vbCrLf
set RsHxcms=server.createobject("adodb.recordset")
set RsHxcms=conn.execute("select top "&n&" * from art where passed=0 and isbest=1 order by art_id desc")
do while not RsHxcms.eof
Response.Write "<tr><td height='22' align='left' class=table-xia>&nbsp;<font color=#FF0000>·</font><a href=showart.asp?art_id="&RsHxcms("art_id")&" title="&RsHxcms("art_title")&" "& nnn &">"&gotTopic(RsHxcms("art_title"),nn)&"</a></td></tr>" & vbCrLf
RsHxcms.movenext
loop
if RsHxcms.bof and RsHxcms.eof then
Response.Write "<tr><td align='center' valign='middle'>没有推荐线路！</td></tr>" & vbCrLf
end if
RsHxcms.close
set RsHxcms=nothing
Response.Write "</TABLE>" & vbCrLf
end sub

'=================================================
'过程名：top_art
'作  用：热门线路点击排行
'参  数：n--------------调用条数
'        nn-------------显示长度
'        NewWindows-----是否新窗打开，True为是，False为否
'Web:    www.ynsky.com.cn
'=================================================
sub top_art(n,nn,NewWindows)
dim nnn,RsHxcms
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=0 border=0 align='center'>" & vbCrLf
set RsHxcms=server.createobject("adodb.recordset")
set RsHxcms=conn.execute("select top "&n&" * from art where passed=0 order by art_count desc,art_id desc")
do while not RsHxcms.eof
Response.Write "<tr><td height='22' align='left' class=table-xia><font color=#FF0000>·</font><a href='showart.asp?art_id="&RsHxcms("art_id")&"' title='"&RsHxcms("art_title")&"' "& nnn &">"&gotTopic(RsHxcms("art_title"),nn)&"</a></td></tr>" & vbCrLf
RsHxcms.movenext
loop
if RsHxcms.bof and RsHxcms.eof then
Response.Write "<tr><td align='center' valign='middle'>当前没有线路！</td></tr>"
end if
RsHxcms.close
set RsHxcms=nothing
Response.Write "</TABLE>" & vbCrLf
end sub

'=================================================
'过程名：newhot_art
'作  用：热门文章
'参  数：n-调用条数,nn-显示长度,popartnum-热门点击数
'        NewWindows-----是否新窗打开，True为是，False为否
'Web:   www.ynsky.com.cn
'=================================================
sub newhot_art(n,nn,NewWindows)
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=0 border=0 align='center'>" & vbCrLf
set RsHxcms=server.createobject("adodb.recordset")
set RsHxcms=conn.execute("select top "&n&" * from art where passed=0 and art_count>="&popartnum&" order by art_id desc")
do while not RsHxcms.eof
Response.Write "<tr><td height='22' align='left' class=table-xia>&nbsp;<font color=#FF0000>·</font><a href=showart.asp?art_id="&RsHxcms("art_id")&" title="&RsHxcms("art_title")&" "& nnn &">"&gotTopic(RsHxcms("art_title"),nn)&"</a></td></tr>" & vbCrLf
RsHxcms.movenext
loop
if RsHxcms.bof and RsHxcms.eof then
Response.Write "<tr><td align='center' valign='middle'>没有热门线路！</td></tr>" & vbCrLf
end if
RsHxcms.close
set RsHxcms=nothing
Response.Write "</TABLE>" & vbCrLf
end sub

'=================================================
'过程名：count_art
'作  用：文章统计
'参  数：无
'Web:   www.ynsky.com.cn
'=================================================
sub count_art()
dim zw,zc,jw,zzw,sw,yd,pl  
zw=conn.execute("select count(*) from art where passed=0")(0)
sw=conn.execute("select count(*) from art where passed=1")(0)
jw=conn.execute("select count(*) from art where passed=0 and art_date>=#"&date()&"#")(0)
zzw=conn.execute("select count(*) from art where passed=0 and art_date>=#"&date()-1&"#")(0)
yd=conn.execute("select sum(art_count) from art")(0)
pl=conn.execute("select sum(reviewcount) from art")(0)
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=0 border=0 align='center'>" & vbCrLf
Response.Write "<tr><td height=20>&nbsp;<font color=#FF0000>·</font><strong>线路总数:</strong>"&zw&" 条</td></tr>" & vbCrLf
Response.Write "<tr><td height=20>&nbsp;<font color=#FF0000>·</font><strong>评论总数:</strong>"&pl&" 条</td></tr>" & vbCrLf
Response.Write "<tr><td height=20>&nbsp;<font color=#FF0000>·</font><strong>线路阅读:</strong>"&yd&" 人次</td></tr>" & vbCrLf
Response.Write "</TABLE>" & vbCrLf
end sub

'=================================================
'过程名：class_art
'作  用：文章分类
'参  数：无
'Web:   www.ynsky.com.cn
'=================================================
sub class_art()
%>
<SCRIPT language=javascript>
function showmenu.Hx(buyok,img)
{
if(buyok.style.display=="none"){
buyok.style.display="";
img.src="img/bclass2.gif";
} else {
buyok.style.display="none"; 
img.src="img/bclass1.gif";
}
}
</SCRIPT>
<%
response.write "<TABLE align=center cellSpacing=0 cellPadding=0 width='100%' border=0>" & vbCrLf
sql="select * from a_cat where sid=0"
set rs1=conn.execute(sql)
i=0
do while not rs1.eof
i=i+1
response.write "<TR><TD language=javascript onmouseup='showmenu.Hx(buyok"&i&",img"&i&");' valign=middle>&nbsp;<IMG id=img"&i&" height=20 src=img/bclass1.gif width=20 align=absMiddle>"
if request("cat_id")=cstr(rs1("cat_id")) then
response.write "&nbsp;<font color=""#FF0000"">［"&rs1("cat_name")&"］</a></font></td></tr>" & vbCrLf
else
response.write "&nbsp;<a href='art.asp?cat_id="&rs1("cat_id")&"'>［"&rs1("cat_name")&"］</a></td></tr>" & vbCrLf
end if
sql="select * from a_cat where sid="&rs1("cat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
response.write "<TR><TD id=buyok"&i&" style='display: none'>" & vbCrLf
do while not rs2.eof
if request("cat_id")=cstr(rs2("cat_id")) then
response.write "&nbsp;<IMG height=20 src=img/bclass3.gif width=36 align=absMiddle border=0><font color=""#FF0000"">"&rs2("cat_name")&"</font><BR>" & vbCrLf
else
response.write "&nbsp;<IMG height=20 src=img/bclass3.gif width=36 align=absMiddle border=0><a href='art_list.asp?cat_id="&rs2("cat_id")&"'>"&rs2("cat_name")&"</a><BR>" & vbCrLf
end if
rs2.movenext
loop
response.write "</td></tr>" & vbCrLf
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing
response.write "</table>" & vbCrLf
end sub

'=================================================
'过程名：main_Art
'作  用：显示文章位置导航
'参  数：无
'Web:   www.ynsky.com.cn
'=================================================
sub main_Art()
if cat_id>0 then
  Response.Write "&nbsp;&nbsp;您的位置： <a href='index.asp'>"&webname&"</a> >> <a href='art.asp'>旅游线路中心</a>" & vbCrLf
  sql="select cat_id,cat_name,sid from a_cat where cat_id="&cat_id
  set rs3=conn.execute(sql)
  if rs3.eof then
  Response.Redirect "show_error.asp?eid=参数错误，找不到相关的记录!"
  Response.End
  End IF
  if rs3("sid")<>"0" then
     sql="select cat_id,cat_name from a_cat where cat_id="&rs3("sid")
     set rs4=conn.execute(sql)
     Response.Write " >> <a href=""art.asp?cat_id="&rs4("cat_id")&""">"&rs4("cat_name")&"</a>" & vbCrLf 
     rs4.close
     set rs4=nothing
  end if
  Response.Write " >> <a href=""art_list.asp?cat_id="&rs3("cat_id")&""">"&rs3("cat_name")&"</a>" & vbCrLf 
  rs3.close
  set rs3=nothing 
else
  Response.Write "&nbsp;&nbsp;您的位置： <a href='index.asp'>"&webname&"</a> >> <a href='art.asp'>旅游线路中心</a>" & vbCrLf
end if
end sub

'=================================================
'过程名：search_Art
'作  用：显示文章搜索表单
'参  数：无
'Web:   www.ynsky.com.cn
'=================================================
sub search_Art()
Response.Write "<form name='form2' method='post' action='art_list.asp'><div align=center><input type='radio' name='select' value='art_title' checked class='inuptCG'>标题&nbsp;<input type='radio' name='select' value='art_content' class='inuptCG'>内容&nbsp;<input type='radio' name='select' value='review' class='inuptCG'>评论<br><input type='text' name='keyword'  size='15' value='标题关键字' maxlength='50' onfocus=""this.value=''"" class='input'>&nbsp;<input type='submit' name='search'  value='搜索' onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'""><br><div>如：丽江&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</div></div></form>" & vbCrLf
end sub

'=================================================
'过程名：list_Art
'作  用：简洁文章列表
'参  数：n-调用条数,nn-显示长度,popartnum-热门点击数
'        NewWindows-----是否新窗打开，True为是，False为否
'Web:   www.ynsky.com.cn
'=================================================
sub list_Art(n,nn,NewWindows)
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if
dim id1,zc,folder,rsy,rsy1
Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
set rsy=conn.execute("select cat_id,cat_name from a_cat where sid="&cat_id&" order by cat_id")
while not rsy.eof
id1=rsy("cat_id") 
zc=conn.execute("select count(*) from art where passed=0 and (cat_id="&id1&" or cat_id in(select cat_id from a_cat where sid="&id1&"))")(0)
Response.Write "<tr>"
for i=1 to 1
if rsy.eof then
Response.Write "<td width='100%'></td>" & vbCrLf
else
Response.Write "<td width='99%' valign='top' align='right'>" & vbCrLf
Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>" & vbCrLf
Response.Write "<tr><td height='26' class='a4'>&nbsp;&nbsp;<b>"&rsy("cat_name")&"</b>&nbsp;(线路："&zc&" 条)</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width='100%' border='1' align='center' cellspacing='0' cellpadding='0' bgcolor='#FFFFFF' bordercolor='#f0f0f0' style='border-collapse: collapse'>" & vbCrLf
set rsy1=conn.execute("select top "&n&" * from art where passed=0 and (cat_id="&id1&" or cat_id in(select cat_id from a_cat where sid="&id1&")) order by art_id desc")
if rsy1.eof then
Response.Write "<tr><td align='center'>此分类暂无线路</td></tr>" & vbCrLf
else
do while not rsy1.eof
if rsy1("istop")="1" then      
folder="<img src=""img/1.gif"" title=固顶线路>" & vbCrLf      
elseif rsy1("isbest")="1" then
folder="<img src=""img/2.gif"" title=推荐线路>" & vbCrLf
elseif rsy1("art_count")>=popartnum then
folder="<img src=""img/3.gif"" title=热门线路>" & vbCrLf      
else
folder="<img src=""img/4.gif"" title=普通线路>" & vbCrLf       
end if      
Response.Write "<tr>" & vbCrLf
Response.Write "<TD width='6%' align=Center height='26'>"&folder&"</TD>" & vbCrLf
Response.Write "<td>&nbsp;<a href=showart.asp?art_id="&rsy1("art_id")&" title="&rsy1("art_title")&" "& nnn &">"&gotTopic(rsy1("art_title"),nn)&"</a>"
if rsy1("isimg")=1 then
Response.Write "&nbsp;<img src='img/img.gif' alt='旅游线路(图片)' align=absmiddle border=0>" & vbCrLf
end if
if DateDiff("h",rsy1("art_date"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内线路'>" & vbCrLf
end if
Response.Write "</td>" & vbCrLf
Response.Write "<TD align=middle width='10%'>"&rsy1("art_count")&"</td>" & vbCrLf
Response.Write "<TD align=Center width='15%'>"&year(rsy1("art_date"))&"-"&Right("0"&month(rsy1("art_date")),2)&"-"&Right("0"&day(rsy1("art_date")),2)&"</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
rsy1.movenext
loop
rsy1.close
set rsy1=nothing
end if
Response.Write "<tr><td align='right' colspan=4><a href='art_list.asp?cat_id="&id1&"'>more</a>&nbsp;&nbsp;&nbsp;</td></tr>" & vbCrLf
Response.Write "</table></td>" & vbCrLf
rsy.movenext
end if
next
Response.Write "</tr>" & vbCrLf
wend
Response.Write "</table>" & vbCrLf
rsy.close
set rsy=nothing 
end sub

'=================================================
'过程名：displayList_Art
'作  用：带分页功能的文章列表
'参  数：popartnum-------热门点击数
'        nn--------------标题长度
'        Hxperpage-------每页显示条数
'        classyes--------是否显示分类，True为是，False为否
'        NewWindows------是否新窗打开，True为是，False为否
'Web:   www.ynsky.com.cn