config.asp

asp源码

<%  
' ??????
Function pizztitle(title,num)
	if len(title)+1 > int(num) then
		title=left(title,num)&"..."
	else
		title=title
	end if
	pizztitle=title
end function
%>

<%	'news????
' pizzro "table表单","smallclassname类别","ListNum显示条数","TitleLens标题数目","listdata显示时间","viewpic显示图片文章","listfile list.asp路径","Listmore","prepic前端图片","htmlmode"
Function pizzro(table,SmallClassName,ListNum,TitleLens,listdata,listfile,Listmore,htmlmode)

	pizzopendb "select * from "&table&" where SmallClassName ="&SmallClassName&" order by Infotime desc" ,"1"
   	for i = 1 to ListNum
		if rs.eof or rs.bof then 
			for j = i to ListNum
			response.write "	<tr>"
			response.write "                      <TD width=""90%"" height=""20""><font color=""#CCCCCC""><a class=m4>暂时没有添加新闻<a></font></TD>"
			response.write "	</tr>"	
			next
			exit for
		else
			response.write "	<tr>"
		    if htmlmode=1 then 
			response.write ""
			else
			response.write "		              <TD width=""90%"" height=""20"" ><a class=m4 href="&listfile&"?id="&rs("id")&" target=_blank title="&rs("title")&">   "&pizztitle(rs("title"),TitleLens)&"</a>"
			end if
		
		if Listdata = 1 then
					 if rs("Infotime")=year(date())&"年"&month(date())&"月"&day(date())&"日" then  '辨别是否是new 开始
						response.write "   <IMG height=9 src=""images/new.gif"" >"
						response.write "<font color=red style=""font-size:12px"">["&rs("Infotime")&"]</font></td>"
					 else
						response.write "<font style=""font-size:12px"">   ["&rs("Infotime")&"]</font></td>"							
					 end if	
		end if                                                                    '辨别是否是new 结束
			response.Write "</td>"
			response.write "	</tr>"
			rs.movenext
		end if
	next
		if Listmore = 1 then
			response.write "	<tr>"
			response.write "		<td height=""22"" colspan=""2""><div align=""right""><a href=""more.asp?classid="&classid&""">More...</div></td>"
			response.write "	</tr>"
		end if
	call closedb()
   end function
        
  %>
  <%  'newsmore????
  function pizzmore(listfile,table,classid,ListNum,TitleLens,listdata,viewpic,prepic)
	if classid<>"" then	    
  		opendb "select * from "&table&" where classid="&classid&" order by id desc",""
  	else 
		opendb "select * from "&table,""
	end if
	
  'if isin=true then opendb "select * from "&table&" where classid="&id&" order by hit desc","" 
  'if isin=false then opendb "select * from "&table&" where classid="&id&" and isin="&isin&" order by hit desc","" 
	for i = 1 to ListNum
		if rs.eof or rs.bof then 
				for j = i to ListNum
				response.write "<tr>"&vbcrlf
				response.write "<TD align=right width=40><IMG height=9 src='"&prepic&"' width=10><FONT color=#ff6500><B>&nbsp; </B></FONT></TD>"&vbcrlf
				response.write "<TD width=""350"" height=""20""><a class=m4>????????<a>"&vbcrlf
				response.write "<TD >&nbsp;</TD>"&vbcrlf	
				response.write "<TD width=30 >&nbsp;</TD>"&vbcrlf	
				response.write "</tr>"&vbcrlf
				next
				exit for
		else
				response.write "<tr>"&vbcrlf
				response.write "<TD align=right width=40 ><IMG height=9 src='"&prepic&"' width=10><FONT color=#ff6500><B>&nbsp; </B></FONT></TD>"&vbcrlf
			'if htmlmode=1 then 
				'response.write "		              <TD width=""416"" height=""20"" ><a class=m4 href=../manage/"&table&"/"&rs("fpath")&"/"&rs("fname")&" target=_blank title="&rs("title")&">   "&pizztitle(rs("title"),TitleLens)&"</a>"
			'else
				response.write "<TD width=""350"" height=""20"" ><a class=m4 href="&listfile&"?id="&rs("id")&" target=_blank title="&rs("title")&">   "&pizztitle(rs("title"),TitleLens)&"</a>"
			'end if
		end if
			if viewpic<>"" then '?????????????
					if instr(rs("content"),"<IMG")>0 then
					response.write "    <IMG height=15  valign=absbottom src="&viewpic&" >"
					end if
			end if
			if Listdata = 1 then  '?????new ??
			'response.Write rs("shijian")=date()
						 if rs("shijian")=date() then  
						response.write " <IMG height=9 src=""images/new.gif"" >"
						'response.write "<td>"&vbcrlf
						response.Write "<td width=80 ><font color=red style=""font-size:12px"">["&rs("shijian")&"]</font></td>"&vbcrlf
						 else
						' response.write "<td>"&vbcrlf
						 response.write "<td width=80 ><font style=""font-size:12px"">   ["&rs("shijian")&"]</font></td>"&vbcrlf					
						 end if	
			else
				'response.Write "</td>"&vbcrlf 
				response.write "<td width=100 >&nbsp;</td>"&vbcrlf  
			  
			end if         
            
			response.write "<td width=30 class='m'>"&rs("hit")&"</td>"&vbcrlf   '?????new ??
			response.write "</tr>"&vbcrlf
			rs.movenext
		
	next
		if Listmore = 1 then
			response.write "	<tr>"
			response.write "		<td height=""22"" colspan=""2""><div align=""right""><a href=""more.asp?classid="&classid&""">More...</div></td>"
			response.write "	</tr>"&vbcrlf
		end if
	

closedb
end function
%> 
  
  
  
  
  <%
   Function index_3ers(classid,ListNum,TitleLens,Listmore)
	class_id=classid
	classid="news where classid ="&classid
	call opendb(classid,"id")
	for i = 1 to ListNum
		if rs.eof or rs.bof then 
			for j = i to ListNum
			response.write "	<tr>"
			response.write "		<td height=""22""><font color=""#CCCCCC"">·暂时没有添加新闻</font>"
			response.write "	</tr>"	
			next
			exit for
		else
			response.write "	<tr>"
			response.write "		<td height=""22""><a href=../manage/article/"&rs("fpath")&"/"&rs("fname")&" target=_blank title="&rs("title")&">·"&pizztitle(rs("title"),TitleLens)&"</a>"
			response.write "	</tr>"
			rs.movenext
		end if
	next
	
	if Listmore = 1 then
			response.write "	<tr>"
			response.write "		<td height=""22""><div align=""right""><a href=""more.asp?classid="&class_id&""">More&gt;&gt;</div></td>"
			response.write "	</tr>"
	end if
	call closedb()
End Function	



   
function viewpic(classid,listnum)
			pizzopendb "select top "&listnum&" * from news where classid="&classid&" and defaultpic<>'' order by shijian ","1"
		if not rs.eof then 
				response.Write "<table align='center' height=100% width=100% >"
				response.Write "<tr>"
			if not rs.eof then
				response.Write  "<td align='center' bgcolor='#FFFFEE'><a href='news.asp?id="&rs("id")&"'>"
				response.Write "<div align='center'><IMG  height='100' width='120'  border='0' src="&rs("defaultpic")&" ></div>"
			else  
				response.Write  "<td align='center' bgcolor='#FFFFEE'><img src='../imagess/viewpic.gif' >"
			end if
				response.Write "</a></td></tr>"
				response.Write "<tr>"
				response.Write  "<td height='30' align='center'  bgcolor='#FFFFff'>"&rs("title")&"</td>"
				response.Write "</tr>"
				response.Write "</table>"
		end if

				pizzclosedb
end function
  
%>