<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="db_conn.asp"-->
<!--#include file="my_libs/my_request.asp"-->
<!--#include file="my_libs/my_lib.asp"-->
<!--#include file="my_libs/comm.asp"-->
<%
call head("站內(nèi)短信_"&arrlist_s(0))
call top()
dim action
action=my_request("action",0)
if action="save" then
call save()
end if
%>
<script language=javascript>
function check(){
if(form1.msn0.value==''){
alert("您的姓名沒有填寫！");
form1.msn0.focus();
return false;
}
if(form1.msn1.value==''){
alert("信息主題沒有填寫！");
form1.msn1.focus();
return false;
}
if(form1.msn3.value==''){
alert("信息內(nèi)容沒有填寫！");
form1.msn3.focus();
return false;
}
if(form1.msn3.value.length > 200){
alert("內(nèi)容不能多于200字！");
return false;
}
}
function inputcheck(){
form1.textchek.value=form1.msn3.value.length
if(form1.textchek.value>200){
alert("您已經(jīng)寫夠200字了！再寫下去您將無法發(fā)送成功！");
}
}
</script>
<div align="center">
	<table border="0" width="760" cellpadding="4" class=istable>
		<tr class=smallblack>
			<td height="28">當(dāng)前位置: <a href="../">網(wǎng)站首頁</a> &gt;&gt;
			<a href="index.asp">線路預(yù)定</a> &gt;&gt; 站內(nèi)短信</td>
		</tr>
	</table>
</div>
<div align="center">
	<table border="0" width="760" cellpadding="4" class=istable>
		<tr class=smallblack>
			<td><font color="#ff0000">注意：</font><font color="#808080">請如實填寫，便于我們與您取得聯(lián)系。</font></td>
		</tr>
	</table>
</div>


<div align="center">
		 <table border="0" width="760" cellpadding="4" class=istable bordercolor="#808080">
		  <tr>
			<td class="toptd" height="28">&nbsp;<img border="0" src="images/ArrorWhite.gif" width="11" height="9"> 
			站 內(nèi) 短 信 :</td>
		  </tr>
		</table>
	   </div>
<div align="center">
	<table border="1" width="760" cellpadding="4" class=istable bordercolor="#D7D7D7">
		<tr>
			<td>
			<table border="0" width="100%" cellpadding="6" class=smallblack>
			<form action="smsAdd.asp" method=post name=form1 onSubmit="return check();">
				<tr>
					<td width="146" align="right">姓名：</td>
					<td><input size="30" name="msn0"></td>
				</tr>
				<tr>
					<td width="146" align="right">標(biāo)題：</td>
					<td><input size="30" name="msn1"></td>
				</tr>
				<tr>
					<td width="146" align="right">時間：</td>
					<td>
					<input size="30" name="msn2" value="<%=now()%>" readonly>
					<input type="hidden" name="action" value="save"></td>
				</tr>
				<tr>
					<td width="146" align="right">內(nèi)容：</td>
					<td>
					<textarea rows="8" name="msn3" cols="55" onKeyUp="inputcheck();" onKeyDown="inputcheck();"></textarea></td>
				</tr>
				<tr>
					<td width="146">　</td>
					<td><input type="submit" value="提 交" name="B2">&nbsp;
					<input type="reset" value="重 填" name="B1"> 您已經(jīng)寫了<input size="5" name="textchek" readonly>個字</td>
				</tr></form>
			</table>
			</td>
		</tr>
	</table>
</div>
<table border="0" width="100%" cellpadding="0" class=istable height="8">
	<tr>
		<td></td>
	</tr>
</table>
<div align="center">
	　</div>

<%call htmlend()
sub save()
dim arrs(3),y
for y=0 to 3
arrs(y)=my_request("msn"&y,0)
next
conn.execute ("insert into ssort_msn (zm_uzname,zm_title,zm_content,zm_msntime) values ('"&arrs(0)&"','"&arrs(1)&"','"&arrs(3)&"','"&arrs(2)&"')")
response.redirect "msnok.asp"
end sub
%>