留言薄

<%@ Language=VBScript %> <% on error resume next if session.Contents ("username")<>"" then name=session.Contents ("username") set userrs=server.CreateObject ("adodb.recordset") usersql="select * from user where username='"&name&"'" userrs.Open usersql,conn,1,1 dim guestname,email,oicq guestname=userrs("username") email=userrs("email") oicq=userrs("oicq") userrs.Close set userrs=nothing conn.close set conn=nothing elseif session.Contents ("servername")<> "" then name=session.Contents ("servername") set userrs=server.CreateObject ("adodb.recordset") usersql="select * form ser where servername='"&name&"'" userrs.open usersql,conn,1,1 guestname=userrs("servername") email=userrs("email") web=userrs("webname") iocq=userrs("oicq") userrs.close set userrs=nothing conn.close set conn=nothing else name="" usersql="" end if%> <% dim currentpage,rowcount currentpage=Trim(Request.QueryString("currentpage")) if currentpage="" or Request.QueryString ("currentpage")=0 then currentpage=1 else currentpage=cint(Request.QueryString ("currentpage")) end if set rs=server.CreateObject ("adodb.recordset") rs.CursorType=3'读写模式 rs.PageSize=3 sql="select * from guestbook order by timess desc" rs.Open sql,conn,1,1 rs.AbsolutePage =cint(currentpage) rowcount=0 %> 留言薄

[共<%=rs.PageCount %>页/<%=rs.RecordCount %>条][目前在第<%=currentpage%>页] <% if currentpage>1 then %> >[上一页] <%end if%> <%if rs.PageCount >currentpage then %> > [下一页] <%end if%>

<% dim ii ii=1 do while not rs.eof and rowcount

第 <%=II%> 条记录

主题:

<%=rs("title")%>

发表时间:20<%=rs("timess")%>

内容:

<%=changechr(rs("content"))%>

公司名称:

<%=rs("guestname")%>

公司主页:

" title="留言者主页" target="_blank"><%=rs("web")%>

E-mail:

" title="留言者信箱"><%=rs("email")%>

电话：

<%=trim(rs("oicq"))%>

<% ii=ii+1 rowcount=rowcount+1 rs.movenext loop%> <% rs.Close set rs=nothing conn.close set conn=nothing %>


现在留言
*公司名称：		E-mail：
公司主页：		电话号码：
*主题：
留言内容：

<% function changechr(str) changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"
")," "," ") changechr=replace(replace(replace(replace(changechr,"[img]","

"),"[red]",""),"[big]","") changechr=replace(replace(replace(replace(changechr,"[/img]",">"),"[/b]",""),"[/red]",""),"[/big]","") end function %>