sms.asp

一个功能很全面的设计网站,可以作为工作室、个人主页、技术网站等

<img onclick=light() alt=发光字 src="pic/glow.gif" border=0> 
<img onclick=ying() alt=阴影字  src="pic/shadow.gif" border=0>
<img onclick=Cbold() alt=粗体字 src="pic/bold.gif" border=0> 
<img onclick=Citalic() alt=斜体字 src="pic/italicize.gif" border=0> 
<img onclick=Cunder() alt=下划线 src="pic/underline.gif" border=0> 
<img onclick=center() alt="居中" border="0" src="pic/center.gif">
<img onclick=image() alt=图片 src="pic/image.gif" border=0> 
<img onclick=Cdir() alt=Shockwave文件 src="pic/Shockwave.gif" border=0> 
<img onclick=Crm() alt=realplay视频文件 src="pic/rm.gif" border=0> 
<img onclick=Cwmv() alt="Media Player视频文件" src="pic/mp.gif" border=0>
<img onclick=Curl() alt="超连接" border="0" src="pic/url1.gif">
<img onclick=Cemail() alt="Email连接" border="0" src="pic/ubb_email.gif">
<img onclick=Csound() alt="插入背景音乐" border="0" src="pic/csound.gif">
<img onclick=Cra() alt="real音频文件" border="0" src="pic/ra.gif"></p>
<p style="line-height: 150%; margin: 5">
字限：<INPUT disabled maxLength=5 name=total size=4 value=15000>
已写：<INPUT disabled maxLength=5 name=used size=4 value=0>
剩余：<INPUT disabled maxLength=5 name=remain size=4 value=15000><BR>
      <SCRIPT language=javascript>
<!--
function gbcount(message,total,used,remain)
{
	var max;
	max = total.value;
	if (message.value.length > max) {
	message.value = message.value.substring(0,max);
	used.value = max;
	remain.value = 0;
	alert("您输入的帖子内容已经超过系统允许的最大值15000字节！\n请删减部分帖子内容在发表！");
	}
	else {
	used.value = message.value.length;
	remain.value = max - used.value;
	}
}
-->
        </SCRIPT><br>      <textarea rows="9" name="content" cols="85" style="font-family: 宋体; font-size: 9pt" onkeydown=presskey(); onkeyup=gbcount(this.form.content,this.form.total,this.form.used,this.form.remain);></textarea>
        
        <p style="line-height: 150%; margin: 5">
<script>for(i=1;i<=15;i=i+1) {document.write("<A href=javascript:emoticon('[em"+i+"]')><img border=0 src=images/emote/em"+i+".gif>&nbsp;")}</script>
      <SCRIPT>
function emoticon(theSmilie){
document.topic.content.value +=theSmilie + '';
document.topic.content.focus();
}

function presskey(eventobject)
{
   if(event.ctrlKey && window.event.keyCode==13){this.document.topic.submit();}else{return false}
   }
</SCRIPT>
</p><br></td>
</tr>
      <tr>
        <td colspan="2" align="center" height="40" bgcolor="<%=c2%>">
        <input class=submit type=submit value=OK_！发送 name=B1>&nbsp;&nbsp;&nbsp; <input class=submit type=button value="预  览！" onclick=openwin()>&nbsp;&nbsp;&nbsp; <input class=submit type=reset value=NO_！重写 name=B2>&nbsp; [ 按 Alt+Enter 直接发送 ]</td>
      </tr>
      </table>
    </td>
  </tr>
  </table><%=tbottom%>
</form>
<form name=form1 action=paper.asp?action=preview method=post target=showgg>
<input type=hidden name=topic value=><input type=hidden name=content value=>
</form>
<%case"savesms"
dim content,cansend,touserid,content2,mymark,contentok
cansend=true
function checkbad(str)
if isnull(str) then exit function 
bad=split(application(prefix&"badcontent"), "|")
for b=0 to ubound(bad)
str=Replace(str,bad(b),string(len(bad(b)),"*")) 
next
checkbad=str
end function

toname=Replace(Request.Form("toname"),"'","")

content=checkbad(left(Request.Form("content"),15000))
content=replace(content,"|","│")
content=replace(content,"'","''")
contentok=Replace(content," ","")

contentok=Replace(content," ","")

if toname="" or contentok="" then
cansend=false
mes="·请填写完整留言对象和留言内容。<br>"
else
if toname=lgname then
cansend=false
mes="·不能给自己留言。<br>"
else
if checkname(toname)=false then
cansend=false
mes="·论坛不存在 "&kbbs(toname)&" 这个用户。<br>"
else
set rs=conn.execute("select top 1 userid from [user] where name='"&toname&"'")
if rs.eof then
cansend=false
mes="·论坛不存在 "&kbbs(toname)&" 这个用户。<br>"
else
touserid=rs("userid")
end if
set rs=nothing
end if
end if
end if

mymark=conn.execute("select top 1 mark from [user] where userid="&lguserid&"")("mark")
if mymark<5 then
cansend=false
mes=mes&"·你的论坛积分为 <b>"&mymark&"</b> ，不足够发送留言。<br>"
end if

if cansend=false then
tl=" 发 送 失 败"
mes="<b>对不起！留言发送失败，可能存在以下问题。</b><br>"&mes&"·<a href='javascript:history.go(-1)'><img src=pic/re.gif align=absmiddle border=0> 返回重新填写</a>"
elseif cansend=true then
content2=content&"|"&now()+timeset/24
conn.execute("insert into sms(fromuserid,touserid,content) values("&lguserid&","&touserid&",'"&content2&"')")
conn.execute("update [user] set mark=mark-5 where userid="&lguserid&"")
tl=" 发 送 成 功"
mes="已经成功的给 "&kbbs(toname)&" 留言。<br>论坛收取了你 <b>5</b> 点积分。"
end if
call sendinfo(tl,mes)
%>
<%case"del"
if conn.execute("select top 1 id from sms where id="&id&" and touserid="&lguserid&"").eof then
tl=" 删 除 失 败"
mes="你的留言板不存在你所要删除的留言。"
else
conn.execute("delete*from sms where id="&id&" and touserid="&lguserid&"")
conn.execute("update [user] set mark=mark+3 where userid="&lguserid&"")
tl=" 删 除 成 功"
mes="已经删除了选中的留言。"
end if
call sendinfo(tl,mes)
%>


<%case"delall"
dim delnum,addmark
delnum=conn.execute("select count(id) from sms where touserid="&lguserid&"")(0)
addmark=3*int(delnum)
conn.execute("update [user] set mark=mark+"&int(addmark)&" where userid="&lguserid&"")
conn.execute("delete*from sms where touserid="&lguserid&"")
tl=" 清 空 成 功"
mes="已经成功的清空留言板。你获得了 <b>"&addmark&"</b> 点积分。"
call sendinfo(tl,mes)%>

<%end select
call down
%>