xbqq_function.asp

欢迎使用酷航设计系统

    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=100 style='border-left: 1px solid #CECFCE; border-right: 1px solid #CECFCE; border-bottom: 1px solid #CECFCE' bgcolor=#F7F7F7>"
    response.write "<tr>"
    response.write "<td valign='top'>"
    '//主要内容开始
    keyword=request("keyword")
    cat_id=request("cat_id")
    class_id=request("class_id")
    colname=request("colname")
    sql="SELECT soft_id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM soft order by soft_id desc"
    if cat_id<>"" and class_id="" then
    sql="SELECT soft_id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM soft where soft_catid="&cat_id&" order by soft_id desc"
    elseif class_id<>"" and keyword="" then
    sql="SELECT soft_id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM soft where soft_classid="&class_id&" order by soft_id desc"
    elseif keyword<>"" and colname<>"0" then
    sql="select soft_id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount from soft where "&colname&" like '%"&keyword&"%' order by soft_id desc"
    elseif keyword<>"" and colname="0" then
    sql="select soft_id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount from soft where soft_name like '%"&keyword&"%' or soft_desc like '%"&keyword&"%' order by soft_id desc"
    else
    sql="SELECT soft_id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM soft order by soft_id desc"
    end if
    set rssoft=server.createobject("adodb.recordset")
    rssoft.open sql,conn,1,1
    Set rscat = Server.CreateObject("ADODB.Recordset")
    sqlcat="SELECT cat_id,cat_name FROM d_cat"
    rscat.OPEN sqlcat,Conn,1,1
    do while not rscat.eof
    if request("cat_id")=cstr(rscat("cat_id")) then
    response.write "&nbsp;&nbsp;&nbsp;<font color=#808080><img border=0 src='images/+.gif'><span style='letter-spacing: 3px'>"&rscat("cat_name")&"</span></font><br>"
    '小类开始循环
    if not cat_id = "" then
    Set rsclass = Server.CreateObject("ADODB.Recordset")
    sqlclass="SELECT cat_id,class_id,class_name FROM d_class where cat_id=" &cat_id& ""
    rsclass.OPEN sqlclass,Conn,1,1
    do while not rsclass.eof
    if request("class_id")=cstr(rsclass("class_id")) then
    response.write "&nbsp;&nbsp;&nbsp;&nbsp;<font color=#808080><img border=0 src='images/+-.gif'><img border=0 src='images/-.gif'><span style='letter-spacing: 3px'>"&rsclass("class_name")&"</span></font><br>"
    else
    response.write "&nbsp;&nbsp;&nbsp;&nbsp;<img border=0 src='images/+-.gif'><img border=0 src='images/-.gif'><a href='?cat_id="&rsclass("cat_id")&"&class_id="&rsclass("class_id")&"'><span style='letter-spacing: 3px'>"&rsclass("class_name")&"</span></a><br>"
    end if
    rsclass.movenext
    loop
    rsclass.close
    set rsclass=nothing
    end if
    '小类结束循环
    else
    response.write "&nbsp;&nbsp;&nbsp;<img border=0 src='images/+.gif'><a href='?cat_id="&rscat("cat_id")&"'><span style='letter-spacing: 3px'>"&rscat("cat_name")&"</span></a><br>"
    end if
    rscat.movenext
    loop
    rscat.close
    set rscat=nothing
    '//主要内容结束
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=10>"
    response.write "<tr>"
    response.write "<td></td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    End Function
%>
<%
    '//图片展示分类调用
    Function xbqq_picsort()
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=100>"
    response.write "<tr>"
    response.write "<td>"
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=100 style='border-left: 1px solid #CECFCE; border-right: 1px solid #CECFCE; border-bottom: 1px solid #CECFCE' bgcolor=#F7F7F7>"
    response.write "<tr>"
    response.write "<td>"
    '------------主要内容开始
    sql="select piccat_id,piccat_name from piccat"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
    response.write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY><TR><TD class=l></TD>" & vbCrLf
    response.write "<TD height=""23"">"
    do while not rs.eof
    if request("piccat_id")=cstr(rs("piccat_id")) then
    response.write "&nbsp;<font class=""title"">·"&rs("piccat_name")&"</font><br><br><br>"
    else
    response.write "&nbsp;<a href='?piccat_id="&rs("piccat_id")&"'>·"&rs("piccat_name")&"</a><br><br><br>"
    end if
    rs.movenext
    loop
    if rs.bof and rs.eof then
    response.write "当前没有分类&nbsp;"
    rs.close
    end if
    dim totalpic,Currentpage,totalpages,i
    sql="select pic_id,pic_name,pic_spic,pic_count,pic_url,pic_date,pic_desc from pic order by pic_id DESC"
    if request.querystring("piccat_id")<>"" then
    sql="select pic_id,pic_name,pic_spic,pic_count,pic_url,pic_date,pic_desc from pic where piccat_id="&request.querystring("piccat_id")&" order by pic_id DESC"
    elseif request("keyword")<>"" then
    sql="select pic_id,pic_name,pic_spic,pic_count,pic_url,pic_date,pic_desc from pic where "&request("select")&" like '%"&request("keyword")&"%'order by pic_id DESC"
    end if
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
    totalcs=rs.recordcount
    response.write "</TD></TR></TBODY></TABLE>"
    '------------主要内容结束
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=10>"
    response.write "<tr>"
    response.write "<td></td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    End Function
%>
<%
    '//文章单页信息调用
    Function xbqq_OnlyPage(Page_T,Page_C)
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=550 height=28 background='xbqq_img/kind1.gif'>"
    response.write "<tr>"
    response.write "<TD width='100%' height=20 style='FILTER: PADDING-TOP: 2px'>&nbsp;<img border=0 src=xbqq_img/ico1.gif width=11 height=9>&nbsp<span style='letter-spacing: 3px'>"&Page_T&"</span></TD>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    response.write "<div align=center>"
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=550 height=5>"
    response.write "<tr>"
    response.write "<td></td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</div>"
    response.write "<TABLE style='border: 1px solid #ff7500' bgcolor='#FFFFFF' cellSpacing=0 cellPadding=0 width=""100%"" align=cen22:06 2006-2-2ter border=0><TR>"& vbCrLf
    response.write "<TR><TD height=34 colspan=""3"" align=middle>"& vbCrLf
    response.write "<table width=""100%"" border=""0"" cellspacing=""4"" cellpadding=""8""><tr><td height=""185"" valign=""top"">"& vbCrLf
    response.write Page_C
    response.write "</td></tr></table>"& vbCrLf
    response.write "</TD></TR></TABLE>"& vbCrLf
    End Function
%>

<%
Rem Pw_Sys 信息条的显示
Function xbqq_ShowInfo(s_num,nums,Linenum,S_info,Show_date)
response.write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"">"& vbCrLf
Select case s_num
	case 1 '热门
InfoSql="select top "&nums&" * from Info order by hits desc,ID desc"
	case 2 '新信息
InfoSql="select top "&nums&" * from Info order by AddDate desc,ID desc"
	case 3 '大类热门
InfoSql="select top "&nums&" * from Info where Sort1="&S_info&" order by hits desc,ID desc"
	case 4 '小类热门
InfoSql="select top "&nums&" * from Info where Sort2="&S_info&" order by hits desc,ID desc"
	case 5 '大类
InfoSql="select top "&nums&" * from Info where Sort1="&S_info&" order by AddDate desc,ID desc"
	case 6 '小类
InfoSql="select top "&nums&" * from Info where Sort2="&S_info&" order by AddDate desc,ID desc"
	Case 7 '推荐
InfoSql="select top "&nums&" * from Info Where Pw_Good=True ORDER BY id DESC"
	Case else  '其它
InfoSql="select top "&nums&" * from Info order by hits desc"
End Select

Set InfoRs=Conn.Execute(InfoSql)
if InfoRs.eof or InfoRs.bof then
response.write"<tr><td align='center'>没有信息...</td></tr>"
end if 
while not Infors.eof 
set title=Infors("title")
set id=Infors("id")
response.write "<tr><td width=""6%""align=""left""><img src=""xbqq_img/bz.gif""  align=""absmiddle""></td><td width=""72%""><p style='line-height: 120%'>"& vbCrLf
response.write "<a href='ViewInfo.asp?id="&id&"'title='"&title&"'>"
if GetLen(title)>Linenum then
response.write ""&LeftStr(title,Linenum-2)&""
response.write "..."
else
response.write ""&title&""
end if
if Show_date=1 then 
response.write "&nbsp;&nbsp;"
response.write "</td><td>"
response.write "<font color='#808080'>"
response.write DateTimeFormat(Infors("AddDate"),2)
response.write "</font>"
End if
response.write "</a></td></tr>"
Infors.movenext  
wend
Infors.close
set Infors=nothing
response.write "</table>"
End Function
%>
<%
sub SiteCount()
	set rscount=server.createobject("adodb.recordset")
	
	sqlCount="select Count(ID) from Info"
	rsCount.open sqlCount,conn,1,1
	response.write "信息总数：" & rsCount(0) & "条<br>"
	rsCount.close

	sqlCount="select sum(Hits) from Info"
	rsCount.open sqlCount,conn,1,1
	response.write "信息浏览：" & rsCount(0) & "次<br>"
	rsCount.close
	
	sqlCount="select Count(ID) from sort"
	rsCount.open sqlCount,conn,1,1
	response.write "栏目分类：" & rsCount(0) & "个<br>"	
	rsCount.close
		
	sqlCount="select sum(Hit) from sort"
	rsCount.open sqlCount,conn,1,1
	response.write "栏目浏览：" & rsCount(0) & "次<br>"	
	rsCount.close
	
	sqlCount="select count(ID) from words"
	rsCount.open sqlCount,conn,1,1
	response.write "留言条数：" & rsCount(0) & "条<br>"	
	rsCount.close
			
	set rsCount=nothing
end sub
%>
<%
Function Ew_ShowTopPic(Top_num)
response.write "<TABLE cellSpacing=5 cellPadding=0 width=""778"" align=center border=0><TBODY><TR vAlign=top>"& vbCrLf
sql="select  top "&Top_num&" * from Info where Ispic=1 and Pw_Good=True ORDER BY AddDate DESC,ID desc"
Set Rstop=conn.execute(Sql)
if Rstop.eof or Rstop.bof then
Call NoPic("无推荐图文信息")
end if
do while not Rstop.eof 
response.write "<TD height=82 align=middle>"
 Call Ew_ShowPic(Rstop("Pic"),Rstop(0),Rstop("Title"),120,98,18) 
response.write "</TD>"
Rstop.movenext  
loop
response.write "</TR></TBODY></TABLE>"
Rstop.close
set Rstop=nothing
End Function

%>
<%
Function Ew_ShowPic(Ew_Pic,Ew_InfoID,Ew_Title,Ew_With,Ew_Height,Ew_long)
response.write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td>"& vbCrLf

response.write "<TABLE width=""50"" border=0 align=center cellPadding=0 cellSpacing=0>"& vbCrLf
response.write "<TR><TD height=8><IMG height=8 src=""Images/table/bg_0ltop.gif"" width=8></TD>"& vbCrLf
response.write "<TD background=Images/table/bg_01.gif height=8></TD>"& vbCrLf
response.write "<TD height=8><IMG height=8 src=""Images/table/bg_0rtop.gif"" width=8></TD></TR>"& vbCrLf
response.write "<TR><TD width=8 background=Images/table/bg_03.gif></TD>"& vbCrLf
response.write "<TD width=""50"" height=""90"" align=""center"" bgColor=#ffffff><a href=ViewInfo.asp?id="&Ew_InfoID&" Title='"&Ew_Title&"'><img src="&Ew_Pic&" border=0 width="&Ew_With&" height="&Ew_Height&" ></a></TD>"& vbCrLf
response.write "<TD width=8 background=Images/table/bg_04.gif></TD>"& vbCrLf
response.write "</TR><TR><TD height=8><IMG height=8 src=""Images/table/bg_0lbottom.gif"" width=8></TD>"& vbCrLf
response.write "<TD background=Images/table/bg_02.gif height=8></TD>"& vbCrLf
response.write "<TD height=8><IMG height=8 src=""Images/table/bg_0rbottom.gif"" width=8></TD>"& vbCrLf
response.write "</TR></TABLE>"& vbCrLf

response.write "</td></tr><tr><td align=center height=18>"& vbCrLf

response.write "<a href=ViewInfo.asp?id="&Ew_InfoID&" title='"&Ew_Title&"'>"
if GetLen(Ew_Title)>Ew_long then
response.write LeftStr(Ew_Title,Ew_long-2)
response.write "..."
else
response.write Ew_Title
end if
response.write "</a>"

response.write "</td></tr></table>"& vbCrLf
End Function
%>