📄 picurl.asp

📁 网站整站
💻 ASP
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<%
'//版权所有：野草设计

'//程序作者：野草

'//当前版本：V2.0

'//联系QQ：94440079

'//官方网站：http://www.yecaoweb.com
%>
<%
call yecaosql()
dim url1,url2,picid,num
picid=request.querystring("id")
num=request.querystring("num")
if request.querystring("action")="img" then
response.write"<html><title>查看图片</title>"& vbCrLf
response.write"<body topmargin='10' bgcolor=#eeeeee>" & vbCrLf
response.write "<TABLE cellSpacing=0 cellPadding=0  border=0 align=center>"& vbCrLf
response.write "<TR><TD vAlign=bottom align=middle><TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=1 cellPadding=0 bgColor=#969696 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=0 cellPadding=1 width=""100%"" border=0>"& vbCrLf
response.write "<TR><TD align=center style=padding:4px;font-size:9pt;lin-height:150%;width:280;height:60>"& vbCrLf
response.write "<img src='picurl.asp?id="&picid&"&num="&num&"' align='absmiddle' alt='原图'/>" & vbCrLf
response.write "</TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>" & vbCrLf
response.write "</body></html>"& vbCrLf
response.end
else
url1=Cstr(Request.ServerVariables("HTTP_REFERER"))
url2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(url1,8,len(url2))<>url2 then
response.Redirect"error.asp?action=error&text="&server.urlEncode("禁止下载！")&"" 
response.end
elseif isnull(picid) then
response.Redirect"error.asp?action=error&text="&server.urlEncode("请指定对象！")&"" 
response.end
end if
sql="select url from [YC_picurl] where urlid="&picid&" and num="&num
set rs=conn.execute(sql)
YCGO(rs("url"))
rs.close:set rs=nothing
end if
%>
⌨️ 快捷键说明

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