求个超小型的网页留言版代码

显示全部楼层 · 2007-6-21 20:26:56

1 then if cint(Mypage) > maxpages then MESSAGE("

没有你所想去的页数！") Response.End end if end if HEADER "显示留言" MyMenu %> [ 客户留言系统 ]
BODY {SCROLLBAR-FACE-COLOR: #D4D0C8; SCROLLBAR-HIGHLIGHT-COLOR: #999999; SCROLLBAR-SHADOW-COLOR: #999999; SCROLLBAR-3DLIGHT-COLOR: #FFFFFF; SCROLLBAR-ARROW-COLOR: #000000; SCROLLBAR-TRACK-COLOR: #E3E3E3; SCROLLBAR-DARKSHADOW-COLOR: #666666; } [url=]
[img][/img]
[/url]
[td]Total ofmessages, messages per page, You are on page ...
[/td]
[url=]
[img][/img]
[/url]

[color=]留言者 :

[color=]留言内容 :

对不起，目前还没有任何留言，如要留言，请按“我要留言”图片！[/TD]" else i = 0 total = 0 do until ASPBook.Eof or total = totalsize if i = 0 then CColor = Color1 else CColor = Color2 end if %> ">

[img][/img]
先生" align="middle" border="0">
[img][/img]
小姐" align="middle" border="0">

Form:

[img][/img]
.gif" border="0" align="ABSCENTER">On:
[color=]
"" then%> [url=]">
[img][/img]
[/url]
"" and ASPBook("主页")"http://" then%> [url=]" Target="_blank">
[img][/img]
[/url]
"" then%>
[img][/img]
" align="absmiddle" border="0" width="15" height="16"> "" then%>[url=]" target="_blank">
[img][/img]
" align="absmiddle" border="0" width="16" height="16">[/url]
[img][/img]
" align="absmiddle" border="0" width="13" height="16">
[img][/img]
" align="absmiddle" border="0" width="15" height="16">    "" then%> Reply : ()

[img][/img]
.gif" border="0" align="ABSCENTER">

[url=]&Number=">
[img][/img]
[/url] [url=]&Number=">
[img][/img]
[/url]


[url=] [/url]

1 then if PageNextSize >1 then PagePrev=PageShowSize*(PageNextSize-1) Response.write "[ 0 then Prev_Page = MyPage - 1 Response.write "[url=" & Scriptname & "?page=" & Prev_Page & "][=PageNextSize*PageShowSize then PageSizeShow = PageShowSize else PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1) end if for PageCounterSize=1 to PageSizeShow PageLink = (PageCounterSize+PageNextSize*10)-10 if PageLinkcint(Mypage) then Response.write "[url=" & Scriptname & "?page=" & PageLink & "][" & PageLink & "] " else Response.Write PageLink & " " end if next if Mypage+1 ][/url]" end if if maxpages > PageShowSize*PageNextSize then PageNext = PageShowSize * PageNextSize + 1 Response.write "-[>>]" end if else Response.write "[1]" end if END function set ASPBook=nothing conn.Close set conn = nothing %>补充：如果你是在网上有自己的主页之类的，可以搜索一下，申请一个免费的留言本，就不用自己做，直接可以用，下面给个地址给你参考http://www.free8.com/guestbook/index.htm参考资料：http://zhidao.baidu.com/question/15671215.html?fr=qrl3

已赞过已踩过<