📄 mymsg_hand.asp

📁 网上购物系统 asp+sql server 2005
💻 ASP
字号:
<!--#include file="include/dbopenbd.asp" -->
<%

call checklogin()
if request("send")="ok" then call send()
%>

<HTML>
<HEAD>
<TITLE>站内消息-<%=sitename%>-<%=siteurl%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=sitedescription%>">
<meta name="keywords" content="<%=sitekeywords%>">
<link rel="stylesheet" href="include/css.css" type="text/css">
</HEAD>
<CENTER>
<!--#include file="a_top.asp"-->
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor="#FFFFFF"  class="grayline" >
<tr> 
<td align="center" valign="top" width="185"> 
<!--#include file="user_center_menu.asp"-->
</td>
<td bgcolor="#CCCCCC" width="1"></td>
<td valign="top" bgcolor="#FfFfFf" width="570"> 
<TABLE border=0 width="100%" cellspacing="2" cellpadding="2" align=center>
<tr><td  height=30>目前位置：<a href=main.asp>首页</a> > <a href=user_center.asp>用户中心</a> > 站内消息</td></tr>
<tr><td width="570"  align="center" height="1" background="images/small/bgline.gif"></td></tr></table>

<br>
<form name="add" method="post" action="mymsg_hand.asp">

<%
id=request("id")
if id<>"" then
Set rs = conn.Execute("select * from s_hand where id="&id) 
if not (rs.eof and rs.bof) then
'避免通过回复消息的方式偷看别人的消息
nr=rs("neirong")
if rs("name")=request.cookies("buyok")("userid") then
huifu=vbcrlf&vbcrlf&vbcrlf&vbcrlf&"======="&rs("fname")&"于"&rs("riqi")&"发送的消息原文======"&vbcrlf&replace(nr,"<font color=darkgray>","")
end if
end if
rs.close
set rs=nothing
end if
%>
	
<table width="90%" border="0" cellpadding="4" cellspacing="0" bordercolor="#C0C0C0" align=center bordercolordark="#FFFFFF">
<tr><td>给管理员发送站内消息：</tr>
<tr><td>
  <textarea rows="15" name="neirong" cols="75" style="BORDER: darkgray 1px solid; FONT-SIZE: 8pt; FONT-FAMILY: verdana ; overflow:auto;"><%=huifu%></textarea>
</td></tr>
<tr><td height=50 align=center><input type="submit" value="立即发送" name="">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="reset" value="重新填写"><input name="send" type="hidden" value="ok"></td></tr>
</form>
</table>  
</td>
</TR>
</TABLE>
<!--#include file="a_bottom.asp"--> 
</BODY></center>

</html>
616996556
<%
sub send()
call check_path()   '保证此页的调用是合法的

if request.form("neirong")=""  then mGoBack "出错了，没有填写要发送的内容！"
if llen(request.form("neirong"))>1000  then  mGoBack "出错了，您填写的内容太长了，请检查后重新提交！"
sql="select top 1 * from s_hand order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3

if rs.eof and rs.bof then
	id=1
else
	id=rs("id")+1
end if

rs.addnew
  rs("name")="admin"
neirong=request.form("neirong")
neirong=replace(neirong,"=======","<font color=darkgray>======")
rs("neirong")=neirong
rs("riqi")=now()
rs("fname")=request.cookies("buyok")("userid")
rs.update	
rs.close
set rs=nothing

mGoTo "mymsg_hand.asp","操作成功，已向管理员发送一条站内消息！"
end sub

conn.close
set conn=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -