?? message.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="inc/bloginfo.asp"-->
<!--#include file="inc/userinfo.asp"-->
<!--#include file="inc/showcode.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/calendar.asp"-->
<%
dim action
show_username=ReplaceBadChar(trim(request.QueryString("name")))
action=trim(request.QueryString("action"))
if action="addmessage" then
if CheckUserLogined()=true then
call addmessage()
else
if enguestcomment="true" then
if trim(request("password"))<>"" then
call commentlogin()
if CheckUserLogined()=true then
call addmessage()
end if
else
call addmessage()
end if
else
if CheckUserLogined()=false then
call commentlogin()
if CheckUserLogined()=true then
call addmessage()
end if
else
call addmessage()
end if
end if
end if
end if
call usershow()
response.Write "<Script>quote='';</Script>"
call sub_showmessage("where mainuser='"&show_username&"'",user_shownewmessage_num,"message.asp?name="&show_username)
show=replace(show,"$show_log$",show_message)
response.Write show
call bottom()
dim password,CookieDate,rsreg,sql
sub commentlogin()
dim sql
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
if UserName="" then
Response.Write"<script language=JavaScript>"
Response.Write"alert(""對不起！用戶名不能為空！"");"
Response.Write"window.history.go(-1);"
Response.Write"</script>"
end if
if Password="" then
Response.Write"<script language=JavaScript>"
Response.Write"alert(""對不起！密碼不能為空！"");"
Response.Write"window.history.go(-1);"
Response.Write"</script>"
end if
if CookieDate="" then
CookieDate=0
else
CookieDate=Clng(CookieDate)
end if
set rs=conn.execute("select lockip from lockip where lockip='"&Request.ServerVariables("REMOTE_ADDR")&"'")
if not (rs.bof or rs.eof) then
Response.Write"<script language=JavaScript>"
Response.Write"alert(""對不起！你的IP已被鎖定，不能登陸！"");"
Response.Write"window.history.go(-1);"
Response.Write"</script>"
else
if ot_user then
call ot_chklogin()
else
call ob_chklogin()
end if
end if
end sub
'**************************************************
'過程名：addmessage
'作 用：添加留言
'參 數：無
'**************************************************
sub addmessage()
if ChkPost()=false then
response.write("不允許從外部提交！")
response.clear
response.End()
end if
dim rs,sql,subjectid,classid,mainuser
set rs=conn.execute("select lockip from lockip where lockip='"&Request.ServerVariables("REMOTE_ADDR")&"'")
if not (rs.bof or rs.eof) then
Response.Write"<script language=JavaScript>"
Response.Write"alert(""對不起！你的IP已被鎖定，不能發表留言！"");"
Response.Write"window.history.go(-1);"
Response.Write"</script>"
end if
'增加用戶表留言數
conn.execute("update [user] set messagecount=messagecount+1 where username='"&show_username&"'")
'增加系統留言數
conn.execute("update [bloginfo] set messagecount=messagecount+1 ")
'添加留言
set rs=server.createobject("adodb.recordset")
sql="select * from message"
rs.open sql,conn,1,3
rs.addnew
rs("mainuser")=show_username
if CheckUserLogined()=true then
rs("message_user")=username
else
rs("message_user")=request.Form("username")&"(游客)"
end if
rs("message")=debadstr(request.Form("edit"))
rs("messagetopic")=debadstr(request.Form("messagetopic"))
rs("homepage")=request.Form("homepage")
rs("addtime")=blognow()
rs("addip")=Request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close
Response.Redirect("message.asp?name="&show_username)
end sub
function debadstr(str)
dim rs,badstr,i
debadstr=str
set rs=conn.execute("select blogFiltrate from filtrate")
badstr=split(rs(0),"|")
for i=0 to ubound(badstr)
debadstr=replace(debadstr,badstr(i),"***")
next
end function
'**************************************************
'過程名：sub_showmessage
'作 用：顯示留言版
'參 數：where 條件,顯示條數，連接名
'**************************************************
sub sub_showmessage(sql,num,strurl)
dim show_logcyc,show_topic,show_loginfo,show_logtext,show_more,commenttopic,homepage
dim rs,rssubject
dim show_addtime,show_author,show_topictxt
'response.Write(strurl)
dim count,pagesize,pagecount,page,temp
'=======以下為分頁設置=====================
'num=2
pagesize=num '每頁顯示多少篇回復
set rs=conn.execute("select count(id) from message where mainuser='"&show_username&"'")
count=rs(0)
set rs=nothing
if (count mod pagesize)=0 then
pagecount= count \ pagesize
else
pagecount= (count \ pagesize)+1
end if
if request.querystring("page")<>"" then
page=request.querystring("page")
if page<=0 then page=1
else
page=1
end if
'===============以下為顯示代碼===============
show_message="<div align=left><b> 給"&show_username&"簽寫留言</b><hr noshade></div>"
show_message=show_message&"<table width='90%' border='0' align='center' cellspacing='0' cellpadding='0'> <tr> <td><table align='left' width='400' border='0' cellspacing='0' cellpadding='0'>" & vbcrlf
show_message=show_message& "<form action='message.asp?name="&show_username&"&action=addmessage' method='post' name='commentform' onSubmit='return Verifycomment()'>" & vbcrlf
show_message=show_message& "<tr><td height='25' align='left'>昵稱：<input name='UserName' type='text' id='UserName' size='12' maxlength='20' value='"&Request.Cookies("oblog")("UserName")&"'></td>" & vbcrlf
show_message=show_message& "<td height='25' align='left'>密碼：<input name='Password' type='password' id='Password' size='15' maxlength='20' value='"&Request.Cookies("oblog")("Password")&"'></td></tr>" & vbcrlf
show_message=show_message&"<tr ><td height='25' align='left' colspan='4' >主頁：<input name='homepage' type='text' id='homepage' size='42' maxlength='50' value='http://'><td></tr>"
show_message=show_message& "<tr ><td height='25' align='left' colspan='4'>標題：<input name='messagetopic' type='text' id='messagetopic' size='42' maxlength='50' value=''><td></tr>"
show_message=show_message& "<tr height='200'><td colspan='4'><INPUT type='hidden' name='edit' id='edit' value=''>"& vbcrlf
show_message=show_message& aApplicationValue(31) & vbcrlf
show_message=show_message& "</td></tr>" & vbcrlf
show_message=show_message& "<tr><td height='30' colspan='4'><input name='login' type='submit' id='Login' value=' 提交 '> " & vbcrlf
show_message=show_message& "</td>" & vbcrlf
show_message=show_message& "</tr></form></table></td> </tr></table>" & vbcrlf
show_message=show_message& "<div align=left><hr noshade><b> 所有留言</b></div>" & vbcrlf
set rs=conn.execute("select message_user,messagetopic,message,addtime,homepage,id from message "&sql&" order by id desc")
if not rs.eof then
dim isshowpage
isshowpage=true
if page <>1 then rs.move pagesize*(page-1)
for temp=1 to pagesize
if rs.eof then exit for
if isnull(rs(4)) then
homepage=""
else
if trim(replace(rs(4),"http://",""))="" then
homepage=""
else
homepage="<a href='"&HTMLEncode(rs(4))&"' target='_blank'>個人主頁</a>"
end if
end if
show_topic=rs(1)&"<a name='"&rs(5)&"'></name>"
show_author=rs(0)
show_topictxt=show_topic
show_addtime=rs(3)
show_loginfo=show_author&"發表留言于"&show_addtime
show_logtext=filtimg(filtscript(rs(2)))
show_more=homepage
show_logcyc=replace(show_logtmp,"$show_topic$",show_topic)
show_logcyc=replace(show_logcyc,"$show_loginfo$",show_loginfo)
show_logcyc=replace(show_logcyc,"$show_logtext$",show_logtext)
show_logcyc=replace(show_logcyc,"$show_more$",show_more)
show_logcyc=replace(show_logcyc,"$show_emot$","")
show_logcyc=replace(show_logcyc,"$show_author$",show_author)
show_logcyc=replace(show_logcyc,"$show_addtime$",show_addtime)
show_logcyc=replace(show_logcyc,"$show_topictxt$",show_topictxt)
show_message=show_message&show_logcyc
rs.movenext
next
'===================分頁尾部=======================
dim pagelist
dim pot,i
strurl=joinchar(strurl)
if page-1 mod 10=0 then
pot=(page-1) \ 10
else
pot=(page-1) \ 10
end if
if page=1 then
pagelist=" <font face=webdings color='red'>9</font> "
else
pagelist=" <a href='"&strurl&"page=1' title=首頁><font face=webdings>9</font></a> "
end if
if pot*10>0 then pagelist=pagelist & " <a href='"&strurl&"page="&Cstr(pot*10)&"' title=上十頁><font face=webdings>7</font></a> "
pagelist=pagelist & "<b>"
for i=pot*10+1 to Pot*10+10
if i=cint(Page) then
pagelist=pagelist & " <font color='red'>"+Cstr(i)+"</font> "
else
pagelist=pagelist & " <a href='"&strurl&"page="&Cstr(i)&"'>"+Cstr(i)+"</a> "
end if
if i=pagecount then exit for
next
pagelist=pagelist & "</b>"
if i<pagecount then pagelist=pagelist & " <a href='"&strurl&"page="&Cstr(i)&"' title=下十頁><font face=webdings>8</font></a> "
if Page=pagecount then
pagelist=pagelist & "<font face=webdings color='red'>:</font>"
else
pagelist=pagelist & " <a href='"&strurl&"page="&Cstr(pagecount)&"' title=尾頁><font face=webdings>:</font></a> "
end if
dim showpage
' showpage="頁次："&page&"/"&pagecount&" "
' showpage=showpage&"每頁："&pagesize
showpage=showpage&"留言數："&count&" "
if isshowpage=false then
showpage=""
else
showpage="<div align=right>"&showpage&pagelist&"</div>"
end if
show_message=show_message&showpage
else
show_message=show_message&"<br>當前無留言！"
end if
end sub
%>
<SCRIPT language="javascript">
<!--
function del_space(s)
{
for(i=0;i<s.length;++i)
{
if(s.charAt(i)!=" ")
break;
}
for(j=s.length-1;j>=0;--j)
{
if(s.charAt(j)!=" ")
break;
}
return s.substring(i,++j);
}
function Verifycomment()
{
v = del_space(document.commentform.messagetopic.value);
if (v.length == 0)
{
alert("您忘了填寫題目!");
return false;
}
v = del_space(document.commentform.UserName.value);
if (v.length == 0)
{
alert("您忘了留下名字!");
return false;
}
//document.commentform.message.value=edit3.getHTML();
submits();
if (document.commentform.edit.value == "")
{
alert("內容不能為空!");
return false;
}
return true;
}
//-->
</SCRIPT>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -