📄 4-13.asp
字号:
<html>
<head>
<title>年龄调查</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
body{
font-size:12px;
}
</style>
<%
const ForWriting = 2
dim oFso,oText,sCount,sFile
sFile = Server.MapPath("age.txt")
set oFso = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
if not oFso.FileExists(sFile) then
set oText = oFso.CreateTextFile(sFile)
age= "0"
oText.Write(age)
else
if Request.Form("submit") = "保存年龄" then
set oText = oFso.OpenTextFile(sFile,ForWriting)
age= Request.Form("age")
oText.Write(age)
else
set oText = oFso.OpenTextFile(sFile)
age = oText.ReadLine()
end if
end if
oText.Close()
%>
</head>
<body>
<form action="4-13.asp" method="post" name="frmCount">
年龄为：<input name="age" value="<%= age %>"><br><br>
<input type="submit" name="submit" value="保存年龄">
<input type="button" name="refresh" value="刷新年龄" onclick="window.navigate('4-13.asp');">
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -