📄 index.asp
字号:
<!--#include file="top.asp"-->
<%
Sub IncrementCounter()
Set fs = Server.CreateObject("Scripting.FileSystemObject")
counter_file = Server.MapPath("counter.txt")
Set txt = fs.OpenTextFile( counter_file )
Application("counter") = txt.ReadLine
txt.Close
Application("counter") = Application("counter") + 1
Set txt = fs.CreateTextFile( counter_file, True )
txt.WriteLine(Application("counter"))
txt.Close
End Sub
Application.Lock
IncrementCounter ' 将访问计数器加一,并写入到文件中
Application.UnLock
%>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff border=0>
<TR vAlign=top>
<TD width=180>
<TABLE height=62 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="3%"><img src="images/left_01.gif" width="27" height="23"></td>
<td width="94%" background="images/left_02.gif">会员登陆</td>
<td width="3%"><img src="images/left_03.gif" width="58" height="23"></td>
</tr>
</table></TD>
</TR>
<TR>
<TD align=middle width="180" background=images/m-b.gif bgColor=#ffffff height=20>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<% if session("uid")="" then %>
<form name="userLogin" action="login.asp" method="post">
<TR height=30>
<TD>用户名称：</TD>
<TD><INPUT name=uid id="uid" size=14 maxLength=20></TD>
</TR>
<TR height=26>
<TD>登陆密码：</TD>
<TD><INPUT
name=pwd type=password id="pwd" size=14 maxLength=20></TD>
</TR>
<TR height=26>
<TD align=middle colSpan=2> <TABLE cellSpacing=0 cellPadding=0 border=0>
<TR vAlign=bottom align=middle>
<TD><A href="zc.asp" target="_blank">免费注册</A></TD>
<TD width=60> <A href="forgotpwd.asp?gn=forgotpwd" target="_blank">忘记密码</A></TD>
<TD><INPUT name="submit" type=submit value="登 录"></TD>
</TR>
</TABLE></TD>
</TR>
</FORM>
</TABLE>
<TABLE width="178" border=0 cellPadding=0 cellSpacing=0>
<% else %><TR height=30>
<TD align=middle>你好，<B><FONT class=blue>
<% =session("uid") %>
</FONT></B></TD>
</TR>
<TR>
<TD align=middle>你现在已登陆 <font color="#FF0000">
<%if session("VIP")=999 then
response.Write"管理员"
elseif session("VIP")=888 then
response.Write"VIP会员"
elseif session("VIP")=777 then
response.Write"注册会员"
end if %></font> 模式</TD>
</TR>
<TR height=30>
<% uid=session("uid")
set message=conn.execute("Select count(*) as message1 From message where jsr='"&uid&"' and ok='1'") %>
<TD height="30" align=middle><A href="user.asp?gn=message">
<IMG src="images/new01.gif" align=absMiddle border=0 width="16" height="16">
<% if message("message1")="0" then %> 我的短信箱 （<FONT class=gray>0 新</FONT>）
<% else %>
我的短信箱 （<FONT class=red> <% =message("message1") %> 新</FONT>）
<embed src="images/mail.wav" width="0" height="0"></embed>
<% end if %></A>
</TD></TR>
<TR>
<TD align=middle><a href="logout.asp">退出登陆</A> ┋ <A href="user.asp?gn=ziliao">用户中心</A></TD>
</TR>
<% end if %>
</TABLE></TD></TR>
<TR>
<TD height=19 vAlign=center background="images/left_04.gif" bgColor=#ffffff> </TD>
</TR>
</TABLE>
<TABLE height=62 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="3%"><img src="images/left_01.gif" width="27" height="23"></td>
<td width="94%" background="images/left_02.gif">数据统计</td>
<td width="3%"><img src="images/left_03.gif" width="58" height="23"></td>
</tr>
</table></TD>
</TR>
<TR>
<TD align=middle width="180" background=images/m-b.gif bgColor=#ffffff height=20>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="10%"><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
<% set house=conn.execute("Select count(*) as house1 From house") %>
<td width="90%">房产信息：<font color="#FF9933"><% =house("house1") %></font> 条
</td>
</tr>
<tr>
<td><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
<% set news=conn.execute("Select count(*) as news1 From news") %>
<td>新闻总数：<font color="#FF9933"><% =news("news1") %></font> 条</td>
</tr>
<tr>
<td><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
<% set puser=conn.execute("Select count(*) as puser1 From puser") %>
<td>注册会员：<font color="#FF9933"><% =puser("puser1") %></font> 人</td>
</tr>
<tr>
<td><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
<%set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select top 1 * from puser order by id desc"
rs.Open rs.Source,conn,1,1
%>
<td>最新注册：<font color="#FF9933"><a href="L_user.asp?pname=<% =rs("uid") %>"><%=rs("uid")%></a></font></td>
</tr>
<tr>
<td><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
<td>总访问量：<font color="#FF9933"><% =application("counter") %></font></td>
</tr>
</table></TD>
</TR>
<TR>
<TD height=19 vAlign=center background="images/left_04.gif" bgColor=#ffffff> </TD>
</TR>
</TABLE>
<!-- #include file="search01.asp"-->
<TABLE height=62 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="3%"><img src="images/left_01.gif" width="27" height="23"></td>
<td width="94%" background="images/left_02.gif">热点新闻</td>
<td width="3%"><img src="images/left_03.gif" width="58" height="23"></td>
</tr>
</table></TD>
</TR>
<TR>
<TD align=middle width="180" background=images/m-b.gif bgColor=#ffffff height=20>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<% set rsTOP=server.createobject("adodb.recordset")
sqlTOP="select top 10 * from news where mytype='热点新闻' order by lls desc"
rsTOP.open sqlTOP,conn,3,3
for i=1 to 10 %>
<tr>
<td width="10%"><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
<td width="90%"><a title="<% =left(rsTOP("nr"),15) %>..." href=open.asp?xiangxi=<% =rsTOP("id") %>><% =left(rsTOP("bt"),9) %><% if len(rsTOP("bt")) > 10 then
response.Write"..."
end if%></a>
</td>
</tr>
<% rsTOP.movenext
if rsTOP.eof then exit for
next
rsTOP.close %>
</table></TD>
</TR>
<TR>
<TD height=19 vAlign=center background="images/left_04.gif" bgColor=#ffffff> </TD>
</TR>
</TABLE>
<TABLE height=62 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="3%"><img src="images/left_01.gif" width="27" height="23"></td>
<td width="94%" background="images/left_02.gif"><a href="friends.asp?gn=more" target="_blank">友情连接</a></td>
<td width="3%"><img src="images/left_03.gif" width="58" height="23"></td>
</tr>
</table></TD>
</TR>
<TR>
<TD align=middle width="180" background=images/m-b.gif bgColor=#ffffff height=20>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% sqlF="select top 3 * from friends where F_pass='1' order by id desc"
set rsF=conn.execute(sqlF)
if rsF.eof and rsF.bof then
response.Write"目前还没有任何站点加入"
else
while not rsF.eof%>
<tr>
<td><div align="center">
<TABLE height=2 width="100%">
<TR>
<TD></TD>
</TR>
</TABLE>
<a href="<% =rsF("F_addres") %>" target="_blank"><img src="<% =rsF("F_logo")%>" alt="网站名称：<% =rsF("F_name") %><br>网站介绍：<% =rsF("F_readme") %><br>加入日期：<% =rsF("date") %>" name="F" width="88" height="31" border="0"></a>
<TABLE height=2 width="100%">
<TR><TD></TD></TR>
</TABLE>
</div></td>
</tr>
<% rsF.movenext
wend
end if %>
</table></TD>
</TR>
<TR>
<TD height=19 vAlign=top background="images/left_04.gif" bgColor=#ffffff><div align="right"> </div></TD>
</TR>
</TABLE>
</TD>
<TD width=6 bgColor=#ffffff> </TD>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -