default.aspx

互动留言簿.NET2.0

<% @ Page language="vb" %>
<%--设置页面脚本超时，请不要删除，防止程序产生错误引起服务器崩溃--%>
<%server.scripttimeout=120%>
<%--导入名称空间--%>
<% @ Import Namespace="System.Data" %>
<% @ Import Namespace="System.Data.OleDb" %>
<% @ Import Namespace="System.Xml" %>
<% @ Import Namespace="System.IO" %>
<%--
版权信息
程序名称：互动.NET单用户留言簿
程序版本: Ver2.0
数据库：SQL2000
开发体系：Asp.Net
开发语言：Vb.Net
开发工具：EditPlus2.11,Dreamweaver MX
开发作者：小宝.NET
作者Email:[e-mail]
作者主页：http://aspx.chinagz.net 新开的ASP.NET专题站点,资源多多呵,大家赏脸去看一下呵:)
MSN:[e-mail]
备注：这个已经最终版了,以后本人将不再开发后续版本了,但会继续开发多用户版的互动.NET留言簿以及C#开发的下载系统及文章管理系统,欢迎各位高手继续开发及改善这个单用户留言簿,本人只有唯一的要求就是这个留言簿的修改版必须提供免费下载就OK了!
--%>
<Script Runat="Server">
'初始化变量
Dim myconn As OleDbConnection
Dim RecordCount,PageCount,CurrentPage,i As integer
Dim codemessage As String
dim ds as new dataset()
Dim pagesize as integer

'以下是子程序，用以处理各种事件。
Public Sub Page_Load(obj As object,e As eventargs)
'连接数据库
pagesize = ConfigurationSettings.AppSettings("每页显示留言数")
myconn= New OleDbConnection(ConfigurationSettings.AppSettings("数据库路径"))
myconn.open()
'如果有提交信号,执行添加留言代码。
if request.querystring("post") = "true" then
dim content as string=replace(request.form("content"),"<","&lt;")
content=replace(content,">","&gt;")
content=replace(content,chr(13),"<br>")
content=Trim(content)
content=replace(content," ","&nbsp;")
content=replace(content,chr(39),"''")
If content="" Then content=":( 这家伙很懒，没有发表任何内容"
Dim caption As String=replace(request.form("caption"),chr(39),"''")
caption=Trim(caption)
If caption="" Then caption="无主题"
Dim username=replace(request.form("username"),chr(39),"''")
username=Trim(username)
If username="" Then username="佚名"
Dim updatecomm As New oledbcommand("insert into guest (name,sex,qq,email,homepage,emot,content,face,caption,ip) values ('"& username &"','"& request.form("sex") &"','"& request.form("qq") &"','"& replace(request.form("email"),chr(39),"''") &"','"& replace(request.form("homepage"),chr(39),"''") &"','"& request.form("emot") &"','"& content &"','"& request.form("face") &"','"& caption &"','"& request.servervariables("remote_addr") &"')",myconn)
   updatecomm.executenonquery()
   myconn.close()
   myconn.dispose()
   response.redirect("default.aspx")
end if
'如果有删除信号，执行删除代码。
if request.querystring("del")<>"" and session("isadmin")<>"" then 
   Dim delcomm As New oledbcommand("delete from guest where id="&request.querystring("del"),myconn)
   delcomm.executenonquery()
   myconn.close()
   myconn.dispose()
   response.redirect("default.aspx")
end if

If Not Ispostback then
'若页面未被提交，初始化留言簿设置。
systemhome.text=ConfigurationSettings.AppSettings("网站名称")
systemhome1.text=ConfigurationSettings.AppSettings("网站名称")
systemname.text=ConfigurationSettings.AppSettings("管理员")
link.href="mailto:"+ConfigurationSettings.AppSettings("管理员邮箱")
link1.href=ConfigurationSettings.AppSettings("网站地址")
linkhome.navigateurl=ConfigurationSettings.AppSettings("网站地址")
logo.imageurl=ConfigurationSettings.AppSettings("留言簿logo")
'如果是管理员,执行代码
if session("isadmin")<>"" then
goadmin.attributes("onclick")="MM_showHideLayers('setup','','show','postcontent','','hide','admin','','hide')"
setimage.imageurl="Images/button/setup.gif"
setimage.alternatetext="管理员高级设置"
Dim strfpath As string=server.mappath("web.config")
ds.readxml(strfpath)
setname.text=ds.Tables(1).Rows(0)(1)
sethomepage.text=ds.Tables(1).Rows(1)(1)
seturl.text=ds.Tables(1).Rows(2)(1)
setemail.text=ds.Tables(1).Rows(3)(1)
setpage.text=ds.Tables(1).Rows(5)(1)
setlogo.text=ds.Tables(1).Rows(6)(1)
setbgcolor.text=replace(ds.Tables(1).Rows(7)(1),"#","")
setlinebg.text=replace(ds.Tables(1).Rows(8)(1),"#","")
setline.text=replace(ds.Tables(1).Rows(9)(1),"#","")
setrebg.text=replace(ds.Tables(1).Rows(10)(1),"#","")
setlink.text=replace(ds.Tables(1).Rows(11)(1),"#","")
settext.text=replace(ds.Tables(1).Rows(12)(1),"#","")
setretext.text=replace(ds.Tables(1).Rows(13)(1),"#","")
setadmin.text=ds.Tables(1).Rows(14)(1)
setpassword.text=ds.Tables(1).Rows(15)(1)
mailserver.text=ds.Tables(1).Rows(16)(1)
replymail.text=ds.Tables(1).Rows(17)(1)

Dim j As integer 
For j = 0 To ipinfo.Items.Count - 1
If ipinfo.Items(j).value=ds.Tables(1).Rows(18)(1) Then
ipinfo.Items(j).selected=true
End If 
Next

ds.clear()
Else 
goadmin.attributes("onclick")="MM_showHideLayers('admin','','show','postcontent','','hide')"
setimage.imageurl="Images/button/button2.gif"
setimage.alternatetext="管理登录"
end if
'分页设置
viewstate("state")="all"
CurrentPage=0
viewstate("pageindex")=0

Dim intcount
Dim mycomm As New oledbcommand("select count(*) as rs from guest",myconn)
Dim dr As oledbdatareader = mycomm.executereader()
If dr.read() then
intcount=dr("rs")
else
intcount=0
End if
dr.close()
'计算共有多少条记录
recordcount = intcount
lblRecordCount.text=recordcount
'计算共有多少页
if recordcount mod pagesize=0 then
PageCount = recordcount\PageSize 
else
PageCount = recordcount\PageSize +1
end if
lblpagecount.text=pagecount.tostring()
viewstate("pagecount")=pagecount
DbListBind()
End If 
'初始化结束
End Sub 

Public Sub DbListBind()
dim startindex As integer
'导入数据起始地址
StartIndex = CurrentPage*PageSize
Dim strSel As string = "select * from guest order by redate desc"
Dim MyAdapter As New OleDbDataAdapter(strSel,myconn)
MyAdapter.Fill(ds,startindex,PageSize,"guest")

lbnnextpage.enabled=true
lbnprevpage.enabled=true
lbnnextpage.imageurl="images/button/down.gif"
lbnprevpage.imageurl="images/button/up.gif"
If currentpage>=pagecount-1 Then 
lbnnextpage.enabled=false
lbnnextpage.imageurl="images/button/down0.gif"
End If 
If currentpage=0 Then 
lbnprevpage.enabled=false
lbnprevpage.imageurl="images/button/up0.gif"
End If 
lblcurrentpage.text=currentpage+1
End Sub

Public Sub onclick(obj As object,e As commandeventargs)'按键触发的事件
currentpage=viewstate("pageindex")
pagecount=viewstate("pagecount")
Dim cmd As string=e.commandname
Select Case cmd
      Case "next"
           If currentpage<pagecount-1 Then currentpage=currentpage+1
      Case "prev"
           If currentpage>0 Then currentpage=currentpage-1
End Select 
viewstate("pageindex")=currentpage
If viewstate("state")="all" Then 
DbListBind()
Else
DBListBindSearch()
End If  
End Sub

Public Sub GoToSearch(obj As object,e As eventargs)'处理搜索事件
Dim searchkey As String =replace(search.text,chr(39),"''")
Dim searchcount As integer
viewstate("state")=searchkey
CurrentPage=0
viewstate("pageindex")=0
Dim mycomm As New oledbcommand("select count(*) as rs1 from guest where name like '%"& searchkey &"%' or caption like '%"& searchkey &"%' or content like '%"& searchkey &"%' or reply like '%"& searchkey &"%'",myconn)
Dim dr1 As oledbdatareader = mycomm.executereader()
If dr1.read() then
searchcount=dr1("rs1")
else
searchcount=0
End if
dr1.close()

'计算搜索共有多少条符合记录
recordcount = searchcount
lblRecordCount.text=recordcount
'计算符合的记录共有多少页
if recordcount mod pagesize=0 then
PageCount = recordcount\PageSize 
else
PageCount = recordcount\PageSize +1
end if
lblpagecount.text=pagecount.tostring()
viewstate("pagecount")=pagecount
'数据邦定
DBListBindSearch()
End Sub 

Public Sub DBListBindSearch()
dim startindex As integer
Dim searchkey As String =replace(search.text,chr(39),"''")
StartIndex = CurrentPage*PageSize
Dim strSel As string = "select * from guest where  name like '%"& searchkey &"%' or caption like '%"& searchkey &"%' or content like '%"& searchkey &"%' or reply like '%"& searchkey &"%' order by id desc"
Dim MyAdapter As New OleDbDataAdapter(strSel,myconn)
MyAdapter.Fill(ds,startindex,PageSize,"guest")

lbnnextpage.enabled=true
lbnprevpage.enabled=true
lbnnextpage.imageurl="images/button/down.gif"
lbnprevpage.imageurl="images/button/up.gif"
If currentpage>=pagecount-1 Then 
lbnnextpage.enabled=false
lbnnextpage.imageurl="images/button/down0.gif"
End If 
If currentpage=0 Then 
lbnprevpage.enabled=false
lbnprevpage.imageurl="images/button/up0.gif"
End If 
lblcurrentpage.text=currentpage+1
End Sub 

Public Sub GoToPage(obj As object,e As eventargs)'处理页面跳转事件
Dim number As integer =CheckNum(lblcurrentpage.text)
If number<=viewstate("pagecount") Then 
       CurrentPage=number-1
       viewstate("pageindex")=currentpage
       pagecount=viewstate("pagecount")
       If viewstate("state")="all" Then 
       DbListBind()
       Else
       DBListBindSearch()
       End If 
else
       CurrentPage=0
       viewstate("pageindex")=currentpage
       pagecount=viewstate("pagecount")
       If viewstate("state")="all" Then