<%--导入名称空间--%> <% @ Import Namespace="System.Data" %> <% @ Import Namespace="System.Data.OleDb" %> <% @ Import Namespace="System.Xml" %> <% @ Import Namespace="System.IO" %> <%server.scripttimeout=300 '设置页面脚本超时，请不要删除，防止程序产生错误引起服务器崩溃%> <%-- 版权信息 程序名称：互动.NET单用户留言簿 程序版本: Ver1.5 数据库：ACCESS2000 开发体系：Asp.Net 开发语言：Vb.Net 开发工具：EditPlus2.11,Vs.Net 开发作者：小宝.NET 作者Email:webmaster@chinagz.net 作者主页：http://asp.chinagz.net MSN:webmaster@chinagz.net 备注：您可以免费使用本留言簿，也可任意对本留言簿作出修改，但请修改后Email原作者一份以作相互学习。 --%> <%=ConfigurationSettings.AppSettings("网站名称")%>留言簿

返回首页 发表留言
<%If request.querystring("replyid")<>"" and session("isadmin")<>"" Then %>
<%if request.querystring("caption")<>"" then %> [回复主题]：<%=request.querystring("caption")%> <%else%> [编辑回复] <%end if%>

留言回复支持HTML贴图及URL自动转换
<%if request.querystring("caption")<>"" then %> <% else gettext() %> <%end if%>

 
<%else%>
<% Try For i=0 to ds.Tables("guest").Rows.Count-1 %>
<%=server.htmlencode(ds.Tables("guest").Rows(i)(1))%>
" width="80" height="90" align="middle">

★ <%=ds.Tables("guest").Rows(i)(2)%> ★
主题:<%=server.htmlencode(ds.Tables("guest").Rows(i)(7))%>
  发表时间[北京时间]:<%=ds.Tables("guest").Rows(i)(9)%>
.gif" width="16" height="16">

<%=autochange(ds.Tables("guest").Rows(i)(8))%>



<%if not ISDBNull(ds.Tables("guest").Rows(i)(11)) then%>
站长回复:
    <%=autochange(ds.Tables("guest").Rows(i)(11))%>
回复于: <%=ds.Tables("guest").Rows(i)(12)%>
<%end if%>

" target="_blank"><%=ds.Tables(" border="0">  " target="_blank">访客IP:<%=f_IP(ds.Tables(" height="16" border="0">  " target="_blank"><%=ds.Tables(" border="0" width="35" height="16" >  <% if session("isadmin")="" then %>"><%=ds.Tables("><%else%>&guestname=<%=ds.Tables("guest").Rows(i)(1)%>','b','400','300','toolbar=no,status=no,menubar=no,scrollbars=no')" alt="管理员在线发送邮件"><%end if%>  <% if session("isadmin")<>"" then %> &caption=<%=ds.Tables("guest").Rows(i)(7)%>">回复这条留言<%if not ISDBNull(ds.Tables("guest").Rows(i)(11)) then%>  ">编辑回复<%end if%>  ">删除这条留言 <%end if%>

<% next %>
关键字:
共页/条留言  转第 页
<% Catch objex As exception If codemessage="loginerror" then response.write("
错误：管理帐号或管理密码有误，请重新登录。
") ElseIf search.text="" then response.write("
错误：搜索关键字不能是空字符串。请返回首页重新搜索。
") ElseIf search.text=viewstate("state") then response.write("
错误：搜索时不能连续提交相同关键字，请返回首页重新搜索。
") Else response.write("
错误：未知错误，请尽快联系管理员解决。
") End If End Try end if%> <% if session("isadmin")<>"" then%> <%end if%>


本留言簿使用微软ASP.NET技术编写

本留言簿的言论纯属发表者个人意见，与立场无关

©2002-2003  版权所有 技术支持：