⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 indebcxg.asp

📁 zheng fu wang zhan gong neng qi quan
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	Response.Write "<img src='images/notopic.gif' width=56 border=0 height=56>"
else
while not rs.EOF
	title=rs("title")
	fileExt=lcase(getFileExtName(rs("picname")))
	%>
                        <a class="class" target="_blank" href="E_ReadNews.asp?newsid=<%=rs("newsid")%>" title="<%=htmlencode4(title)%>">
                        <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                        <img src="<%=FileUploadPath & rs("picname")%>" width="56" border=1 style=border-color:#ffffff height="56"> </a>
                        <%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="56" height="56">
                          <param name="movie" value="<%=FileUploadPath & rs("picname")%>">
                          <param name="quality" value="high">
                          <param name="Play" value="-1">
                          <param name="Loop" value="0">
                          <param name="Menu" value="-1">
                          <embed src="<%=FileUploadPath & rs("picname")%>" width="56" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash"></embed>
                        </object>
                        <%end if%>
                        <%
	rs.MoveNext
wend
	end if
	rs.close
	set rs=nothing
	%></td>
                      <td width="90%" valign="top">
                        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber11">
                          <% dim rs3
	set rs3=server.CreateObject("ADODB.RecordSet")
	if uselevel=1 then
		if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
			rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
		end if
		if Request.cookies(eChuang)("key")="" then
			rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
		end if
		if Request.cookies(eChuang)("key")="selfreg" then
			if Request.cookies(eChuang)("reglevel")=3 then
				rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
			end if
			if Request.cookies(eChuang)("reglevel")=2 then
				rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
			end if
			if Request.cookies(eChuang)("reglevel")=1 then
				rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
			end if
		end if
	else
		rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
	end if
	rs3.Open rs3.Source,conn,1,1
	while not rs3.EOF
		newsurl="E_ReadNews.asp?NewsID=" & rs3("NewsID")
		newswwwurl=rs3("titleface")
		fileExt=lcase(getFileExtName(rs3("picname")))
		if showyear=1 then
			datetime="<font class=middle>(" & year(rs3("UpdateTime"))  &"年"& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
		else
			datetime="<font class=middle>("& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
		end if
		if rs3("picnews")=1 then
			if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then
			img=" <img src='images/news_img.gif' border='0'>"
				else
			img="<img src='images/news_media.gif' border='0'>"
			end if
		else
			img=""
		end if

		'增加小类名称程序开始
	if rs3("bigclassID")<>"" then 
		B=rs3("bigclassID")
		set rs22=server.createobject("adodb.recordset")
		sql="SELECT bigclassID,E_BigClassName FROM "& db_BigClass_Table &" WHERE bigclassID="&B
		Set rs22=Conn.Execute(sql)
		A=rs22("E_BigClassName")
		rs22.close
		set rs22=Nothing
	else
		A="本栏"
	end if

		'增加小类名称程序结束
		%>
                          <tbody>
                            <tr>
                              <td>
                                <table width="100%" border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
                                  <tbody>
                                    <tr>
                                      <td height="22"> <img src="IMAGES/point.gif" width="10" height="7"> <%=img%> <a class="middle" href="<%if rs3("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs3("title"))%>" target="_blank"> <font color="<%=rs3("titlecolor")%>"> <%=CutStr(htmlencode4(rs3("title")),26)%> </font> </a>
                                          <!--标题后评论提示-->
                                          <% if rs3("titlesize")>=1 then %>
                                          <A class=middle HREF="<%=path%>Review.asp?NewsID=<%=rs3("NewsID")%>" target="_blank" ><font color=red><b>评</b></font></A>
                                          <%end if %>
                                          <!--标题后评论提示-->
                                          <%''if showauthor="1" then%>
                                          <%''=rs3("Author")%>
                                          <%''end if%></td>
                                    </tr>
                                    <tr>
                                      <td height="1" background="IMAGES/bg_line.gif"></td>
                                    </tr>
                                  </tbody>
                              </table></td>
                            </tr>
                            <%
								rs3.MoveNext
wend
%>
                          </tbody>
                      </table></td>
                    </tr>
                    <tr>
                      <td width="10%" align="right" bgcolor="#E3E3E3"></td>
                      <td width="90%" align="right" bgcolor="#FFFFFF"><a class="class" href="E_Type.asp?typeid=<%=typeid%>"><img src="images/more.gif" alt="更多<%=typeName%>" width="28" height="9" border="0" /></a></td>
                    </tr>
                  </tbody>
              </table>
			  
			  
			  
			  </td>
              <%i=i+1
              typeID=Arraytyid(i)
              typeName=ArraytyName(i)
              if i<=RecordCount then
              %>
              <td width="50%" valign="top" bgcolor="#FFFFFF">
                <table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="265" id="AutoNumber13">
                  <tbody>
                    <tr>
                      <td background="IMAGES/title_bg.gif"  height="30" colspan="2">&nbsp;<font><A class=top HREF="E_Type.asp?typeid=<%=typeid%>"><%=typeName%></A></font></td>
                    </tr>
                    <tr>
                      <td width="10%" align="left" valign="top" bgcolor="#E3E3E3">
                        <%
set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="" then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and newslevel=0 and picnews=1 and picname is not null) order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="selfreg" then
	if Request.cookies(eChuang)("reglevel")=3 then
	rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
	end if
	if Request.cookies(eChuang)("reglevel")=2 then
	rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
	end if
	if Request.cookies(eChuang)("reglevel")=1 then
	rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
	end if
end if
else
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
rs.Open rs.Source,conn,1,1
if rs.EOF then
Response.Write "<img src=images/notopic.gif width=56 border=0 height=56>"
else
while not rs.EOF
title=rs("title")
fileExt=lcase(getFileExtName(rs("picname")))
%>
                        <a class="class" target="_blank" href="E_ReadNews.asp?newsid=<%=rs("newsid")%>" title="<%=htmlencode4(title)%>">
                        <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                        <img src="<%=FileUploadPath & rs("picname")%>" width="56" border=1 style=border-color:#ffffff height="56" /></a>
                        <%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="56" height="56">
                          <param name="movie" value="<%=FileUploadPath & rs("picname")%>" />
                          <param name="quality" value="high" />
                          <param name="Play" value="-1" />
                          <param name="Loop" value="0" />
                          <param name="Menu" value="-1" />
                          <embed src="<%=FileUploadPath & rs("picname")%>" width="56" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash"></embed>
                        </object>
                        <%end if%>
                        <%
				rs.MoveNext
wend
end if
rs.close
set rs=nothing
%>                      </td>
                      <td width="90%" valign="top" bgcolor="#FFFFFF">
                        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber14">
                          <%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="selfreg" then
	if Request.cookies(eChuang)("reglevel")=3 then
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
	end if
	if Request.cookies(eChuang)("reglevel")=2 then
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
	end if
	if Request.cookies(eChuang)("reglevel")=1 then
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
	end if
end if
else
	rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
rs3.Open rs3.Source,conn,1,1
while not rs3.EOF
newsurl="E_ReadNews.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
fileExt=lcase(getFileExtName(rs3("picname")))
if showyear=1 then
datetime="<font class=middle>(" & year(rs3("UpdateTime"))  &"年"& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
else
newsurl="E_ReadNews.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
datetime="<font class=middle>("& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
end if

if rs3("picnews")=1 then
			if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then
			img=" <img src='images/news_img.gif' border='0'>"
			else
			img="<img src='images/news_media.gif' border='0'>"
			end if
			else
			img=""
		end if
%>
                          <%
		'增加小类名称程序开始
	if rs3("bigclassID")<>"" then 
		B=rs3("bigclassID")
		set rs22=server.createobject("adodb.recordset")
		sql="SELECT bigclassID,E_BigClassName FROM "& db_BigClass_Table &" WHERE bigclassID="&B
		Set rs22=Conn.Execute(sql)
		A=rs22("E_BigClassName")
		rs22.close
		set rs22=Nothing
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -