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

📄 home.asp

📁 ASP+SQL Server动态网站开发从基础到实践教程
💻 ASP
字号:
🔍 
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P>
<FONT face="" size=4><STRONG>欢迎来到天天网站</STRONG></FONT> 
</P>
<P>
网站访问统计：
<TABLE border=1 cellPadding=1 cellSpacing=1 width=75%>
    <TR>
        <TD>
            <P align=right>
            <STRONG><FONT color=mediumslateblue face="" 
            size=4>访问过本站的人次</FONT></STRONG></P>
        <TD>
<%
tempcounter=application("visitornum")
'以下为根据记数数值显示相应的数字图片
for i=1 to 5 
	mstr="00000" & cstr(tempcounter)
	index=mid(mstr,len(mstr)+i-5,1)
	select case index
		case 0: Response.Write "<IMG src=mark0.jpg>"
		case 1: Response.Write "<IMG src=mark1.jpg>"
		case 2: Response.Write "<IMG src=mark2.jpg>"
		case 3: Response.Write "<IMG src=mark3.jpg>"
		case 4: Response.Write "<IMG src=mark4.jpg>"
		case 5: Response.Write "<IMG src=mark5.jpg>"
		case 6: Response.Write "<IMG src=mark6.jpg>"
		case 7: Response.Write "<IMG src=mark7.jpg>"
		case 8: Response.Write "<IMG src=mark8.jpg>"
		case 9: Response.Write "<IMG src=mark9.jpg>"
	end select
next 
%>
</TD>
    <TR>
        <TD>
            <P align=right><STRONG><FONT color=#7b68ee size=4>今天访问者人次</FONT></STRONG></P>
        <TD>
<%
tempcounter=application("todayvisitor")
for i=1 to 5 
	mstr="00000" & cstr(tempcounter)
	index=mid(mstr,len(mstr)+i-5,1)
	select case index
		case 0: Response.Write "<IMG src=mark0.jpg>"
		case 1: Response.Write "<IMG src=mark1.jpg>"
		case 2: Response.Write "<IMG src=mark2.jpg>"
		case 3: Response.Write "<IMG src=mark3.jpg>"
		case 4: Response.Write "<IMG src=mark4.jpg>"
		case 5: Response.Write "<IMG src=mark5.jpg>"
		case 6: Response.Write "<IMG src=mark6.jpg>"
		case 7: Response.Write "<IMG src=mark7.jpg>"
		case 8: Response.Write "<IMG src=mark8.jpg>"
		case 9: Response.Write "<IMG src=mark9.jpg>"
	end select
next 
%>
	<TR>
		<TD>
            <P align=right><FONT color=mediumslateblue 
            face=""><STRONG>目前站上人数</STRONG></FONT></P>
        <TD>
            <%
tempcounter=application("numonline")
for i=1 to 5 
	mstr="00000" & cstr(tempcounter)
	index=mid(mstr,len(mstr)+i-5,1)
	select case index
		case 0: Response.Write "<IMG src=mark0.jpg>"
		case 1: Response.Write "<IMG src=mark1.jpg>"
		case 2: Response.Write "<IMG src=mark2.jpg>"
		case 3: Response.Write "<IMG src=mark3.jpg>"
		case 4: Response.Write "<IMG src=mark4.jpg>"
		case 5: Response.Write "<IMG src=mark5.jpg>"
		case 6: Response.Write "<IMG src=mark6.jpg>"
		case 7: Response.Write "<IMG src=mark7.jpg>"
		case 8: Response.Write "<IMG src=mark8.jpg>"
		case 9: Response.Write "<IMG src=mark9.jpg>"
	end select
next 
%></TD>
        </TR></TABLE>
</P>
</BODY>
</HTML>

⌨️ 快捷键说明

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