📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.ContentType="text/vnd.wap.wml" %><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<!--#include file="config.asp"-->
<card title='<%=webname%>'>
<p>
你好！欢迎光临，所有内容免费<br/>-------------<br/>
<%
sub list
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(server.MapPath("file"))
set fs=f.SubFolders
Set fc =f.Files
For Each fss in fs
dim folder_name
folder_name=fss.name
%><a href="sj2.asp?url=<%ContentStr(fss)%>"><%=folder_name%></a><br/>
<%
Next
set fso=nothing
end sub
call list
function ContentStr(q_path)
dim constr
constr=split(q_path,"\")
For j=(ubound(ConStr)-1) to (ubound(ConStr)-1)
response.write ""& ConStr(j) &"/"
next
For j=ubound(ConStr) to ubound(ConStr)
response.write Server.URLEncode(ConStr(j))
next
end function
%>
<br/>-------------<br/>
站内搜索
<br/>-------------<br/>
<br/>CopyRight2007 <%=webname%>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -