ztphotoshow.asp

功能强大的日记本实现管理写日记和真实的日记本一样带锁不会让别人看到你的隐私

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
'程序演示地址：http://www.5i58.net/diary.htm
'● 程序名：flash日记本和flash留言本  v1.2
'● 语言：ASP & as
'● 运行环境：Win2000 IIS，ASP+Access。
'● 开发者: www.5i58.net 我爱我吧学习网
'● 联系方式（技术支持）：QQ:50810089    MSN: [e-mail](VIP技术支持)
'如果您想用作商业用途，请与我们联系，升级为 VIP 版本

ZTid=Request("ZTid")
set rs=server.CreateObject("ADODB.Recordset")
SQL="select * from ZhuanTiPhoto Where ZTid="&ZTid
rs.open SQL,conn,2,3

if not rs.eof then
    rs("ZTcount")=rs("ZTcount")+1
	rs.update
	
	'是否为会员文章，是就判断有没有登录即session("HYname")存在不
	if rs("ZTifHY")=1 then
	  if session("HYname")="" then
	    Response.Write("ZTbody="& Left(server.URLEncode(rs("ZTbody")),300) &"  ... ...   -----------------此篇为会员文章，你还没有登录，请先登录。你可别告诉我还没有注册哟！那就赶紧注册吧，免费的Flash日记本等着你呢！&")		
	  else
	    Response.Write("ZTbody="& server.URLEncode(rs("ZTbody")) &"&")
	  end if
	else
	  Response.Write("ZTbody="& server.URLEncode(rs("ZTbody")) &"&")
	end if
	
 	Response.Write("ZTtitle="& rs("ZTtitle") &"&")
	Response.Write("info=发表人:<FONT COLOR='#D31919'><b>"&rs("HYname")&"</b></FONT>  发表时间:<FONT COLOR='#D31919'><b>"&FormatDateTime(rs("ZTdate"),2)&"</b></FONT>  浏览次数:<FONT COLOR='#D31919'><b>"&rs("ZTcount")&"</b></FONT>  &")
else

end if
set tempRs=server.CreateObject("ADODB.Recordset")
tempSQL="select * from ZhuanTiPhoto Where ZTupTitle like '%"& rs("ZTupTitle") &"%' Order By ZTorderDate Desc"
tempRs.open tempSQL,conn,1,1
if not(tempRs.eof and tempRs.bof) then
  i=1
  do while not (tempRs.eof or err)
	 Response.Write("ZTupTitle"&i&"="&tempRs("ZTtitle")&"&")
	 Response.Write("ZTid"&i&"="&tempRs("ZTid")&"&") 
  tempRs.movenext
  i=i+1
  Loop
  Response.Write("whatTemp=3&")'发送显示1为flash文章、2为DW文章、3为Photo文章、4为donw下载
else
  Response.Write("ZTupTitle1=没有相关文章！")
end if
%>
<%
rs.close
set rs=Nothing
tempRs.close
set tempRs=Nothing
CloseDataConn()
%>