?? sender.asp
字號(hào):
<!--#include file="inc/DB.INC"-->
<!--#include file="inc/func.INC"-->
<!--#include file="inc/chkonline.asp"-->
<%call online()
userid=session("myuserid")
password=session("mypwd")
if isuser(userid,password)=0 then
response.write "<script>alert('你還沒(méi)有登錄，無(wú)權(quán)進(jìn)入！');</script>"
response.end
end if
id=request("id")
if id<>"" then
sql="select writer from private where id="&id
set rs=conn.execute(sql)
geter=rs("writer")
set rs=nothing
end if
%>
<LINK href=jscs/css.CSS type=text/css rel=stylesheet>
<title>發(fā)送私人留言</title>
<script language="javascript">
//去除字符串前空格
function JHshLTrim(sString)
{
var sStr,i,iStart,sResult = "";
sStr = sString.split("");
iStart = -1 ;
for (i = 0 ; i < sStr.length ; i++)
{
if (sStr[i] != " ")
{
iStart = i;
break;
}
}
if (iStart == -1) { return "" ;} //表示sString中的所有字符均是空格,則返回空串
else { return sString.substring(iStart) ;}
}
//去除字符串后空格
function JHshRTrim(sString)
{
var sStr,i,sResult = "",sTemp = "" ;
// if (sString.length == 0) { return "" ;} // 參數(shù)sString是空串
sStr = sString.split("");
for (i = sStr.length - 1 ; i >= 0 ; i --) // 將字符串進(jìn)行倒序
{
sResult = sResult + sStr[i];
}
sTemp = JHshLTrim(sResult) ; // 進(jìn)行字符串前空格截除
if (sTemp == "") { return "" ; }
sStr = sTemp.split("");
sResult = "" ;
for (i = sStr.length - 1 ; i >= 0 ; i--) // 將經(jīng)處理后的字符串再進(jìn)行倒序
{
sResult = sResult + sStr[i];
}
return sResult ;
}
//去除字符串前后空格
function JHshTrim(sString)
{
var strTmp
strTmp = JHshRTrim(JHshLTrim(sString))
return strTmp
}
function form1_onsubmit() {
if (JHshRTrim(document.form1.content.value)=="")
{
alert("不能沒(méi)有內(nèi)容！")
document.form1.content.focus()
return false
}
}
</script>
<body topmargin=1 leftmargin=0>
<table width="380" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#6595D6">
<form name="form1" method="post" language="javascript" onSubmit="return form1_onsubmit()" action="go.asp">
<tr>
<td height="25" colspan="2" background="IMAGES/sendbg1.gif">
<div align="center"><font color="#FFFFFF"><strong>發(fā)送私人留言</strong></font></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="184" height="20">你的ID：<%=userid%><input type=hidden name=writer value='<%=writer%>'></td>
<td width="185" height="20"><%
set rsm=Server.CreateObject ("ADODB.RECORDSET")
sql="select userid,truename from [txluser] order by id desc"
rsm.open sql,conn,1,1
response.write "<select name='geter' id='geter'>"
while not rsm.eof
if geter=rsm("truename") then%>
<option value="<%=rsm("userid")%>" selected> <%=rsm("truename")%> </option>
<%else%>
<option value="<%=rsm("userid")%>"> <%=rsm("truename")%> </option>
<%
end if
rsm.movenext
wend
set rsm=nothing
%>
</select>
<%
set rsm=nothing
%>將收到你的留言
</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF">留言?xún)?nèi)容：（不要超過(guò)500字）<br> <textarea name="content" style="BORDER-RIGHT:#008000 1px solid;BORDER-TOP:#008000 1px solid;FONT-SIZE:9pt;OVERFLOW:auto;BORDER-LEFT:#008000 1px solid;WIDTH:373px;HEIGHT:50px;BORDER-BOTTOM:#008000 1px solid;BACKGROUND-COLOR:#efefef"></textarea>
</td>
</tr>
<tr>
<td colspan="2" background="IMAGES/sendbg2.gif"><div align="center">
<input type="submit" name="Submit" value="發(fā)送">
<input type="reset" name="Submit2" value="重寫(xiě)">
</div></td>
</tr>
</form>
</table>
<%set conn=nothing%>
</body>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -