📄 getinfo.asp
字号:
<%@ Language=VBScript %>
<%
nam=Request.Form("memname")
dpt=Request.Form("dpt")
stunum=Request.Form("stunum")
address=Request.Form("addr")
telnum=Request.Form("telnum")
desc=Request.Form("desc")
%>
<%
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set logfile=MyFileObject.OpenTextFile("d:\newlog\info.txt",8,TRUE)
logfile.WriteLine("姓名: "+nam)
logfile.writeline("班级: "+dpt)
logfile.writeline("学号:"+stunum)
logfile.writeline("住址:"+address)
logfile.writeline("电话:"+telnum)
logfile.writeline("爱好:"+desc)
logfile.writeline("")
logfile.Close
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P align=center><FONT color=navy face=""
size=5>谢谢你，<%Response.Write(nam)%>
<br>
你已经完成登记,请等待红会的通知.</FONT><FONT><FONT color=deepskyblue>
</FONT></FONT></P>
<DIV align=center> </DIV>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -