main.asp

来自「一套比较完整的内部技术支持全部源代码,请大家共同分享」· ASP 代码 · 共 38 行

ASP
38 行
字号 
<%
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
%>

main.asp - 源码说明

本页面展示了「一套比较完整的内部技术支持全部源代码,请大家共同分享」中的 main.asp 源码文件，采用 ASP 编程语言编写，共 38 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与比较相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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