📄 xdzl.aspx
字号:
<%@ Import Namespace="System.IO" %>
<html>
<title>江都市实验小学音像资料在线管理系统---新到资料介绍</title>
<script language="vb" runat="server">
sub page_load(byval sender as object ,byval e as eventargs)
Dim txtReader As StreamReader
Dim strLine As String
txtReader = File.OpenText(Server.MapPath("ziliao.txt"))
Response.Write( "<table border='0' align='center' background='img/bg.gif' width='500'>")
Response.Write( "<tr>")
Response.Write( "<td>")
Do
strLine = txtReader.ReadLine()
Response.Write( "<tr>")
Response.Write( "<td>")
Response.Write(strLine & "<br>" )
Response.Write( "</td>")
Response.Write( "</tr>")
Loop Until Trim(strLine) = ""
txtReader.Close
Response.Write( "</td>")
Response.Write( "</tr>")
end sub
</script>
<LINK href="styles.css" type="text/css" rel="stylesheet">
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
<body>
<form runat="server">
<hr><center><span class="STYLE1">来自IP地址：<%=request.userhostaddress %>的朋友！欢迎您使用江都市实验小学音像资料在线管理系统</span>
<hr>
<center>
<tr><td>
<hr width="600">
<center>
<div align="center">您的关注，我的发展!
<a href="../default.aspx">回到系统界面</a> </div>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -