📄 sender.asp
字号:
<!--#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('你还没有登录，无权进入！');</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>发送私人留言</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 "" ;} // 参数sString是空串
sStr = sString.split("");
for (i = sStr.length - 1 ; i >= 0 ; i --) // 将字符串进行倒序
{
sResult = sResult + sStr[i];
}
sTemp = JHshLTrim(sResult) ; // 进行字符串前空格截除
if (sTemp == "") { return "" ; }
sStr = sTemp.split("");
sResult = "" ;
for (i = sStr.length - 1 ; i >= 0 ; i--) // 将经处理后的字符串再进行倒序
{
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("不能没有内容！")
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>发送私人留言</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">留言内容：（请不要超过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">一路飞扬在线
http://wyy.9yz.com
<input type="submit" name="Submit" value="发送">
<input type="reset" name="Submit2" value="重写">
</div></td>
</tr>
</form>
</table>
<%set conn=nothing%>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -