📄 help.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit
dim helpID
dim title
dim helptitle
dim Scriptname
dim preid
dim nextid
dim maxid
dim hrefid
dim linkstr
maxid=10
helpID=GetQueryString("id","int",4)
preid=helpID-1
nextid=helpID+1
if helpID=0 then preid=0
if helpID=maxid then nextid=maxid
Select CASE helpID
CASE 0
hrefid="login.asp"
helptitle="登陆窗口"
Scriptname="help/login.htm"
CASE 1
hrefid="this_upfile.asp"
helptitle="多文件上传单用户简版本"
Scriptname="help/upload1.htm"
CASE 2
hrefid="this_upfile_adv.asp"
helptitle="多文件上传"
Scriptname="help/upload.htm"
CASE 3
hrefid="Files_brower.asp"
helptitle="文件管理器"
Scriptname="help/filebrower.htm"
CASE 4
hrefid="Files_brower.asp"
helptitle="遍历目录"
Scriptname="help/listfolder.htm"
CASE 5
hrefid="EditBrower.asp"
helptitle="文件编辑器"
Scriptname="help/fileedit.htm"
CASE 6
hrefid="Master.asp"
helptitle="帐号管理"
Scriptname="help/mana.htm"
CASE 7
hrefid="reg_u.asp"
helptitle="用户注册"
Scriptname="help/reg.htm"
CASE 8
hrefid="runasp.asp"
helptitle="ASP代码运行"
Scriptname="help/asprun.htm"
CASE 9
hrefid="ADO_recordset.asp"
helptitle="数据库查询管理"
Scriptname="help/database.htm"
CASE 10
hrefid="this_upfile_adv.asp"
helptitle="多文件上传处理"
Scriptname="help/upflie.htm"
CASE else
hrefid="EditBrower.asp"
helptitle="文件编辑器"
Scriptname="help/fileedit.htm"
End select
linkstr="<a href=""help.asp?id=0""><< First</a> | <a href=""help.asp?id="& preid &""">< Previous</a> | <a href=""help.asp?id="& nextid &""">Next ></a> | <a href=""help.asp?id="& maxid &""">Last >></a>"
%>
<html>
<head>
<title>CoolSel 1.0 帮助文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="inc/coosel.css" rel="stylesheet" type="text/css">
</head>
<body marginwidth="0" marginheight="0" leftmargin="0" topmargin="0" bgcolor="#FFFFFF">
<table width="95%" border="0" cellspacing="0" cellpadding="4" align="center">
<tr bgcolor="#CCCCCC">
<td height="22" colspan="4" bgcolor="#999999"> <font color="#FFFFFF"> CooSel 1.0 帮助文档 >><%= helptitle %></font></td><td bgcolor="#999999"><a href="<%=hrefid%>"><font color="#FFFFFF">返回当前功能区</font> </td>
</tr>
</table>
<table width="95%" border="0" cellspacing="0" cellpadding="4" align="center">
<tr>
<td width="36%"><nobr><%=linkstr%></nobr></td>
<td width="49%" align="center"><nobr></nobr></td>
<td align="right" width="15%"><nobr>
<%dim strs,strings,i
strs=""
strings=""
for i=0 to maxid
if i=helpID then
strs="<font color='#0000ff'><b>"&cstr(i)&"</b></font>"
else
strs="<a href=""help.asp?id="&cstr(i)&""">"&cstr(i)&"</a>"
end if
if i<maxid then strs=strs+" | "
strings=strings+strs
next
response.Write(strings)
%></nobr></td>
</tr>
</table>
<%Server.Execute(Scriptname)%>
<hr width="95%" noshade size="1">
<table width="95%" border="0" cellspacing="0" cellpadding="4" align="center">
<tr>
<td width="36%"><nobr>
<%=linkstr%></nobr></td>
<td width="49%" align="center"><nobr></nobr></td>
<td align="right" width="15%"><nobr>
<%=strings%></nobr></td>
</tr>
</table>
<br>
<br>
<br>
</body>
</html>
<%Function GetQueryString(theStr,strType,defValue)
select case strType
case "str"
if isEmpty(Request.QueryString(theStr)) or trim(Request.QueryString(theStr))="" then
GetQueryString=defValue
else
GetQueryString=trim(Request.QueryString(theStr))
end if
case "int"
if isEmpty(Request.QueryString(theStr)) or not isNumeric(Request.QueryString(theStr)) then
GetQueryString=defValue
else
GetQueryString=cint(Request.QueryString(theStr))
end if
case else
GetQueryString=defValue
end select
End Function%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -