<!--#include file="up.asp"--><%
t1="<div align=center><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='94%'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'>"
t2="</font></td><td background='pic/"&sp&"5.gif'><img border='0' src='pic/"&sp&"4.gif'></td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=94% >"
d1="<tr><td width=100% >"
d2="</td></tr></table></center></div>"
id=request.querystring("id")
%><style>TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px;}</style>
<!--#include file="fun.asp"--><!--#include file="ubbcode.asp"--><br><br>
<%set mail=myconn.execute("select name from user where name='"&lgname&"' and password='"&lgpwd&"'")
if mail.eof then%>
<%=t1%>錯 誤 信 息<%=t2&d1%><P style='MARGIN: 10px'>進入郵箱失敗！可能存在以下問題：</p><P style='MARGIN: 10px'>·你還沒有<a href="login.asp">登陸</a>·</p><P style='MARGIN: 10px'>·你的用戶名或密碼錯誤·</p>
<%
response.end
end if
%>
<%menu=request.querystring("menu")
select case menu
%>
<%case "write"
towho=request.querystring("towho")
%>
<form method="POST" action="?menu=save">
<%=t1%>發送留言<%=t2&d1%>
<p style="margin: 10">留言對象：<input type="text" name="tname" size="82" value="<%=towho%>"></p>
<p style="margin: 10">留言內容：[ 可以使用UBB代碼以及論壇帖子的所有功能（除了上傳、公告） ]</p>
<p style="margin: 10"><textarea rows="12" name="neirong" cols="92"></textarea></p>
<p style="margin: 10"><input type="submit" value=" 發 送 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p>
<%=d2%>
</form>
<%case"save"
tname=Replace(Request.Form("tname"),"'","''")
neirong=Replace(Request.Form("neirong"),"'","''")
if tname="" or neirong="" then
%><%=t1%>錯 誤 信 息<%=t2&d1%><p style="margin: 10">·發送失敗，留言對象和留言內容不能留空·</p><%=d2%>
<%else
set isha=myconn.execute("select name from user where name='"&tname&"'")
if isha.eof then%><%=t1%>錯 誤 信 息<%=t2&d1%><p style="margin: 10">·發送失敗，論壇中不存在該留言對象·</p><%=d2%>
<%else
myconn.execute("insert into hand(name,neirong,riqi,tname)values('"&lgname&"','"&neirong&"',now,'"&tname&"')")%>
<%=t1%>留 言 成 功<%=t2&d1%><p style="margin: 10">·已經成功的給 <%=kbbs(tname)%> 留言·</p><%=d2%>
<%end if
set isha=nothing
end if%>
<%end select%>