📄 pic.asp
字号:
<%@ LANGUAGE=VBScript%>
<%
if not IsArray(Session("info")) then Response.Redirect "err.asp?kind=20"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
gradeinfo=Application("gradeinfo")
if gradeinfo(info(1),5)<>true then Response.Redirect "err2.asp?kind=02"
%>
<!--#INCLUDE FILE="config.asp" -->
<%
Set fs=CreateObject("Scripting.FileSystemObject")
tpjpath=Server.Mappath("pic")
tpj=Request.QueryString("tpj")
tpj=Replace(tpj,"..","")
%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>title</title>
<script language="javascript">
function tietu(whats)
{parent.howmanytime=parent.howmanytime+1;
if(parent.howmanytime<=5){parent.l3.allsay.saysword.value=parent.l3.allsay.saysword.value+"[img]"+whats+"[/img]";}
else{alert("没必要帖这么多图吧？？")}
}
function ctlent(eventobject)
{if(event.ctrlKey)
{self.event.returnValue=false}
}
</script>
<style>
<!--
body{SCROLLBAR-HIGHLIGHT-COLOR: buttonface;
SCROLLBAR-SHADOW-COLOR: buttonface;
SCROLLBAR-3DLIGHT-COLOR: buttonhighlight;
SCROLLBAR-TRACK-COLOR: #eeeeee;
SCROLLBAR-DARKSHADOW-COLOR: buttonshadow}
a:active { color: <%=zzbird_chattext%>; font-size: 9pt }
a:link { color: <%=zzbird_chattext%>; font-size: 9pt }
a:visited { color: <%=zzbird_chattext%>; font-size: 9pt }
a { color: <%=zzbird_chattext%>; font-size: 9pt }
input { font-size: 9pt }
body { font-size: 9pt; color: <%=zzbird_chattext%> }
select { font-size: 9pt ;color: <%=zzbird_selecttext%>; background-color: <%=zzbird_selectbg%>}
-->
</style>
</head>
<body onkeydown="ctlent()" bgcolor="<%=zzbird_chatbg%>" <%if zzbird_chatbgpic<>"" then%>background="<%=zzbird_chatbgpic%>" <%end if%> text="<%=zzbird_chattext%>" topmargin="6" leftmargin="6">
<div align="center" class="bird"><span style="font-size: 11.5pt">贴图中心</span><hr color="#000000" size="1">
图片集<br>
<select size="1" name="typelist" style="width: 118" onchange="window.open('pic.asp?tpj='+this.options[this.selectedIndex].value,'_self')">
<%Set f=fs.GetFolder(tpjpath)
Set fc=f.SubFolders
sss=0
For Each f1 in fc
fn=f1.name
if tpj="" and sss=0 then tpj=fn
sss=sss+1%>
<option value="<%=fn%>"<%if tpj=fn then Response.Write " Selected"%>><%=fn%></option>
<%next%>
</select><br>
选择图片<br>
<%picpath=Server.Mappath("pic/"&tpj)
htpj = Server.HTMLEncode(tpj)
Set f=fs.GetFolder(picpath)
Set fc=f.Files
For Each f1 in fc
fn=f1.name
If fn <> "Thumbs.db" Then
%>
<a href=javascript:tietu("<%=htpj%>/<%=fn%>");><img src="pic/<%=htpj%>/<%=fn%>" border="0"></a>
<%
End If
next
set f=nothing
set fc=nothing
set fs=nothing%> <br>
<br>
=== END ===</div>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -