📄 zhuanti.asp

📁 采用ASP+ACCESS+ASPUPJPG组件构成
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ ENABLESESSIONSTATE = FALSE %>
<!--#include file="mdb/conn.asp" -->
<!--#include file="config.asp" -->
<%
if Request("menu") = "addto" then
call addto()
else call index()
end if
sub index()
%>
<%
dim typename,classid,classname,pl,hot
if IsNumeric(Request.QueryString("typeid"))=False then
Response.Redirect"info.asp?info=错误的参数"
else
typeid=cint(Request.QueryString("typeid"))
end if
if IsNumeric(Request.QueryString("mo"))=False then
Response.Redirect"info.asp?info=错误的参数"
else
mo=cint(Request.QueryString("mo"))
end if
'response.write mo
'response.end
set temprs=conn.execute("select name,pl,hot,data,time1,js,music,pass,view from zhuanti where id="&typeid) 
if temprs.eof or temprs.bof then 
response.write "<title>该专题并不存在！</title>该专题并不存在！"%>
<br><a href='http://www.aishop.com.cn/aishop/1/' target='_blank'><img src='http://www.aishop.com.cn/aishop/1/images/ad.gif' border='0' class='bk'></a>
<%
response.end
end if
if temprs(8)=true and mo=0 then
Response.Redirect"zhuanti.asp?typeid="&typeid&"&mo=1"
end if
typename=temprs(0)
if temprs(1)="" OR IsNULL(temprs(1))=true then
	pl ="0"
	else
	pl=temprs(1)
	end if
hot=temprs(2)
data=temprs(3)
data1=temprs(4)
js=temprs(5)
ms=temprs(6)
p=temprs(7)
set temprs=nothing
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from zhuanti where id="&typeid
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,3
ps=Rs("pass")
if Rs("hot")="" OR IsNULL(Rs("hot"))=true then
	Rs("hot") ="1"
	else
	Rs("hot") = Rs("hot")+1
	end if
rs.update
Rs.close
set Rs = nothing
%>
<html>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<meta name='generator' content="zhusheng's photo by paladin QQ:7040333">
<meta name='keywords' content='朱朱,朱升'>
<title><%=typename%> >></title>
</head>
<body>
<%
pss=Request.cookies("'"&typeid&"'")
if len(ps)<>0 then
if pss<>ps then
Response.Write"<font size='2' color='#808000'>该相册是一个非共享文件夹,请提供查看通行证：</a><form name='form' method='post' action='pass.asp?typeid="&typeid&"'><input type='password' name='pase' size='15'><input type='submit' name='Submit' value='确定'></form>"
%><br><a href='http://www.aishop.com.cn/aishop/' target='_blank'><img src='http://www.aishop.com.cn/aishop/1/images/ad.gif' border='0' class='bk'></a>
<%
response.end
end if
end if
%>
<STYLE type=TEXT/CSS>
.shadow {FILTER: dropshadow(color=#ffffff,offx=1,offy=1,positive=1)}
.white {FILTER: dropshadow(color=#FFFFFF,offx=1,offy=1,positive=1)}
#bottom {
font: 10px Arial, Helvetica, sans-serif;
color: #DBE1E8;
background: url(images/bottom_bgline.png) repeat-x;
}
BODY {
 cursor: url(images/mouse.cur);
 MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; MARGIN-LEFT: 0px; MARGIN-RIGHT: 0px; BACKGROUND-COLOR: #CBD3DE;overflow-x:hidden; FONT-SIZE: 7pt; COLOR: #000000; FONT-FAMILY: Verdana,Helvetica,Arial
}
A {
 COLOR: #8d8c8c; TEXT-DECORATION: none
}
SELECT {
 BORDER-RIGHT: #cccccc 0px double; BORDER-TOP: #cccccc 0px double; FONT-SIZE: 9pt; BORDER-LEFT: #cccccc 0px double; COLOR: #000000; BORDER-BOTTOM: #cccccc 0px double; FONT-FAMILY: MS Shell Dlg,Tahoma, sans-serif; BACKGROUND-COLOR: #ffffff
}
INPUT {
 BORDER-RIGHT: #cccccc 1px double; BORDER-TOP: #cccccc 1px double; FONT-SIZE: 9pt; BORDER-LEFT: #cccccc 1px double; COLOR: #333333; BORDER-BOTTOM: #cccccc 1px double; FONT-FAMILY: MS Shell Dlg,Tahoma, sans-serif; BACKGROUND-COLOR: #ffffff
}

FORM {
 FONT-WEIGHT: normal; LINE-HEIGHT: normal; FONT-STYLE: normal; FONT-FAMILY: MS Shell Dlg,tahoma
}
TD {
 FONT-SIZE: 9pt; COLOR: #000000; FONT-FAMILY: Verdana,Helvetica,Arial
}

BODY {
 BACKGROUND-IMAGE: url('images/1.jpg'); BACKGROUND-REPEAT: repeat-x
}
.de_font {
 FONT-SIZE: 11px; COLOR: #8d8c8c; LINE-HEIGHT: 22px; FONT-STYLE: normal
}
.act_title {
 font-size:14px;
 font-weight:bold;
}
#bottom_content {
background: url(images/bottom_bg.png) no-repeat center top;
height: 55px;
} 
 
</STYLE>
<div align="center">
<TABLE cellSpacing=0 cellPadding=0 width="770" border=0>
<TBODY>
<TR>
<TD width="100%" height=583 align="center" bgcolor="#FFFFFF" valign="top"><table cellpadding="0" cellspacing="0" width="756" height="4">
	<tr>
		<td  align="center" bgcolor="#FFFFFF" height="4">
</td>
		</tr>
</table>
<%sqlo="select id from desktop where zhuanti="&typeid&" and hot =0 order by id asc"
Set rso=Server.CreateObject("ADODB.RecordSet")
rso.open sqlo,conn,1,1
if rso.eof or rso.bof then 
sm=0
else
sm=rso.RecordCount
end if
rso.close
set rso=nothing
%>
<table cellpadding="0" cellspacing="0" width="760" height="89">
	<tr>
		<td width="387" align="center" bgcolor="#FFFFFF" height="15" valign="bottom" >
		<table cellSpacing="1" cellPadding="3" align="left" border="0" id="table1">
			<tr>
				<td bgcolor="#000000">
				<a href="../index.asp">
				<img border="0" src="images/1.gif" width="124" height="14"></a></td>
				<td bgcolor="#BBBBBB" >
				<font color="#FFFFFF"><a href="index.asp">
				<b><font color="#FFFFFF">My photo</font></b></a></a></font></td>
			</tr>
		</table>
		</td>
		<td width="365" align="center" bgcolor="#FFFFFF" height="15" valign="bottom" >
		　<a href="down/readme.htm" target="_blank">免费下载此相册</a> | 
		<a href="../gbook.htm">留言</a> | 
		<% if mo=1 then
		response.write" <a href='zhuanti.asp?typeid="&typeid&"&mo=2'>以缩图形式查看</a>|"
		end if%>
<% if mo<>1  then
		response.write" <a href='zhuanti.asp?typeid="&typeid&"&mo=1'>以列表形式查看</a>|"
		end if%><a href="../gb/index.asp?typeid=<%=typeid%>&title=<%=typename%>" target='_blank'>查看对此图片的评论</a></td>
	</tr>
	<tr>
		<td width="752" align="center" bgcolor="#808080" colspan="2">
	<img  alt="" src="images/top.jpg" border="0"></a></div>
	</td>
	</tr>
</table>
<table cellpadding="0" cellspacing="0" width="762">
	<!-- MSTableType="layout" -->
	<tr><td valign="top"><br>
		<div align="center">
			<div style="width: 726px; height: 100px"><table  cellSpacing="0" cellPadding="0" width="716" border="0" id="table2">
										<tr>
											<th noWrap align="left" height="18" width="6" bgcolor="#808080">
											　</th>
											<th  noWrap align="left" height="18" width="277" bgcolor="#BBBBBB">
											<font size="2">My Photo 欢迎访问</font></th>
											<th  noWrap align="right" width="433" bgcolor="#BBBBBB">
											<font size="2">共有<%=sm%>张照片</font></a>&nbsp;<input type="button" name="Submit" onClick='copyToClipBoard()' 
value="点击复制本页地址，传给QQ/MSN上的好友">
<script language="JScript">
   function copyToClipBoard(){
    var clipBoardContent="";
    clipBoardContent+=document.title;
    clipBoardContent+="\n";
    clipBoardContent+=this.location.href;
    window.clipboardData.setData("Text",clipBoardContent);
    alert("复制成功，请粘贴到你的QQ/MSN上推荐给你的好友");
  }
</script></th>
										</tr>
									</table>
									<!-- 块内容开始 -->
									<div class="mypoco_tbl1" style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 20px; PADDING-TOP: 20px">
										<table class="border_color2" style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid; BORDER-COLLAPSE: collapse" cellSpacing="0" cellPadding="5" width="90%" align="center" border="0" id="table3">
																				<tr vAlign="top">
12 下一页
💿 文件大小 292 K
👤 上传用户 SLing2008
📂 所属分类 DSP编程
🏷️ 相关标签

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

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