message.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 121 行
ASP
121 行
<%
data_path="../../" 'ACC连接数据库路径，对SQL无效
if session("globalecmaster")="" or session("adminid")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>"
response.end
end if
%>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
HOPE_id=Replace_Text(Request("userid"))
if HOPE_id="" then
call HOPE_err("操作错误","请不要非法提交数据","关闭","javascript:window.close();")
Response.end
end if
HOPE_action=Replace_Text(Request("HOPE_action"))
if HOPE_action="HOPE_save" then
HOPE_content=HOPE_Str(Replace_Text(Request("HOPE_content")))
HOPE_id=Split(HOPE_id,",")
For i=0 to ubound(HOPE_id)
Set rsbook=Server.createobject("adodb.recordset")
Sqlbook="Select * from yixiang_getprice"
rsbook.open sqlbook,conn,1,3
rsbook.addnew()
rsbook("mycid")=HOPE_id(i)
rsbook("sendcid")=0
rsbook("title")="系统管理员留言"
rsbook("content")=HOPE_content
rsbook("requestinfo")="......管理员留言.........."
rsbook("datetime")=now()
rsbook("limitedtime")=now()
rsbook("sendflag")=0
rsbook("reflag")=0
rsbook("saveflag")=0
rsbook("delreceive")=0
rsbook("delsend")=0
rsbook("sendemail")=0
rsbook("sendcontact")=0
rsbook("checkdate")=0
rsbook("needtrust")=0
rsbook("getprice1id")=0
rsbook("upsize_ts")="暂无"
rsbook.update()
Response.write "<script>alert('发送成功!');window.close();</script>"
Response.end
next
end if
Set rs=server.createobject("adodb.Recordset")
sql="select * from wygkcn_corporation where ID in("&HOPE_id&")"
rs.open sql,conn,1,1
%>
<html>
<head>
<title>
</title>
<link rel="stylesheet" type="text/css" href="../css/style.css">
</head>
<body onload='document.form1.HOPE_content.focus();'>
<script language="javascript1.1">
function HOPE_return(returncontent){
if (confirm("你是否真的"+returncontent+"?")){
return true;
}
else
{
return false;
}
}
</script>
<script language='vbscript'>sub window_onload() loadopener() end sub</script>
<script>function loadopener(){window.opener.location.reload();}</script>
<form name="form1" method="post" action="message.asp?HOPE_action=HOPE_save&userid=<%=HOPE_id%>">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="tableBorder">
<tr>
<th class="tableHeaderText" height=25>会员留言</th>
<tr>
<td align="center">
<TABLE width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bordercolor="#111111" bordercolorlight="#D7EBFF" bordercolordark="#D7EBFF" style="border-collapse: collapse">
<TBODY>
<TR height=25>
<TD width="12%" height="20" valign="top"><strong style="color:#0066CC; ">发送会员列表:</strong>
</TD>
<TD width="88%">
<table width="100%%" border="0" cellspacing="0" cellpadding="3">
<tr>
<%
'============================================================================================
for i=1 to rs.recordcount
%>
<td>
<%=i%>.[<font color="red"><%=rs("qymc")%></font>]
</td>
<%
if i mod 5=0 then Response.write "</tr>"
rs.movenext
if rs.eof then exit for
next
'============================================================================================
rs.close
set rs=nothing
%>
</table>
</TD>
</TR>
<TR height="20">
<TD colspan="2" class=forumRow align="center"><textarea name="HOPE_content" cols="130" rows="15" id="HOPE_content"></textarea></td>
</TR>
<TR height="20">
<TD colspan="2" align="center"><input type="submit" name="Submit" value="开始发送" onClick="return HOPE_return('开始发送')">
<input type="reset" name="Submit2" value="重新输入" onClick="return HOPE_return('重新输入')"> </td>
</TR>
<tr><td height="50" colspan="2" >[<a href='#' onClick="javascript:window.close();">关闭</a>]</td></tr>
</TABLE></td>
</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?