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("信箱")
%>
<%
				
				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()
			%>
<TABLE id="Table2" cellSpacing="1" cellPadding="1" width="100%" border="1">
	<TR>
		<TD><IMG height="15" src="images\homepage.gif"> <a title=返回站点首页 
      href="<%=homepage%>">首 页</a></TD>
		<TD><IMG src="images\write.gif" width="15"> <A title="签写新的留言" href="write.aspx">留 言</A></TD>
		<TD><IMG height="15" src="images\log.gif" width="15">&nbsp;<A title="<%=log%>" href="log.aspx" ><%=log%></A></TD>
		<TD><% 
        ds.ReadXml(Server.MapPath("data/count.xml"))
        Response.write("&nbsp;&nbsp;今日留言：" + ds.Tables(0).Rows(0)(0)+"<&nbsp>")
        Response.write("&nbsp;&nbsp;今日来宾：" + ds.Tables(0).Rows(0)(1)+"<&nbsp>")
        Response.write("&nbsp;&nbsp;留言总数：" + ds.Tables(0).Rows(0)(2)+"<&nbsp>")
        Response.write("&nbsp;&nbsp;来宾总数：" + ds.Tables(0).Rows(0)(3)+"<&nbsp>")
        ds.Clear()
        ds.Dispose()
					%></TD>
		<TD><IMG src="images\user.gif">&nbsp;站长：<%=ConfigurationSettings.appSettings("站长")%></TD>
		<TD><IMG src="images\email.gif">&nbsp;信箱：<A title="信箱地址：<%=email%>" href="mailto:<%=email%>" ><%=email%></A></TD>
	</TR>
</TABLE>