showpic.asp

不错的个人网站

<!--#include file="inc/HZC.asp"-->
<!--#include file="inc/mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/format.asp"-->
<%
start="精美图片 - 浏览图片"
dim founderr
founderr=false
if request.querystring("pic_id")="" then
  founderr=true
  Response.Write "<script language=javascript>alert('请指定操作的对象！');javascript:history.back();</script>"
else
  if not isInteger(request.querystring("pic_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
   response.end
 end if
end if
call head()
call menu()
sql="select * from HZC_pic where pic_id="&request.querystring("pic_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY>" & vbCrLf
Response.Write "<img border='0' src='skin/photo.jpg' width='757' height='186'>"
Response.Write "</TD><TD class=r></TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder=""0"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>lanyutable("""&rs("pic_name")&""");</SCRIPT><table width=""100%"" align=""center"" cellspacing=""0"" cellpadding=""0""" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top"">" & vbCrLf
Response.Write "<br><div align=""center""><font style=""font-size:16px""><b>"&rs("pic_name")&"</b></font><br><BR>" & vbCrLf
Response.Write "<img src="""&rs("pic_pic")&""" border='0' onmousewheel='return cgimg(this);' onload=""javascript:DrawImage(this);"" title=""按此在新窗口打开图片"" onmouseover=""this.style.cursor='hand';"" onclick=""window.open(this.src);""></div>" & vbCrLf
Response.Write "<BR>" & vbCrLf
Response.Write "<table width='700' border='0' cellspacing='1' align='center' class='lanyubg'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='48' bgcolor=""#FFFFFF"" Valign='TOP' style=""LINE-HEIGHT: 150%;padding: 5;"">" & vbCrLf
Response.Write "上传时间："&rs("pic_date")&"<BR>图片说明："&rs("pic_desc")&"</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table><br>" & vbCrLf
set rscount=conn.execute("select * from HZC_pic")
sql="UPDATE pic SET pic_count = pic_count + 1 where pic_id="&request.querystring("pic_id")
conn.execute (sql)
rscount.close
set rscount=nothing
call footer()%>