📄 default.aspx
字号:
<%@ Import namespace="system.data.oledb" %>
<%@ Import namespace="system.data" %>
<%@ Register TagPrefix="uc1" TagName="copy" Src="copy.ascx" %>
<%@ Register TagPrefix="uc1" TagName="sysInfo" Src="sysInfo.ascx" %>
<%@ Register TagPrefix="uc1" TagName="notice" Src="notice.ascx" %>
<%@ Page Language="vb" AutoEventWireup="false" Debug="false"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>
<%=ConfigurationSettings.appSettings("留言簿名称")%>
</title>
<SCRIPT language="vb" runat="server">
Private Function Address(ByVal IP As String)
If IsNumeric(Left(IP, 2)) = True Then
Dim conn As OleDbConnection, comd As OleDbCommand, dr As OleDbDataReader
Dim str1 As String, str2 As String, str3 As String, str4 As String, num As long
If IP = "127.0.0.1" Then IP = "192.168.0.1"
IF Left(IP,8)="192.168." THEN
Address = "内部局域网"
EXIT Function
END IF
str1 = Left(IP, InStr(IP, ".") - 1)
IP = Mid(IP, InStr(IP, ".") + 1)
str2 = Left(IP, InStr(IP, ".") - 1)
IP = Mid(IP, InStr(IP, ".") + 1)
str3 = Left(IP, InStr(IP, ".") - 1)
str4 = Mid(IP, InStr(IP, ".") + 1)
IF isNumeric(str1)=False or isNumeric(str2)=False or isNumeric(str3)=False or isNumeric(str4)=False THEN
Address = "未知"
EXIT Function
END IF
num = Int(str1) * 256 * 256 * 256 + Int(str2) * 256 * 256 + Int(str3) * 256 + Int(str4) - 1
conn = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath(ConfigurationSettings.AppSettings("数据库")))
comd = New OleDbCommand("Select Top 1 country,city From 鉴定 Where ip1 <=" + num.ToString + " and ip2 >=" + num.ToString, conn)
comd.connection.open()
dr = comd.ExecuteReader
If dr.Read Then
Dim temStr as String
temStr=dr(0) & dr(1)
IF temStr.Length>17 THEN
Address = "<span title=" + temStr + ">" + Left(temStr,15) + "...</span>"
ELSE
Address = temStr
END IF
Else
Address = "亚洲"
End If
dr.Close()
comd.connection.close()
comd.Dispose()
conn.Close()
conn.Dispose()
Else
Address = "未知"
End If
End Function
Private Sub count()
Dim cie As HttpCookie, newguest As Boolean = False
cie = Request.cookies("rwfj")
If cie is nothing Then
newguest = True
Else
If cie("name") <> "guest" Then newguest = True
End If
Dim ds As DataSet
ds = New DataSet()
ds.ReadXml(Server.MapPath("data/count.xml"))
If DateValue(ds.Tables(0).Rows(0)(4)) <> DateValue(Date.Now) Then
ds.Tables(0).Rows(0)(0) = 0
ds.Tables(0).Rows(0)(1) = 0
End If
If newguest = True Then
cie = New HttpCookie("rwfj")
cie.Values.Add("name", "guest")
Response.AppendCookie(cie)
ds.Tables(0).Rows(0)(1) = CInt(ds.Tables(0).Rows(0)(1)) + 1
ds.Tables(0).Rows(0)(3) = CInt(ds.Tables(0).Rows(0)(3)) + 1
End If
ds.Tables(0).Rows(0)(4) = Date.Now
ds.AcceptChanges()
ds.WriteXml(Server.MapPath("data/count.xml"))
ds.Clear()
ds.Dispose()
End Sub
</SCRIPT>
<meta content="Microsoft Visual Studio .NET 7.0" name="GENERATOR">
<meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
<LINK href="Styles.css" type="text/css" rel="stylesheet">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<body topMargin="0">
<table cellSpacing="0" cellPadding="0" width="750" align="center" bgColor="#ffffff" border="0">
<tr>
<td width="963">
<DIV align="center"><uc1:sysinfo id="SysInfo1" runat="server"></uc1:sysinfo></DIV>
</td>
</tr>
<tr>
<td height="336">
<form id="Form1" method="post" runat="server">
<% Call count()
Dim color1 as string,color2 as string,color3 as string,color4 as string,color5 as string
color1=ConfigurationSettings.appSettings("标题")
color2=ConfigurationSettings.appSettings("时间栏")
color3=ConfigurationSettings.appSettings("留言内容")
color4=ConfigurationSettings.appSettings("回复内容")
color5=ConfigurationSettings.appSettings("表格背景")
%>
<TABLE id="Table1" style="MARGIN-TOP: -15px" cellSpacing="1" cellPadding="1" width="100%"
align="left" border="0">
<TR>
<TD colSpan="2"><uc1:notice id="Notice1" runat="server"></uc1:notice></TD>
</TR>
<TR>
<TD vAlign="top" align="center">
<div align="center"><IMG height="31" alt="" src="IMAGES/left.gif" width="163"></div>
</TD>
<TD vAlign="top" align="center"> </TD>
</TR>
<TR>
<TD vAlign="top" align="center" width="24%">
<div align="center"> </div>
</TD>
<TD vAlign="top" align="center" width="76%">
<TABLE id="Table2" cellSpacing="1" cellPadding="1" width="90%" border="0">
<TR>
<TD></TD>
</TR>
<TR>
<TD vAlign="top" align="center">
<%
Dim i As Integer, page As String, pagesize As Integer, nowpage As Integer, AllRecord As Integer
Dim allpage As Integer
i = 0
page = Request.QueryString("page")
If page = "" Or IsNumeric(page) = False Then
nowpage = 1
Else
nowpage = Int(page)
End If
pagesize = ConfigurationSettings.AppSettings("每页留言数量")
Dim conn As OleDbConnection, da As OleDbDataAdapter, ds As DataSet, sql As String
Dim comd As OleDbCommand, dr As OleDbDataReader
sql = "Select Count(*) From 留言"
conn = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath(ConfigurationSettings.AppSettings("数据库")))
comd = New OleDbCommand(sql, conn)
comd.Connection.Open()
dr = comd.ExecuteReader
If dr.Read Then AllRecord = dr(0)
dr.Close()
comd.Connection.Close()
comd.Dispose()
if allrecord=0 THEN
Response.write("<TABLE width=530 border=0><tr><td align=center height=200>当前还没有留言</td></tr></table>")
else
If AllRecord Mod pagesize = 0 Then
allpage = AllRecord \ pagesize
Else
allpage = AllRecord \ pagesize + 1
End If
if nowpage>allpage then nowpage=allpage
sql="Select * From 留言 Order By 时间 DESC"
da = New OleDbDataAdapter(sql, conn)
ds=New dataset
da.Fill(ds, (nowpage - 1) * pagesize, pagesize, "ly")
For i = 0 To ds.Tables(0).Rows.Count-1
Dim temTime as Date,temStr as String,IP as string
temTime=ds.Tables(0).Rows(i)(10)
temStr=Year(temTime).ToString+"年"+Month(temTime).ToString+"月"+Day(temTime).ToString+"日"+Hour(temTime).ToString+"时"+Minute(temTime).ToString+"分"
IF Ucase(ConfigurationSettings.appSettings("允许查看IP"))="NO" AND Session("name")<>ConfigurationSettings.appSettings("站长") THEN
IP="(已设置保密)"
ELSE
IP=ds.Tables(0).Rows(i)(8)+"〖"+Address(ds.Tables(0).Rows(i)(8))+"〗"
END IF
%>
<TABLE id=Table3 style="MARGIN-BOTTOM: 5px" cellSpacing=0
cellPadding=1 width=530 bgColor="<%=color5%>" border=0
>
<TR>
<TD style="BACKGROUND-POSITION: center bottom; FONT-SIZE: 10pt; BACKGROUND-ATTACHMENT: scroll; BACKGROUND-IMAGE: url(images\bar11.JPG); BACKGROUND-REPEAT: no-repeat"
width="100%" colSpan="3" height="32"> <STRONG><FONT color="<%=color1%>"
>
<%=Cstr((nowpage - 1) * pagesize+i+1)+"."+ds.Tables(0).Rows(i)(1)%>
</FONT></STRONG>
</TD>
</TR>
<TR>
<TD style="BACKGROUND-POSITION: center top; BACKGROUND-ATTACHMENT: fixed; BACKGROUND-IMAGE: url(images\bar2.JPG); BACKGROUND-REPEAT: repeat-y"
width="3"></TD>
<TD style="PADDING-LEFT: 2px" width="524">
<TABLE id="Table4" style="MARGIN-TOP: -1px; MARGIN-LEFT: -1px" cellSpacing="0" cellPadding="0"
width="100%" border="0">
<TR>
<TD style="BACKGROUND-POSITION: center top; PADDING-LEFT: 2px; BACKGROUND-ATTACHMENT: fixed; BACKGROUND-IMAGE: url(images\bar4.JPG); BACKGROUND-REPEAT: repeat-x"
vAlign="top" colSpan="2" height="18"><FONT color="<%=color2%>"
>发表时间：<%=temStr%> IP：<%=IP%></FONT></TD>
</TR>
<TR>
<TD align="center" width="116" rowSpan="2"><IMG height=90 src="face\<%=ds.Tables(0).Rows(i)(11)%>" width=90 ><BR>
<BR>
<TABLE id="Table5" cellSpacing="1" cellPadding="1" width="100%" border="0">
<TR>
<TD style="FILTER: glow(color=#9898BA,strength=3)" align="center"><FONT color="#990000"><FONT size="2"><%=ds.Tables(0).Rows(i)(3)%></FONT><BR>
</FONT>(<%=ds.Tables(0).Rows(i)(4)%>
)</TD>
</TR>
</TABLE>
</TD>
<TD style="PADDING-RIGHT: 3px; PADDING-LEFT: 3px; PADDING-BOTTOM: 3px; PADDING-TOP: 3px; HEIGHT: 71px"
width="408"><FONT
color="<%=color3%>"><%=ds.Tables(0).Rows(i)(2)%></FONT>
<% IF ds.Tables(0).Rows(i)(9).tostring<>"" THEN %>
<br>
<FONT color="<%=color4%>"
>------ 站 长 回 复 ------<BR>
<%=ds.Tables(0).Rows(i)(9)%>
</FONT>
<% END IF %>
</TD>
</TR>
<TR>
<td style="PADDING-RIGHT: 2px; PADDING-LEFT: 2px; PADDING-BOTTOM: 1px; PADDING-TOP: 1px"
width="408"><IMG style="MARGIN-BOTTOM: 3px" height="2" alt="" src="images\bar8.gif" width="350"><BR>
<IMG alt="" src="images\homepage.gif" width="15">
<%
IF ds.Tables(0).Rows(i)(5)<>"(保密)" THEN
Response.write("<a title=浏览该留言者的主页 href=")
IF Left(Lcase(ds.Tables(0).Rows(i)(5)),7)<>"http://" THEN Response.write("http://")
Response.write(ds.Tables(0).Rows(i)(5)+" target=_blank>主页</a>")
ELSE
Response.write("主页")
END IF
%>
<IMG alt="" src="images\qq.gif" width="15">
<%
IF ds.Tables(0).Rows(i)(7)<>"(保密)" THEN
Response.write("<a title=查看该留言者的QQ信息 href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln="+ds.Tables(0).Rows(i)(7)+" target=_blank>QQ</a>")
ELSE
Response.write("QQ")
END IF
%>
<IMG alt="" src="images\email.gif" width="15">
<%
IF ds.Tables(0).Rows(i)(6)<>"(保密)" THEN
Response.write("<a title=给该留言者发邮件 href=mailto:"+ds.Tables(0).Rows(i)(6)+" target=_blank>信箱</a>")
ELSE
Response.write("信箱")
END IF
%>
<IMG alt="" src="images\write.gif" width="15">
<%
IF Session("name")=ConfigurationSettings.appSettings("站长") THEN
Response.write("<a href=reply.aspx?ID="+ds.Tables(0).Rows(i)(0).ToString+"&page="+nowpage.ToString+">回复</a>")
ELSE
Response.write("回复")
END IF
%>
<IMG alt="" src="images\del.gif">
<%
IF Session("name")=ConfigurationSettings.appSettings("站长") THEN
Response.write("<a href=del.aspx?ID="+ds.Tables(0).Rows(i)(0).ToString+"&page="+nowpage.ToString+">删除</a>")
ELSE
Response.write("删除")
END IF
%>
</td>
</TR>
</TABLE>
</TD>
<TD style="BACKGROUND-POSITION: center top; BACKGROUND-ATTACHMENT: fixed; BACKGROUND-IMAGE: url(images\bar3.JPG); BACKGROUND-REPEAT: repeat-y"
width="3"></TD>
</TR>
<TR>
<TD style="BACKGROUND-POSITION: right top; BACKGROUND-ATTACHMENT: fixed; BACKGROUND-IMAGE: url(images\bar5.JPG); BACKGROUND-REPEAT: no-repeat"
width="3" height="8"></TD>
<TD style="BACKGROUND-POSITION: center center; BACKGROUND-ATTACHMENT: fixed; BACKGROUND-IMAGE: url(images\bar7.JPG); BACKGROUND-REPEAT: repeat-x"
width="524" colSpan="1" height="8"></TD>
<TD style="BACKGROUND-POSITION: right top; BACKGROUND-ATTACHMENT: fixed; BACKGROUND-IMAGE: url(images\bar6.JPG); BACKGROUND-REPEAT: no-repeat"
width="3" height="8"></TD>
</TR>
</TABLE>
<%
Next
ds.clear
ds.dispose
da.dispose
END IF
conn.dispose
%>
</TD>
</TR>
<TR>
<TD>
<P align="center"><STRONG>每页显示<%=ConfigurationSettings.AppSettings("每页留言数量")%>
条留言 当前页<%=nowpage%>
/<%=allpage%>
<%
IF nowpage>1 THEN
Response.write("[<a href=default.aspx?page=1>第一页</a>][<a href=default.aspx?page="+Cstr(nowpage-1)+">上一页</a>]")
ELSE
Response.write("[第一页][上一页]")
END IF
IF nowpage<allpage THEN
Response.write("[<a href=default.aspx?page="+Cstr(nowpage+1)+">下一页</a>][<a href=default.aspx?page="+allpage.ToString+">最后页</a>]")
ELSE
Response.write("[下一页][最后页]")
END IF
%>
</STRONG>
</P>
</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD colSpan="2" height="37"><uc1:copy id="Copy1" runat="server"></uc1:copy></TD>
</TR>
</TABLE>
</form>
</td>
</tr>
</table>
</body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -