⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 main.asp

📁 一套比较完整的内部技术支持全部源代码,请大家共同分享
💻 ASP
字号:
<%
if session("username")="" and session("isadmin")<>"1"  then
    response.redirect("index.asp")
    response.end
end if
%>
<%response.expires=0
if session("currentpath")="" or session("yyj_name")="" then
   response.redirect "exit.asp"
end if%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<frameset cols="395,*" frameborder="NO" border="0" framespacing="0" rows="*">
  <frame name="list" scrolling="AUTO" noresize src="list.asp?url=\file&id=<%=card(10000)%>">
  <frame name="upfile" src="upload.asp">
</frameset>
<noframes><body bgcolor="#FFFFFF" text="#000000">

</body></noframes>
</html>
<%
function card(t)    '随机数生成 1<card<t
Dim s
Dim all
Dim ave
Dim rannum
rannum = Int((7 * Rnd) + 1)
s = Second(Time)
s = s + 1
all = s * rannum
ave = all Mod t
card= ave + 1
End function    'end function
%>

⌨️ 快捷键说明

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