?? smsadd.asp
字號:
<%@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> >>
<a href="index.asp">線路預(yù)定</a> >> 站內(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"> <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">
<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
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -