⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 lianxi.aspx

📁 这是我个人用ASP制作 的一个动态网页,也是我的主页,谢谢大家的使用~~~`
💻 ASPX
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 {
	font-size: 18px;
	color: #CC6600;
}
.style32 {font-size: 12px; color: #000000; }
-->
</style>
</head>

<body>
<table width="552" height="292" border="1">
  <tr background="6.gif">
    <td height="31" colspan="2" valign="middle" bordercolor="#993300"> <pre class="style1">     联系我们                      <font size="3"><font size="2"><font size="3"> <font size="2"><font size="3"><span class="style32"><%
CountFile=Server.MapPath("counter.txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close
SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
counter=counter + 1
OUt.WriteLine(counter)
Application.unlock
Response.Write("您是第")
Response.Write("<font color = red >")
Response.Write(counter)
Response.Write("</font>")
Response.Write("位访问者")
Out.Close
%></span></font></font></font></font></font></pre></td>
  </tr>
  <tr>
    <td width="284" height="253" valign="top" bordercolor="#993300" background="body.gif"><p>联系站长:</p>
    <pre>        林碧云:邮箱:linbiyun4021@126.com



                QQ:19414002



       郑彩艳:邮箱:zaqwgei@163.com



               QQ:346800737



      余文超:邮箱:yuwenchao@126.com



              QQ:88638939





     郑祥远:邮箱:zhengxiangyuang



            QQ:95572663</pre></td>
    <td width="252" valign="top" bordercolor="#993300" background="body.gif"> <pre>  <marquee direction="up"> 由于时间太仓促,网页还存在着很多的

不足,<span class=style14>不是</span>很精美,请多多谅解,欢迎大家

与我们联系,向我们提出宝贵意见!

不胜感激!</marquee>
</pre></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -