index.asp

一个很Q的留言板,下载不后悔 !功能说明: 支持cookies 支持少数UBB(颜色/URL) 支持自动超链接 支持表情(自带56个,最多可扩充到60个) 支持头像(自带8个,可

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--
========================================================================

/////popcorn2.0/////

copyright (c) 2004,by 521lu.com
all rights reserved
script written by h.q.
web site : http://www.521lu.com
mail : [e-mail]

========================================================================
??
pls don't skip the copyright annoucement
========================================================================
-->
<!--#include file="config.asp"-->
<%
'==========================form==========================
sub form()
dim cook_name,cook_email,cook_home
cook_name=request.cookies("h.q.")("name")
cook_email=request.cookies("h.q.")("email")
cook_home=request.cookies("h.q.")("home")
if cook_home="" then cook_home="http://"
path=server.mappath(""&skin&"/form.htm")
set myfileobject=server.createobject("scripting.filesystemobject")
set mytextfile=myfileobject.opentextfile(path)
while not mytextfile.atendofstream
form_mb_code=(mytextfile.readall)
wend
mytextfile.close
form_mb_code=replace(form_mb_code,"$boardtitle$",boardtitle)
form_mb_code=replace(form_mb_code,"$url$",url)
action="add"
form_mb_code=replace(form_mb_code,"$action$",action)
myid=""
form_mb_code=replace(form_mb_code,"$myid$",myid)
form_mb_code=replace(form_mb_code,"$cook_name$",cook_name)
form_mb_code=replace(form_mb_code,"$cook_email$",cook_email)
form_mb_code=replace(form_mb_code,"$cook_home$",cook_home)
formdel="<form name=del action=del.asp method=post>"
form_mb_code=replace(form_mb_code,"$form$",formdel)
response.write form_mb_code
end sub
'==========================formre==========================
sub form_re()
cook_name=request.cookies("h.q.")("name")
cook_email=request.cookies("h.q.")("email")
cook_home=request.cookies("h.q.")("home")
if cook_home="" then cook_url="http://"
path=server.mappath(""&skin&"/form.htm")
set myfileobject=server.createobject("scripting.filesystemobject")
set mytextfile=myfileobject.opentextfile(path)
while not mytextfile.atendofstream
form_mb_code=(mytextfile.readall)
wend
mytextfile.close
form_mb_code=replace(form_mb_code,"$boardtitle$",boardtitle)
action="re_add"
form_mb_code=replace(form_mb_code,"$action$",action)
myid=request("id")
form_mb_code=replace(form_mb_code,"$myid$",myid)
form_mb_code=replace(form_mb_code,"$cook_name$",cook_name)
form_mb_code=replace(form_mb_code,"$cook_email$",cook_email)
form_mb_code=replace(form_mb_code,"$cook_home$",cook_home)
formdel="<p></p>"
form_mb_code=replace(form_mb_code,"$form$",formdel)
response.write form_mb_code
end sub
'==========================message==========================
sub message()
pagesize=pagesize
if request("pageno")="" then
pageno=1
else
pageno=int(request("pageno"))
end if
if top=1 then
sql="select * from body order by top,lasttime desc"
else
sql="select * from body order by top desc"
end if
set rs1=server.createobject("adodb.recordset")
rs1.open sql,conn,1,3
currentpage = 0
if rs1.pagecount > 0 then
currentpage = request("pageno")
if  (currentpage - rs1.pagecount)>0 then
currentpage = rs1.pagecount
else
if currentpage = "" or currentpage < 1 then	currentpage = 1
end if
rs1.absolutepage = currentpage
end if
pagecount=rs1.recordcount
if not(rs1.eof and rs1.bof) then
x = 0
for x = 1 to pagesize
if rs1.eof then
exit for
else
path=server.mappath(""&skin&"/message.htm")
set myfileobject=server.createobject("scripting.filesystemobject")
set mytextfile=myfileobject.opentextfile(path)
while not mytextfile.atendofstream
message_mb_code=(mytextfile.readall)
wend
mytextfile.close
name=rs1("name")
if name=master then
name="[color=red]M[/color][color=yellow]A[/color][color=pink]S[/color][color=orange]T[/color][color=green]E[/color][color=blue]R[/color][color=990099]&nbsp;"&name&"[/color]"
else
end if
message_mb_code=replace(message_mb_code,"$name$",ubbcode(name))
hq1="<input type=checkbox name=id value='"&rs1("id")&"|0' >"
message_mb_code=replace(message_mb_code,"$delete$",hq1)
if allowreply="1" then
reply="index.asp?id="&rs1("id")&"&action=re_add"
message_mb_code=replace(message_mb_code,"$reply$",reply)
else
reply=""
message_mb_code=replace(message_mb_code,"$reply$",reply)
end if
id=rs1("id")
message_mb_code=replace(message_mb_code,"$id$",id)
face=rs1("face")
message_mb_code=replace(message_mb_code,"$face$",face)
if rs1("email")<>"" then
email="mailto:"&rs1("email")&""
else
email="没有填写"
end if
message_mb_code=replace(message_mb_code,"$email$",ubbcode(email))
if rs1("homepage")<>"http://" then
homepage=rs1("homepage")
else
homepage="没有填写"
end if
message_mb_code=replace(message_mb_code,"$homepage$",formatlayout(homepage))
content=rs1("content")
message_mb_code=replace(message_mb_code,"$content$",ubbcode(content))
ip=""&rs1("ip")&""
message_mb_code=replace(message_mb_code,"$ip$",ip)
dim time
time=rs1("time")
message_mb_code=replace(message_mb_code,"$time$",time)
response.write message_mb_code
sql="select * from re where post_id="&rs1("id")&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
for a=1 to int(rs.recordcount)
if rs.eof then
exit for
else
path=server.mappath(""&skin&"/reply.htm")
set myfileobject=server.createobject("scripting.filesystemobject")
set mytextfile=myfileobject.opentextfile(path)
while not mytextfile.atendofstream
reply_mb_code=(mytextfile.readall)
wend
mytextfile.close
re_name=rs("name")
if re_name=master then
re_name="[color=red]M[/color][color=yellow]A[/color][color=pink]S[/color][color=orange]T[/color][color=green]E[/color][color=blue]R[/color][color=#990099]&nbsp;"&re_name&"[/color]"
else
end if
reply_mb_code=replace(reply_mb_code,"$re_name$",ubbcode(re_name))
hq2="<input type=checkbox name=id value='"&rs("id")&"|"&rs("post_id")&"'>"
reply_mb_code=replace(reply_mb_code,"$re_delete$",hq2)
if rs("email")<>"" then
re_email="mailto:"&rs("email")&""
else
re_email="没有填写"
end if
reply_mb_code=replace(reply_mb_code,"$re_email$",ubbcode(re_email))
if rs("homepage")<>"http://" then
re_homepage=rs("homepage")
else
re_homepage="没有填写"
end if
reply_mb_code=replace(reply_mb_code,"$re_homepage$",formatlayout(re_homepage))
re_content=rs("content")
reply_mb_code=replace(reply_mb_code,"$re_content$",ubbcode(re_content))
re_ip=""&rs("ip")&""
reply_mb_code=replace(reply_mb_code,"$re_ip$",re_ip)
re_face=""&rs("face")&""
reply_mb_code=replace(reply_mb_code,"$re_face$",re_face)
re_time=rs("time")
reply_mb_code=replace(reply_mb_code,"$re_time$",re_time)
response.write reply_mb_code
end if
rs.movenext
next
end if
rs1.movenext
next
end if
end sub
'==========================messagere==========================
sub message_re()
sql="select * from body where id="&request("id")&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
path=server.mappath(""&skin&"/message.htm")
set myfileobject=server.createobject("scripting.filesystemobject")
set mytextfile=myfileobject.opentextfile(path)
while not mytextfile.atendofstream
message_mb_code=(mytextfile.readall)
wend
mytextfile.close
name=rs("name")
if name=master then
name="[color=red]M[/color][color=yellow]A[/color][color=pink]S[/color][color=orange]T[/color][color=green]E[/color][color=blue]R[/color][color=990099]&nbsp;"&name&"[/color]"
else
end if
message_mb_code=replace(message_mb_code,"$name$",ubbcode(name))
hq1=""
message_mb_code=replace(message_mb_code,"$delete$",hq1)
reply=""
message_mb_code=replace(message_mb_code,"$reply$",reply)
id=rs("id")
message_mb_code=replace(message_mb_code,"$id$",id)
face=rs("face")
message_mb_code=replace(message_mb_code,"$face$",face)
if rs("email")<>"" then
email="mailto:"&rs("email")&""
else
email="没有填写"
end if
message_mb_code=replace(message_mb_code,"$email$",ubbcode(email))
if rs("homepage")<>"http://" then
homepage=rs("homepage")
else
homepage="没有填写"
end if
message_mb_code=replace(message_mb_code,"$homepage$",formatlayout(homepage))
content=rs("content")
message_mb_code=replace(message_mb_code,"$content$",ubbcode(content))
ip=""&rs("ip")&""
message_mb_code=replace(message_mb_code,"$ip$",ip)
dim time
time=rs("time")
message_mb_code=replace(message_mb_code,"$time$",time)
response.write message_mb_code
sql="select * from re where post_id="&rs("id")&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
for a=1 to int(rs.recordcount)
if rs.eof then
exit for
else
path=server.mappath(""&skin&"/reply.htm")
set myfileobject=server.createobject("scripting.filesystemobject")
set mytextfile=myfileobject.opentextfile(path)
while not mytextfile.atendofstream
reply_mb_code=(mytextfile.readall)
wend
mytextfile.close
re_name=rs("name")
if re_name=master then
re_name="[color=red]M[/color][color=yellow]A[/color][color=pink]S[/color][color=orange]T[/color][color=green]E[/color][color=blue]R[/color][color=990099]&nbsp;"&re_name&"[/color]"
else
end if
reply_mb_code=replace(reply_mb_code,"$re_name$",ubbcode(re_name))
hq2=""
reply_mb_code=replace(reply_mb_code,"$re_delete$",hq2)
if rs("email")<>"" then
re_email="mailto:"&rs("email")&""
else
re_email="没有填写"
end if
reply_mb_code=replace(reply_mb_code,"$re_email$",ubbcode(re_email))
if rs("homepage")<>"http://" then
re_homepage=rs("homepage")
else
re_homepage="没有填写"
end if
reply_mb_code=replace(reply_mb_code,"$re_homepage$",formatlayout(re_homepage))
re_content=rs("content")
reply_mb_code=replace(reply_mb_code,"$re_content$",ubbcode(re_content))
re_ip=""&rs("ip")&""
reply_mb_code=replace(reply_mb_code,"$re_ip$",re_ip)
re_face=""&rs("face")&""
reply_mb_code=replace(reply_mb_code,"$re_face$",re_face)
re_time=rs("time")
reply_mb_code=replace(reply_mb_code,"$re_time$",re_time)
response.write reply_mb_code
end if
rs.movenext
next
end sub
'==========================pageno==========================
sub page()
path=server.mappath(""&skin&"/page.htm")
set myfileobject=server.createobject("scripting.filesystemobject")
set mytextfile=myfileobject.opentextfile(path)
while not mytextfile.atendofstream
page_mb_code=(mytextfile.readall)
wend
mytextfile.close
hq="</form>"
page_mb_code=replace(page_mb_code,"$form$",hq)

sql="select * from body order by top,lasttime desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
currentpage = 0
if rs.pagecount > 0 then
currentpage = request("pageno")
if  (currentpage - rs.pagecount)>0 then
currentpage = rs.pagecount
else
if currentpage = "" or currentpage < 1 then	currentpage = 1
end if
rs.absolutepage = currentpage
end if

hq3="<font style=""font-family:verdana;font-size:10px"">"
pagehead = currentpage - 4
if rs.pagecount > 9 and ( rs.pagecount - currentpage ) < 5 then pagehead = rs.pagecount - 9
if rs.pagecount < 10 and ( rs.pagecount - currentpage ) < 5 then pagehead = 1
if ( currentpage - 5 ) < 0 then pagehead = 1
hq3=hq3&"<span style=""font-family:webdings""><a href=""index.asp?pageno=1"">9</a></span>"
if currentpage <= 1 then
hq3=hq3&"<font color=""#999999""><span style=""font-family:webdings"">3</span></font> "
else
hq3=hq3&"<a href=""index.asp?pageno=" & currentpage - 1 & """><span style=""font-family:webdings"">3</span></a> &nbsp;"
end if
dim i
for i = 1 to 10
if pagehead = rs.pagecount + 1 then exit for
if pagehead - currentpage = 0 then
hq3=hq3&"<font color=""#999999"">" & pagehead & "</font> &nbsp;"
else
hq3=hq3&"<a href=""index.asp?pageno=" & pagehead & """>" & pagehead & "</a> &nbsp;"
end if
pagehead = pagehead + 1
next
if currentpage - rs.pagecount = 0 then
hq3=hq3&"<font color=""#999999""><span style=""font-family:webdings"">4</span></font>"
else
hq3=hq3&"<a href=""index.asp?pageno=" & currentpage + 1 & """><span style=""font-family:webdings"">4</span></a>"
end if
hq3=hq3&"<span style=""font-family:webdings""><a href=""index.asp?pageno="&rs.pagecount&""">:</a></span></font>"


page_mb_code=replace(page_mb_code,"$page$",hq3)
if model="diary" then
write="index.asp?action=add"
else
end if
if model="news" then
write="index.asp?action=add"
else
end if
if model="links" then
write="index.asp?action=add"
else
end if
page_mb_code=replace(page_mb_code,"$write$",write)
call connclose
response.write page_mb_code
end sub
'==========================select==========================
if model="board" then
select case request("action")
case ""
call form()
call message()
call page()
case "re_add"
call form_re()
call message_re()
end select
else
end if
if model="diary" then
select case request("action")
case ""
call message()
call page()
case "re_add"
call form_re()
call message_re()
case "add"
call form()
end select
else
end if
if model="news" then
select case request("action")
case ""
call message()
call page()
case "re_add"
call form_re()
call message_re()
case "add"
call form()
end select
else
end if
if model="links" then
select case request("action")
case ""
call message()
call page()
case "add"
call form()
end select
else
end if
%>