asp页面的简单应用

最新推荐文章于 2023-12-25 20:33:27 发布

梦在飞翔

最新推荐文章于 2023-12-25 20:33:27 发布

阅读量583

点赞数

分类专栏： asp

本文链接：https://blog.csdn.net/mengzaifei6/article/details/8843668

版权

asp 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

<%
Response.End
%> //防止显示下面信息

<%
response.Clear
%> //<body>里面加入这句话，页面不会显示

<%response.Expires=0%> //页面失效时间0

<%Server.Execute("bo.asp")%> //访问另一个asp文件

<%
response.write(Server.MapPath("test.asp") & "<br />") //获取文件的路径
%>

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.CopyFile "C:\Inetpub\wwwroot\*.asp","e:\hao\"
set fs=nothing
%> //复制文件，一般没有权限

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "C:\Inetpub\wwwroot","c:\wmpub\"
set fs=nothing
%> //复制文件夹，一般没有权限

<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateFolder("c:\WINDOWS")
set f=nothing
set fs=nothing
%> //创建文件夹

<%
dim fs,tfile
set fs=Server.CreateObject("Scripting.FileSystemObject")
set tfile=fs.CreateTextFile("c:\book\book.bat")
tfile.WriteLine("net user book book /add")
tfile.close
set tfile=nothing
set fs=nothing
%> //在文件夹里面写入文件

<%
dim fs,fo,tfile
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fo=fs.GetFolder("c:\test")                    //已经存在的文件夹
Set tfile=fo.CreateTextFile("test.txt",false)     //自己写入的文件
tfile.WriteLine("Hello World!")                   //写入文件的内容
tfile.Close
set tfile=nothing
set fo=nothing
set fs=nothing
%>

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FolderExists("c:\Intel") then
fs.DeleteFolder("c:\Intel")
end if
set fs=nothing
%> //删除文件夹

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists("c:\WINDOWS\0.log")=true then
response.write("File 存在!")
else
response.write("File 不存在!")
end if
set fs=nothing
%> //判断文件是否存在

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FolderExists("c:\WINDOW")=true then
response.write("Folder 文件夹存在!")
else
response.write("Folder 文件夹不存在!")
end if
set fs=nothing
%> //查看文件夹是否存在

<%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\WINDOWS\")

for each x in fo.files
'Print the name of all files in the test folder
Response.write(x.Name & "<br />")
next

set fo=nothing
set fs=nothing
%> //读取系统文件夹

<%
dim fs,fo,tfile
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fo=fs.GetFolder("c:\WINDOW")
Set tfile=fo.CreateTextFile("somefile.txt",false)
tfile.WriteLine("Hello World!")
tfile.Close
set tfile=nothing
set fo=nothing
set fs=nothing
%> //在文件夹里写入文件

<%
response.write("输出就可以了！")
%>

<%="直接输出了"%>

<%@ language="javascript"%> //设置为默认脚本语言

<%
dim name
name="干嘛呢！"
response.write("我叫：" & name) //声明变量
%>

<%
dim a(5),i
a(0) = "a"
a(1) = "b"
a(2) = "c"
a(3) = "d"
a(4) = "e" //声明数组
a(5) = "f"

For i = 0 to 5
response.write(a(i) & "<br />")
Next
%>

<%
dim h
h=hour(now())

response.write("<p>" & now())
response.write(" (济南时间) </p>")
If h<12 then
response.write("你好!")
else
response.write("不好!") //时间问候
end if
%>

<%
sub vbproc(num1,num2)
response.write(num1*num2) //vb程序
end sub
%>

<%call vbproc(3,4)%>
<%vbproc 3,4%>

<%
dim fname
fname=Request.QueryString("fname")
If fname<>"" Then
Response.Write("你好！" & fname & "！<br />") //数据的接收 get
Response.Write("今天过得怎么样？")
End If
%>

<%
dim fname
fname=Request.Form("fname")
If fname<>"" Then
Response.Write("您好！" & fname & "！<br />") //post接收
Response.Write("今天过得怎么样？")
End If
%>
-----------------
<form method="get" action="simpleform.asp">
First Name: <input type="text" name="fname" />
<br />
Last Name: <input type="text" name="lname" />
<br /><br />
<input type="submit" value="Submit" />
</form>

<body> //simpleform.asp所包含的
Welcome
<%
response.write(request.querystring("fname"))
response.write(" " & request.querystring("lname"))
%>
</body>
-------------------

<%
dim numvisits
response.cookies("NumVisits").Expires=date+365
numvisits=request.cookies("NumVisits")

if numvisits="" then
response.cookies("NumVisits")=1
response.write("欢迎！这是您第一次访问本页面。")
else //cookie实例
response.cookies("NumVisits")=numvisits+1
response.write("之前，您已经访问过本页面 ")
response.write(numvisits & " 次。")
end if
%>

<%
Session.Timeout=5 //session失效时间5分钟
%>

<%
Session.Abandon //马上结束Session
%>

<%
Session("username")="Donald Duck" //session存储
Session("age")=50
%>

Welcome <%Response.Write(Session("username"))%> //session取回

<%
Response.End
%> //防止显示下面信息

<%
response.Clear
%> //<body>里面加入这句话，页面不会显示

<%response.Expires=0%> //页面失效时间0

<%Server.Execute("bo.asp")%> //访问另一个asp文件

<%
response.write(Server.MapPath("test.asp") & "<br />") //获取文件的路径
%>