sysinfo.ascx

银行自动取款的管理系统

<%@ Control Language="vb" Debug="true" AutoEventWireup="false"%>
<%@ Import Namespace="System.Data" %>
<%
  Dim homepage as string,log as string,email as string
  homepage=ConfigurationSettings.appSettings("首页地址")
  IF Session("name")="" THEN
	log="管理员登录"
  ELSE
	log="管理员退出"
  END IF
  email=ConfigurationSettings.appSettings("信箱")
%>
<TABLE id="Table1" cellSpacing="0" cellPadding="0" width="168" border="0">
	<TR>
		<TD><IMG src="images\bar8.JPG"></TD>
	</TR>
	<TR>
		<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">
			<IMG height="15" src="images\homepage.gif"> <a title="返回站点首页" href="<%=homepage%>">首  页</a><BR>
			<IMG src="images\write.gif" width="15"> <A title="签写新的留言" href="write.aspx">留  言</A><BR>
			<IMG height="15" src="images\log.gif" width="15">&nbsp;<A title="<%=log%>" href="log.aspx" ><%=log%></A>
			<br>
			<IMG height="15" src="images\system.gif" width="15">
			<%
				IF Session("name")<>"" THEN
					Response.write("<a href=setup.aspx title=系统环境变量设置>系统环境设置</a>")
				ELSE
					Response.write("系统环境设置")
				END IF
			%>
			<br>
			<IMG height="15" src="images\css.gif" width="15">
			<%
				IF Session("name")<>"" THEN
					Response.write("<a href=css.aspx title=在线修改CSS样式表>CSS样式设置</a>")
				ELSE
					Response.write("CSS样式设置")
				END IF
				Dim ds As DataSet,i As Integer
				ds=New DataSet
				Try
				ds.ReadXml(Server.MapPath("list.xml"))
				For i = 0 To ds.Tables(0).Rows.Count-1
					Response.write("<br><IMG height=15 src="+ds.Tables(0).Rows(i)(0)+" width=15>&nbsp;")
					Response.write("<a href="+ds.Tables(0).Rows(i)(2)+" title="+ds.Tables(0).Rows(i)(3)+">"+ds.Tables(0).Rows(i)(1)+"</a>")
				Next
				Catch
				End Try
				ds.Reset()
			%>
		</TD>
	</TR>
	<TR>
		<TD height="20"></TD>
	</TR>
	<TR>
		<TD style="HEIGHT: 18px"><IMG alt="" src="images\bar10.JPG" align="absMiddle"></TD>
	</TR>
	<TR>
		<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">
			<P><IMG src="images\info.gif">&nbsp;留言簿信息<BR>
				<BR>
				<% 
        ds.ReadXml(Server.MapPath("data/count.xml"))
        Response.write("&nbsp;&nbsp;今日留言：" + ds.Tables(0).Rows(0)(0)+"<br>")
        Response.write("&nbsp;&nbsp;今日来宾：" + ds.Tables(0).Rows(0)(1)+"<br>")
        Response.write("&nbsp;&nbsp;留言总数：" + ds.Tables(0).Rows(0)(2)+"<br>")
        Response.write("&nbsp;&nbsp;来宾总数：" + ds.Tables(0).Rows(0)(3)+"<br>")
        ds.Clear()
        ds.Dispose()
					%>
				<BR>
				<IMG src="images\user.gif">&nbsp;站长：<%=ConfigurationSettings.appSettings("站长")%><BR>
				<IMG src="images\email.gif">&nbsp;信箱：<a href="mailto:<%=email%>" title="信箱地址：<%=email%>"><%=email%></a></P>
		</TD>
	</TR>
</TABLE>