📄 zhuanti.asp

📁 采用ASP+ACCESS+ASPUPJPG组件构成
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
												<td class="bg_color2" width="322">
												<span class="act_title"><%=typename%></span></td><td class="bg_color2" colSpan="2" width="309"><%if ms>"" then%><object type="application/x-shockwave-flash" data="http://www.1pixelout.net/wp-content/plugins/audio-player/player.swf" width="160" height="14" id="audioplayer1"><br />
<param name="movie" value="images/player.swf" />
<param name="FlashVars" value="playerID=1&amp;bg=0xf8f8f8&amp;leftbg=0xD4D0C8&amp;lefticon=0x666666&amp;rightbg=0xffffff&amp;rightbghover=0x999999&amp;righticon=0x666666&amp;righticonhover=0xFFFFFF&amp;text=0x666666&amp;slider=0x666666&amp;loader=0xff0000&amp;track=0xFFFFFF&amp;border=0x666666&amp;loader=0xEAEADB&amp;loop=yes&amp;autostart=yes&amp;soundFile=<%=ms%>" />
<param name="quality" value="high" />
<param name="menu" value="false" />
<param name="bgcolor" value="#FFFFFF" />
</object><%end if%></td>
											</tr>
		
											<tr class="bg_color4" align="left">
												<td class="border_color2" style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" width="51%">
												发布日期：<%=data1%>(浏览:<%=hot%>)</td>
												<td class="border_color2" style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" width="25%">
												拍摄日期：<%=data%></td>
												<td class="border_color2" style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" width="24%">
												<font face="webdings">4</font>
												<%if p<>"" then
Response.Write"<font color=red>需权限浏览</font>"
else
Response.Write"共享相册"
end if%>  >><a href="../gb/photoadd.asp?typeid=<%=typeid%>&title=<%=typename%>" target='_blank'>评论</a></td>
											</tr>
											
											</tr>
										</table>
									</div>
								</div>	</div>
　</td>
	</tr>
</table>
<br><%if js>"" then%><div align="center">


			<table cellSpacing="1" cellPadding="0" align="center" bgColor="#e1e1e1" border="0" width="600">
				<tr>
					<td bgColor="#ffffff">
					<table cellSpacing="1" cellPadding="0" bgColor="#d7d7d7" border="0" width="100%" >
						<tr>
							<td bgColor="#ffffff">
							<table cellSpacing="1" cellPadding="0" bgColor="#b2b2b2" border="0" width="100%">
								<tr>
									<td bgColor="#ffffff">
									<table cellSpacing="0" cellPadding="8" width="100%" border="0" >
										<tr>
											<td><%=js%></td>
										</tr>
									</table>
									</td>
								</tr>
							</table>
							</td>
						</tr>
					</table>
					</td>
				</tr>
			</table>
</div><%end if%>
<table width="100%"  border="0" cellspacing="0" cellpadding="8">
<tr>
<td align="center" valign="top" bgcolor="<%=titlecolor%>">
<%
if mo<>1 then
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5'>"

Dim ipagecount
Dim ipagecurrent
Dim strorderBy
Dim irecordsshown
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
sql = "SELECT surl,ck,name,id FROM desktop where zhuanti="&typeid&" and hot =0 ORDER BY id aSC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.pagesize = 30
rs.cachesize = 30
rs.open sql,conn,1,1
ipagecount = rs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
response.write "<tr><td align='center'>没有任何文件</tr></td>"
else
rs.absolutepage = ipagecurrent
irecordsshown = 0
do while irecordsshown<30 and NOT rs.EOF
Response.Write"<tr align='center'>"
Response.Write"<td width='25%'>"
if not rs.eof then
Response.Write"<table align=center bgcolor='#b2b2b2' border=0 cellpadding=1 cellspacing=0 class='bk1'><tr><td><table align=center bgcolor='#ffffff' border=0 cellpadding=5 cellspacing=0 class='bk1'><tbody><td><a href='display.asp?id="&rs("id")&"' target='_blank'><img src='"&rs("surl")&"' border='0' class='bk'></a></td></tbody></table></tr></td></tbody></table><br><a href='display.asp?id="&rs("id")&"' target='_blank'>"&rs("name")&"</a></td></td>"
irecordsshown = irecordsshown +1
rs.movenext
end if

Response.Write"<td width='25%'>"
if not rs.eof then
Response.Write"<table align=center bgcolor='#b2b2b2' border=0 cellpadding=1 cellspacing=0 class='bk1'><tr><td><table align=center bgcolor='#ffffff' border=0 cellpadding=5 cellspacing=0 class='bk1'><tbody><td><a href='display.asp?id="&rs("id")&"' target='_blank'><img src='"&rs("surl")&"' border='0' class='bk'></a></td></tbody></table></tr></td></tbody></table><br><a href='display.asp?id="&rs("id")&"' target='_blank'>"&rs("name")&"</a></td></td>"
irecordsshown = irecordsshown +1
rs.movenext
end if

Response.Write"<td width='25%'>"
if not rs.eof then
Response.Write"<table align=center bgcolor='#b2b2b2' border=0 cellpadding=1 cellspacing=0 class='bk1'><tr><td><table align=center bgcolor='#ffffff' border=0 cellpadding=5 cellspacing=0 class='bk1'><tbody><td><a href='display.asp?id="&rs("id")&"' target='_blank'><img src='"&rs("surl")&"' border='0' class='bk'></a></td></tbody></table></tr></td></tbody></table><br><a href='display.asp?id="&rs("id")&"' target='_blank'>"&rs("name")&"</a></td></td>"
irecordsshown = irecordsshown +1
rs.movenext
end if

Response.Write"<td width='25%'>"
if not rs.eof then
Response.Write"<table align=center bgcolor='#b2b2b2' border=0 cellpadding=1 cellspacing=0 class='bk1'><tr><td><table align=center bgcolor='#ffffff' border=0 cellpadding=5 cellspacing=0 class='bk1'><tbody><td><a href='display.asp?id="&rs("id")&"' target='_blank'><img src='"&rs("surl")&"' border='0' class='bk'></a></td></tbody></table></tr></td></tbody></table><br><a href='display.asp?id="&rs("id")&"' target='_blank'>"&rs("name")&"</a></td></td>"
irecordsshown = irecordsshown +1
rs.movenext
end if

Response.Write"</tr>"
loop
end if
Response.Write"</table>"
if ipagecount >1 then
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5' align='center'><tr><td height='20' align=center>每页显示 30 个文件 共有 "&ipagecount&" 页 当前为第 "&ipagecurrent&" 页 "
if ipagecurrent=1 then
Response.Write"首页 | "
else
Response.Write"<a href='zhuanti.asp?typeid="&typeid&"&mo="&request.querystring("mo")&"&page=1'>首页</a> | "
end if
if ipagecurrent=1 then
Response.Write"上一页 | "
else
Response.Write"<a href='zhuanti.asp?typeid="&typeid&"&mo="&request.querystring("mo")&"&page="&ipagecurrent-1&"'>上一页</a> | "
end if
if ipagecount>ipagecurrent then
Response.Write"<a href='zhuanti.asp?typeid="&typeid&"&mo="&request.querystring("mo")&"&page="&ipagecurrent+1&"'>下一页</a> "
else
Response.Write"下一页"
end if
if ipagecount>ipagecurrent then
Response.Write"| <a href='zhuanti.asp?typeid="&typeid&"&mo="&request.querystring("mo")&"&page="&ipagecount&"'>末页</a> "
else
Response.Write"| 末页 "
end if
Response.Write"</td></tr></table>"
rs.Close
set rs=nothing
end if
else

Response.Write"<table width='99%' border='0' cellspacing='0' cellpadding='5'>"
Response.Write"<tr align='center'><td>"
sql = "SELECT url,ck,name,id,jj FROM desktop where zhuanti="&typeid&" and hot=0 ORDER BY id aSC"
'response.write sql
'response.end
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
ipagecount = rs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
response.write "<tr><td align='center'>没有任何文件</tr></td>"
else
do while NOT rs.EOF
Response.Write"<table width='20%' border=0 align='center' cellpadding='0' cellspacing='10'><tr><td><table cellspacing=1 cellpadding=0 align=center bgcolor=#e1e1e1 border=0><tbody><tr><td bgcolor=#ffffff><table cellspacing=1 cellpadding=0 bgcolor=#d7d7d7 border=0><tbody><tr><td bgcolor=#ffffff><table cellspacing=1 cellpadding=0 bgcolor=#b2b2b2 border=0><tbody><tr><td bgcolor=#ffffff><table cellspacing=0 cellpadding=8 width='100%' border=0><tbody><tr><td><table cellspacing=0 cellpadding=1 width='100%' border=0><tbody><tr><td align=middle bgcolor=#808080><img alt='"&rs("name")&"' src='"&rs("url")&"' align=middle border=0 onload='javascript:if(this.width>718)this.width=715'></td></tr></tbody></table></td></tr></tbody></table>"
if rs("jj")>"" then Response.Write"<table height=35 cellspacing=0 width='97%' align=center border=0><tbody><tr><td valign='middle'><span style='color:#000'>"&rs("jj")&"</span></td></tr></tbody></table>" end if
Response.Write"</td></tr></tbody></table></td></tr></tbody></table></td></tr></tbody></table></td></tr></table>"
rs.movenext
loop 
end if
rs.Close
set rs=nothing
Response.Write"</tr></td></table>"
end if %>
<br><script type="text/javascript"><!--
google_ad_client = "pub-1199273914270807";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "text_image";
google_ad_channel = "";
google_color_border = "FFFFFF";
google_color_bg = "FFFFFF";
google_color_link = "E895CC";
google_color_text = "CCCCCC";
google_color_url = "FFBBE8";
//-->
</script>
<script type="text/javascript"
  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="foot.asp" -->
</div>
</body>
</html>
<%
Response.End
end sub
%>
上一页 12
💿 文件大小 292 K
👤 上传用户 SLing2008
📂 所属分类 DSP编程
🏷️ 相关标签

#ASPUPJPG #ACCESS #ASP
⌨️ 快捷键说明

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