📄 xdzlwrite.aspx
字号:
<%@ Import Namespace="System.IO" %>
<html>
<title>新到电教资料介绍管理</title>
<script language="vb" runat="server">
sub page_load(byval sender as object ,byval e as eventargs)
button2.enabled=false
end sub
sub clicks(byval sender as object ,byval e as eventargs)
Dim txtWriter As StreamWriter
txtWriter = File.appendtext(Server.MapPath("ziliao.txt"))
txtWriter.WriteLine( "学科：" & textbox1.text & " 年级：" & textbox2.text & " 介质：" & textbox3.text & "内容：" & textbox4.text & "记录时间：" & now() )
txtWriter.Close
response.redirect("xdzl.aspx")
end sub
sub clicks1(byval sender as object ,byval e as eventargs)
end sub
</script>
<LINK href="styles.css" type="text/css" rel="stylesheet">
<body>
<form runat="server">
<center><hr>
<font size="+3" face="宋体">新到电教资料介绍</font>
</center>
<hr>
<center>
<tr><td>
<table border="1" align="center" background="img/bg.gif">
<tr><td> 学科：</td><td>
<asp:textbox id="textbox1" runat="server"/></center></td></tr>
<tr><td> 年级：</td><td>
<asp:textbox id="textbox2" runat="server"/></center></td></tr>
<tr><td> 介质：</td><td>
<asp:textbox id="textbox3" runat="server"/></center></td></tr>
<tr><td> 内容：</td><td>
<asp:textbox id="textbox4" runat="server" textmode="multiline" columns="65" rows="10"/></center></td></tr>
<tr><td></td><td>
<center><asp:button id="button1" text="确定提交" onclick="clicks" runat="server"/> <asp:button id="button2" text="ZhiYuanStudio" onclick="clicks1" runat="server"/></td></tr></table></td></tr></table>
<hr width="780">
<center>
<div align="center">您的关注，我的发展!
<a href="../default.aspx">回到系统主页</a> </div>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -