1<%...@ Control Language="vb" Debug="true" AutoEventWireup="false"%>
 2<%...@ Import Namespace="System.Data" %>
 3<%...
 4  Dim homepage as string,log as string,email as string
 5  homepage=ConfigurationSettings.appSettings("首页地址")
 6  IF Session("name")="" THEN
 7    log="管理员登录"
 8  ELSE
 9    log="管理员退出"
10  END IF
11  email=ConfigurationSettings.appSettings("信箱")
12%>
13<TABLE id="Table1" cellSpacing="0" cellPadding="0" width="168" border="0">
14    <TR>
15        <TD><IMG src="images\bar8.JPG"></TD>
16    </TR>
17    <TR>
18        <TD style="PADDING-RIGHT: 4px; BACKGROUND-POSITION: center top; PADDING-LEFT: 4px; BACKGROUND-ATTACHMENT: fixed; BACKGROUND-IMAGE: url(images\bar9.JPG); PADDING-BOTTOM: 4px; PADDING-TOP: 4px; BACKGROUND-REPEAT: repeat-y">
19            <IMG height="15" src="images\homepage.gif"> <a title="返回站点首页" href="<%=homepage%>">首  页</a><BR>
20            <IMG src="images\write.gif" width="15"> <A title="签写新的留言" href="write.aspx">留  言</A><BR>
21            <IMG height="15" src="images\log.gif" width="15">&nbsp;<A title="<%=log%>" href="log.aspx" ><%=log%></A>
22            <br>
23            <IMG height="15" src="images\system.gif" width="15">
24            <%...
25                IF Session("name")<>"" THEN
26                    Response.write("<a href=setup.aspx title=系统环境变量设置>系统环境设置</a>")
27                ELSE
28                    Response.write("系统环境设置")
29                END IF
30            %>
31            <br>
32            <IMG height="15" src="images\css.gif" width="15">
33            <%...
34                IF Session("name")<>"" THEN
35                    Response.write("<a href=css.aspx title=在线修改CSS样式表>CSS样式设置</a>")
36                ELSE
37                    Response.write("CSS样式设置")
38                END IF
39                Dim ds As DataSet,i As Integer
40                ds=New DataSet
41                Try
42                ds.ReadXml(Server.MapPath("list.xml"))
43                For i = 0 To ds.Tables(0).Rows.Count-1
44                    Response.write("<br><IMG height=15 src="+ds.Tables(0).Rows(i)(0)+" width=15>&nbsp;")
45                    Response.write("<a href="+ds.Tables(0).Rows(i)(2)+" title="+ds.Tables(0).Rows(i)(3)+">"+ds.Tables(0).Rows(i)(1)+"</a>")
46                Next
47                Catch
48                End Try
49                ds.Reset()
50            %>
51        </TD>
52    </TR>
53    <TR>
54        <TD height="20"></TD>
55    </TR>
56    <TR>
57        <TD style="HEIGHT: 18px"><IMG alt="" src="images\bar10.JPG" align="absMiddle"></TD>
58    </TR>
59    <TR>
60        <TD style="PADDING-RIGHT: 4px; BACKGROUND-POSITION: center top; PADDING-LEFT: 4px; BACKGROUND-ATTACHMENT: fixed; BACKGROUND-IMAGE: url(images\bar9.JPG); PADDING-BOTTOM: 4px; PADDING-TOP: 4px; BACKGROUND-REPEAT: repeat-y">
61            <P><IMG src="images\info.gif">&nbsp;留言簿信息<BR>
62                <BR>
63                <%... 
64        ds.ReadXml(Server.MapPath("data/count.xml"))
65        Response.write("&nbsp;&nbsp;今日留言：" + ds.Tables(0).Rows(0)(0)+"<br>")
66        Response.write("&nbsp;&nbsp;今日来宾：" + ds.Tables(0).Rows(0)(1)+"<br>")
67        Response.write("&nbsp;&nbsp;留言总数：" + ds.Tables(0).Rows(0)(2)+"<br>")
68        Response.write("&nbsp;&nbsp;来宾总数：" + ds.Tables(0).Rows(0)(3)+"<br>")
69        ds.Clear()
70        ds.Dispose()
71                    %>
72                <BR>
73                <IMG src="images\user.gif">&nbsp;站长：<%=ConfigurationSettings.appSettings("站长")%><BR>
74                <IMG src="images\email.gif">&nbsp;信箱：<a href="mailto:<%=email%>" title="信箱地址：<%=email%>"><%=email%></a></P>
75        </TD>
76    </TR>
77</TABLE>
78