温馨提示:代码在线浏览功能只能做为源码浏览参考,如果想更进一步了解该代码请下载:晶晶Vb.net留言板源码
当前文件:
VbGuestBook/sysInfo.ascx,打开代码结构图
VbGuestBook/sysInfo.ascx,打开代码结构图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"> <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> ") 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"> 留言簿信息<BR> 62
<BR> 63
<% 64
ds.ReadXml(Server.MapPath("data/count.xml")) 65
Response.write(" 今日留言:" + ds.Tables(0).Rows(0)(0)+"<br>") 66
Response.write(" 今日来宾:" + ds.Tables(0).Rows(0)(1)+"<br>") 67
Response.write(" 留言总数:" + ds.Tables(0).Rows(0)(2)+"<br>") 68
Response.write(" 来宾总数:" + ds.Tables(0).Rows(0)(3)+"<br>") 69
ds.Clear() 70
ds.Dispose() 71
%> 72
<BR> 73
<IMG src="images\user.gif"> 站长:<%=ConfigurationSettings.appSettings("站长")%><BR> 74
<IMG src="images\email.gif"> 信箱:<a href="mailto:<%=email%>" title="信箱地址:<%=email%>"><%=email%></a></P> 75
</TD> 76
</TR> 77
</TABLE> 78



email
