type.asp

完美政府版,正版网站解决方案

				if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then
				rsnodigclass.Source="select top " & top_news & " * from "& db_News_Table &" where (typeID=" & typeID &"  and bigclassid is null and smallclassid is null and checkked=1) order by newsid DESC"
				end if
				if Request.cookies(Forcast_SN)("key")="" then
					rsnodigclass.Source="select top " & top_news & " * from "& db_News_Table &" where (typeID=" & typeID &"  and bigclassid is null and smallclassid is null and checkked=1 ) order by newsid DESC"
				end if
				if Request.cookies(Forcast_SN)("key")="selfreg" then
					if Request.cookies(Forcast_SN)("reglevel")=3 then
						rsnodigclass.Source="select top " & top_news & " * from "& db_News_Table &" where (typeID=" & typeID &"  and bigclassid is null and smallclassid is null and checkked=1 ) order by newsid DESC"
					end if
				if Request.cookies(Forcast_SN)("reglevel")=2 then
					rsnodigclass.Source="select top " & top_news & " * from "& db_News_Table &" where (typeID=" & typeID &"  and bigclassid is null and smallclassid is null and checkked=1 ) order by newsid DESC"
				end if
				if Request.cookies(Forcast_SN)("reglevel")=1 then
					rsnodigclass.Source="select top " & top_news & " * from "& db_News_Table &" where (typeID=" & typeID &"  and bigclassid is null and smallclassid is null and checkked=1 ) order by newsid DESC"
				end if
				end if
				else
					rsnodigclass.Source="select top " & top_news & " * from "& db_News_Table &" where (typeID=" & typeID &"  and bigclassid is null and smallclassid is null and checkked=1) order by newsid DESC"
				end if
			rsnodigclass.Open rsnodigclass.Source,conn,1,1
			
			%>
	<tr> 
	<td align="center">

	</td>	
		<%
		 if not rsnodigclass.EOF Then
		 %>
		 <%
		fileExt=lcase(getFileExtName(rsnodigclass("picname")))
		Content=htmlencode4(rsnodigclass("Content"))
		content=replace(content,"[---分页---]","")
		%>
	
		 <%
				while not rsnodigclass.EOF
					if showyear=1 then
						newsurl="Article.asp?NewsID=" & rsnodigclass("NewsID")
						newswwwurl=rsnodigclass("titleface")
						datetime="<font class=middle>" & year(rsnodigclass("UpdateTime"))  &"/"& Month(rsnodigclass("UpdateTime"))  &"/"& Day(rsnodigclass("UpdateTime")) &"</font>"
					else
						newsurl="Article.asp?NewsID=" & rsnodigclass("NewsID")
						newswwwurl=rsnodigclass("titleface")
						datetime="<font class=middle>"& Month(rsnodigclass("UpdateTime"))  &"/"& Day(rsnodigclass("UpdateTime")) &"</font>"
					end if
					if rsnodigclass("picnews")=1 then
						img="<img src='images/news_img.gif' border='0'>"
					else
						img=""
					end if
						title=trim(rsnodigclass("title"))
						title=replace(title,"<br>","")
		%>
	</tr>

	<tr>
        <td>
		<div align="center"> 
			<table width="95%" border="0" cellpadding="3" cellspacing="0">
				<tr > 
					<td colspan="2"> &nbsp;<img src="images/news_img.gif" width="9" height="9"> 
                    <a class=middle href="<%if rsnodigclass("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(title)%>" target="_blank"> 
                    <font color="<%=rsnodigclass("titlecolor")%>"><strong>                 
                    <%=CutStr(title,50)%> <div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div>
                    </strong></font> </a> </td>
					<td width="22%" align="left" bgcolor="#ffffff"> 
                    <%if showtime="1" then%>
                    <%=datetime%> 
                    <%end if%>&nbsp; 
                    <%if showclick="1" then%>
                    <font color=#666666>[<%=rsnodigclass("click")%>]</font> 
                    <%end if%>
                    &nbsp;</td>
					<td width="4%" align="left"> 
                    <%if year(rsnodigclass("updatetime"))=year(date()) and month(rsnodigclass("updatetime"))=month(date()) and day(rsnodigclass("updatetime"))=day(date()) then%>
                    <img src="images/new.gif"> 
                    <%end if%>
                    <%if rsnodigclass("goodnews")="1" then%>
                    <img src="images/g.gif" > 
                    <%end if%>
					</td>
				 </tr>
				<tr> 
					<td width="16%"> <a class=middle href="<%if rsnodigclass("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" target=_blank title="<%=htmlencode4(rsnodigclass("title"))%>"> 
					 <%if   rsnodigclass("picname")=("")   then%>
					 <img  src="IMAGES/softno.gif" width="65" height="65" border=0 align="left"> 
					<%else%>
					<%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
					<img  src="<%=FileUploadPath & rsnodigclass("picname")%>" width="65" height="65" border=0 align="left"> 
					<%end if%>
					<%if fileext="swf" then%>
					<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width="65" height="65" border=0 >
					<param name=movie value="<%=FileUploadPath & rsnodigclass("picname")%>">
					<param name=quality value=high>
					<param name='Play' value='-1'>
					<param name='Loop' value='0'>
					<param name='Menu' value='-1'>
					<embed src="<%=FileUploadPath & rsnodigclass("picname")%>" width="6" 5height="65" border=0  pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
					</object>
					<%end if%>
					<%end if%>
					</a> 
					</td>
					<td colspan="3" valign="top"> <a class=middle href="<%if rsnodigclass("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" target="_blank" title="<%=htmlencode4(title)%>"><%=CutStr(nohtml(rsnodigclass("Content")),250)%></a> 
					 </td>
				</tr>
			 </table>
			</div>
	</td>
        </tr>
        <%
		rsnodigclass.MoveNext
		wend
		%>
		<tr> 
			<td colspan="5" width=100% height="19" align=right><a class=class href='NobigClass.asp?typeid=<%=typeid%>'><img src="images/more.gif" border="0" alt="更多<%=typeName%>"></a>&nbsp;&nbsp;</td>
		</tr>
		<%
			end if
			rsnodigclass.close
			set rsnodigclass=nothing
			%>
        
</table>
<!--软件模版-->

	<%end select%>
<!--无大类文章区结束-->
<!--模版开始-->
<% select case mode%>
<% case 1 %>
<!--图片模版-->

<%
	if rseof=1 then
		for i=0 to abcount
		BigClassID=ArrayBigClassID(i)
		BigClassName=ArrayBigClassName(i)
			BigClassview=ArrayBigClassview(i)
		if ArrayBigClassView(i)=1 then 
%>
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" align="center"  id="AutoNumber5">
        <tr> 
          <td>
		  
		  <table width="95%" border="0" cellspacing="0" cellpadding="0"  align="center">
  <tr>
		<td height="25" valign="top" background="IMAGES/WmCms_typeM.gif"  valign="bottom" class=menub>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font class=body><B><%=BigClassName%></B></font></td>
				 <td width="30%"  align=right background="IMAGES/WmCms_type0.gif"><a class=class href='BigClass.asp?typeid=<%=typeid%>&BigClassid=<%=BigClassid%>'>更多...</a>
				</td>
  </tr>
</table>
		  </td>
        </tr>
			<%set rs3=server.CreateObject("ADODB.RecordSet")
				if uselevel=1 then
					if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then
					rs3.Source="select top "& top_news &" * from "& db_News_Table &" where (BigClassid="& BigClassid &" and checkked=1) order by newsid DESC"
					end if
					if Request.cookies(Forcast_SN)("key")="" then
					rs3.Source="select top "& top_news &" * from "& db_News_Table &" where (BigClassid="& BigClassid &" and checkked=1 ) order by newsid DESC"
					end if
					if Request.cookies(Forcast_SN)("key")="selfreg" then
						if Request.cookies(Forcast_SN)("reglevel")=3 then
						rs3.Source="select top "& top_news &" * from "& db_News_Table &" where (BigClassid="& BigClassid &" and checkked=1 ) order by newsid DESC"
						end if
						if Request.cookies(Forcast_SN)("reglevel")=2 then
						rs3.Source="select top "& top_news &" * from "& db_News_Table &" where (BigClassid="& BigClassid &" and checkked=1 ) order by newsid DESC"
						end if
					if Request.cookies(Forcast_SN)("reglevel")=1 then
						rs3.Source="select top "& top_news &" * from "& db_News_Table &" where (BigClassid="& BigClassid &" and checkked=1 ) order by newsid DESC"
						end if
					end if
				else
					rs3.Source="select top "& top_news &" * from "& db_News_Table &" where (BigClassid="& BigClassid &" and checkked=1) order by newsid DESC"
				end if
					rs3.Open rs3.Source,conn,1,1
					%>
        <tr> 
          <td>
			<table width="100%" border="0" cellspacing="0" cellpadding="3" align="center">
<!--图片换行显示1-->
              <% if not rs3.EOF then %>

              <%do while not rs3.EOF%>
              <tr> 
                <%
				fileExt=lcase(getFileExtName(rs3("picname")))
				Content=htmlencode4(rs3("Content"))
				content=replace(content,"[---分页---]","")
				%>
				<td width=25% align=center valign="top" style="table-layout:fixed; word-break:break-all"> 
					<%if not rs3.EOF then%>
						<div align="center"> 
						<% content=htmlencode4(rs3("Content"))
						content=replace(content,"[---分页---]","")%>
						<a class=middle href="Article.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=CutStr(nohtml(Content),150)%>..."> 
					   <%if   rs3("picname")=("") then%>
						<img  src="IMAGES/flashorno.gif" width="110" height="80" border=1 style=border-color:#000000 align=top> 
                    <%else%>
                    <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
						<img  src="<%=FileUploadPath & rs3("picname")%>" width="110" height="80" border=1 style=border-color:#000000 align=top> 
                    <%end if%>
                    <%if fileext="swf" then%>
						<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width="110" height="80" border=0 >
						<param name=movie value="<%=FileUploadPath & rs3("picname")%>">
						<param name=quality value=high>
						<param name='Play' value='-1'>
						<param name='Loop' value='0'>
						<param name='Menu' value='-1'>
						<embed src="<%=FileUploadPath & rs3("picname")%>" width="110" height="80" border=0  pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
						</object>
					<%end if%>
                    <%end if%>
                    </a>
					<br><br>
                    <a class=middle href="Article.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=rs3("title")%>"><%=CutStr(rs3("title"),18)%></a> 
                  </div></td>
                <%rs3.movenext   
				end if %>
<!--图片换行显示2-->
				
                <td width=25% align=center valign="top" style="table-layout:fixed; word-break:break-all"> 
                  <%if not rs3.EOF then%>
					<div align="center"> 
                    <%
					content=htmlencode4(rs3("Content"))
					content=replace(content,"[---分页---]","")%>
                    <a class=middle href="Article.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=CutStr(nohtml(Content),150)%>"> 
                    <%if rs3("picname")=("") then%>
						<img  src="IMAGES/flashorno.gif" width="110" height="80" border=1 style=border-color:#000000 align=top> 
                    <%else%>
                    <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
						<img  src="<%=FileUploadPath & rs3("picname")%>" width="110" height="80" border=1 style=border-color:#000000 align=top> 
                    <%end if%>
                    <%if fileext="swf" then%>
						<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width="110" height="80" border=0 >
						<param name=movie value="<%=FileUploadPath & rs3("picname")%>">
						<param name=quality value=high>
						<param name='Play' value='-1'>
						<param name='Loop' value='0'>
						<param name='Menu' value='-1'>
						<embed src="<%=FileUploadPath & rs3("picname")%>" width="110" height="80" border=0  pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
						</object>
					<%end if%>
                    <%end if%>
                    </a>
					<br><br>
                    <a class=middle href="Article.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=rs3("title")%>"><%=CutStr(rs3("title"),18)%></a> 
                  </div></td>
                <%rs3.movenext   
				end if %>
<!--图片换行显示3-->
				
                <td width=25% align=center valign="top" style="table-layout:fixed; word-break:break-all"> 
                  <%if not rs3.EOF then%>
					<div align="center"> 
                    <%
					content=htmlencode4(rs3("Content"))
					content=replace(content,"[---分页---]","")%>
                    <a class=middle href="Article.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=CutStr(nohtml(Content),150)%>"> 
                    <%if rs3("picname")=("") then%>
						<img  src="IMAGES/flashorno.gif" width="110" height="80" border=1 style=border-color:#000000 align=top> 
                    <%else%>