📄 admin_duanxinadd.asp

📁 功能强大首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="author" content="今世:http://www.JsIce.com" />
<meta name="generator" content="www.JsIce.com" />
<style type="text/css">
<!--
TABLE { BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 2px}
BODY {font-family:Sans Serif, Tahoma, Arial, Georgia, Courier, Times New Roman, Serif, Simsun;font-size:12px;MARGIN: 10;color: #000000;}
textarea,input,object,SELECT	{
	font-size:12px;font-family:Sans Serif, Tahoma, Arial, Georgia, Courier, Times New Roman, Serif, Simsun;vertical-align:middle;padding:1px;color:black;background-color:#FFFFFF;border:1px solid #B7C0C7;margin:2px;  
}
TD { BORDER-RIGHT: 1px; BORDER-TOP: 0px; FONT-SIZE: 9pt; COLOR: #000000;}
.head { color: #FFFFFF;padding: 4px;background:#163856 url('../Template/jdmb/thead.gif');font-weight:bold;BORDER: 1px solid #ffffff;}
.head:td{color: #FFFFFF;}
.f_one {background: #FFFFFF;PADDING-BOTTOM: 5px;PADDING-top: 8px;PADDING-left: 5px;PADDING-right: 8px;line-height:150%;}
.f_two {background: #FBFBFC;PADDING-BOTTOM: 5px;PADDING-top: 8px;PADDING-left: 5px;PADDING-right: 8px;line-height:150%;}
.t_one {background: #FFFFFF;PADDING-BOTTOM: 10px;PADDING-top: 10px;PADDING-left: 12px;PADDING-right: 8px;line-height:150%;}
.t_two {background: #FFFFFF;PADDING-BOTTOM: 5px;PADDING-top: 8px;PADDING-left: 5px;PADDING-right: 8px;line-height:150%;}
.r_one {background: #Ffffff;PADDING-BOTTOM: 5px;PADDING-top: 8px;PADDING-left: 5px;PADDING-right: 8px;line-height:150%;}
.r_two {background: #F3f4f5;PADDING-BOTTOM: 5px;PADDING-top: 8px;PADDING-left: 5px;PADDING-right: 8px;line-height:150%;}
.table { color:#000000;}
input	{
	font-size:12px;font-family:Sans Serif, Tahoma, Arial, Georgia, Courier, Times New Roman, Serif, Simsun;vertical-align:middle;padding:1px;color:black;background-color:#FFFFFF;border:1px solid #B7C0C7;margin:2px;  
}
-->
</style>
<title>站内短信 - <%=SiteName%> - Powered By JsIceWeb</title>
<script language="javascript">

//短消息内容长度显示
function textCounter(field, countfield, maxlimit) {
	var AddZero;
	var LeftLen;
	if(field.value.length > maxlimit)
		field.value = field.value.substring(0,maxlimit);
	else {
		LeftLen = maxlimit - field.value.length;
		AddZero = "";
		if( LeftLen>=0 && LeftLen<=9 )
			AddZero = "00";
		if( LeftLen>=10 && LeftLen<=99 )
			AddZero = "0";
		countfield.value = AddZero + LeftLen;
	}
}
</script>
</head>
<%if request.querystring("info")="" then%><table width="550" height="300" border="0" cellspacing="1" cellpadding="0" bgcolor="#b7c0c7" align="center"bordercolor="#1f3566" bordercolordark="#FFFFFF">
	<form name="form2" method="post" action="Admin_duanxinadd.asp?info=post" onsubmit="return chk_frm(this);">
		<tr align="center" bgcolor="#1C3566">
			<td colspan="3" height="35" class="head"><b><font color="#FFFFFF" size="2">&nbsp;站内短信服务&nbsp;</font></b></td>
		</tr>
		<tr>
			<td height="30" align="right" width="150" class="t_two">收信人昵称：</td>
			<td width="250" class="t_two">
			<input name="custom" type="text" class="but2" id="custom" value="<%=request("custom")%>" size="20">
			<br>留空则发给全部会员(相当于会员公告)</td>
<td align="right" width="200" class="t_two">
							还可填写 <input type="text" size="5" name="remLen" value="200"> 字留言 </td>

		</tr>
		<tr>
			<td height="200" align="right" width="150" class="t_two">信息内容：</td>
			<td valign="top" width="400" colspan="2" class="t_two">
			<textarea name="content" cols="46" rows="10" onkeydown="textCounter(this.form.content,remLen,200);" onkeyup="textCounter(this.form.content,remLen,200);" wrap="VIRTUAL" style="font-family: 宋体; font-size: 12pt; color: #000000"></textarea></td>
		</tr>
		<tr>
			<td align="center" colspan="3" class="t_two">
			<input name="Submit3" type="submit" class="but2" value="发送短信">&nbsp;&nbsp;&nbsp;&nbsp;
			<input name="Submit32" type="reset" class="but2" value="重置内容"></td>
		</tr>
	</form>
</table>
<%else
if request.form("content")="" then
	Response.Write ("<script>alert('   操作错误!\n\n 内容不能为空。');history.back();</script>")
	Response.end
end if
content=changechr(request.form("content"))
custom=request("custom")
if custom<>"" then
set rsu=server.CreateObject("adodb.recordset")
sql="select name,messenge from [Userinfo] where name='"&custom&"'"
rsu.open sql,conn,1,3
if rsu.eof and rsu.bof then
response.write "<script language=JavaScript>{window.alert(' 发送失败！\n\n 昵称不存在，请核实后再试！');history.back();}</script>"
Response.end
end if
rsu.close
set rsu=nothing
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from [siti_duanxin]"
rs.open sql,conn,1,3
rs.addnew
rs("nickname")=custom
rs("content")=content
rs("custom")=request.cookies("JsIceWeb")("admininfo_loginname")
if custom<>"" then
rs("sitis")=0
else
rs("sitis")=1
end if
rs("dateandtime")=now
rs.update
rs.close
set rs=nothing
Call ShowAdminSuccessMsg("发送成功！","javascript:window.close();")
end if

function changechr(str) 
    changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;") 
end function
%><p align="center"><%=SiteCopyright%></p>
⌨️ 快捷键说明

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