?? writemsg.asp
字號(hào):
<!-- #include file="inc/config.asp" -->
<link type="text/css" href="css/index.css" rel="stylesheet">
<title>留言建議</title>
<!-- #include file="top.asp" -->
<%
sqlstr="select * from [Message] order by qmmessage_id desc"
rs.open sqlstr,conn,1,3
if not rs.eof then
rs.pagesize=6
page_num=message_count/6
page_now=1
if trim(request.QueryString("page"))<>"" then
call CheckNum(request.QueryString("page"))
page_now=cint(trim(request.QueryString("page")))
end if
if page_now>rs.pagecount or page_now<0 then
page_now=1
end if
rs.absolutepage=page_now
i=1
while (not rs.eof) and i<7
%>
<div id="div_7"><%=rs("qmmessage_usname")%> <%=rs("qmmessage_usadddate")%></div>
<div id="div_5"><%=rs("qmmessage_usinfo")%><br /></div>
<%if rs("qmmessage_admreinfo")<>"" then%>
<div id="div_8"><%=rs("qmmessage_admredate")%></div>
<div id="div_5"><font color="#FF0000"><%=rs("qmmessage_admreinfo")%></font><br><br></div>
<%end if%>
<%
rs.movenext
i=i+1
wend
%>
<div id="div_6"><br>
<form name="form2" action="" method="get" onSubmit="return Check_Num(this)">
當(dāng)前第<%=page_now%>頁
<%if page_now=1 then%>首頁
<%else%>
<a href="writemsg.asp?page=1">首頁</a>
<%end if%>
<%if page_now>1 and rs.pagecount>1 then%>
<a href="writemsg.asp?page=<%=page_now-1%>">上一頁</a>
<%else%>上一頁
<%end if%>
<%if page_now<rs.pagecount then%>
<a href="writemsg.asp?page=<%=page_now+1%>">下一頁</a>
<%else%>下一頁
<%end if%>
<%if page_now<>rs.pagecount then%>
<a href="writemsg.asp?page=<%=rs.pagecount%>">尾頁</a>
<%else%>尾頁
<%end if%>
共<%=rs.pagecount%>頁/<%=message_count%>條
轉(zhuǎn)到:
<input name="Num" type="text" size="2"> 頁
<input type="button" value="GO" class="class6" onclick="javascript:location.href='writemsg.asp?page='+Num.value;">
<input name="Max" type="hidden" value="<%=rs.pagecount%>">
</form>
</div>
<%else%>
<div id="div_4"><br />暫無留言!<br /><br /></div>
<%
end if
rs.close
%>
<script language="javascript" type="text/javascript">
<!--
function Check_form1(obj){
if (obj.message_usname.value==""){
alert("請(qǐng)留下您的稱呼!");
obj.message_usname.focus();
return false;
}
if (obj.message_usname.value.length<2 || obj.message_usname.value.length>16){
alert("留言者稱呼必須在2—16個(gè)字符之間");
obj.message_usname.select();
return false;
}
if (obj.message_email.value==""){
alert("請(qǐng)留下您的email!");
obj.message_email.focus();
return false;
}
var reg2 = /^.+@[^\.].*\.[a-z]{2,}$/
if (!reg2.test(obj.message_email.value)){
alert("郵箱格式不對(duì)!");
obj.message_email.value.focus();
return false;
}
if (obj.message_usinfo.value==""){
alert("留言內(nèi)容不能夠?yàn)榭眨?quot;);
obj.message_usinfo.focus();
return false;
}
if (obj.message_usinfo.value.length>500){
alert("對(duì)不起,留言內(nèi)容需要控制在500個(gè)字符內(nèi)!");
obj.message_usinfo.select();
return false;
}
}
-->
</script>
<%
if request.Form.count>0 then
message_usname=request.Form("message_usname")
message_usinfo=request.Form("message_usinfo")
message_email=request.Form("message_email")
str0=message_usname
str=message_usinfo
str0=replace(str0,"<","")
str0=replace(str0,">","")
str0=replace(str0,"%","")
str0=replace(str0,"/","")
str=replace(str,"<","")
str=replace(str,">","")
str=replace(str,"%","")
str=replace(str,"/","")
sqlstr="select * from [Message]"
rs.open sqlstr,conn,1,3
rs.addnew
rs("qmmessage_usname")=str0
rs("qmmessage_usinfo")=str
rs("qmmessage_email")=message_email
rs.update
rs.close
call ShowErr("留言添加成功!","writemsg.asp")
end if
%>
<div id="div_9">填寫你的意見或者建議或糾正路線留言</div>
<div id="div_5">
<form name="form1" method="post" action="" onsubmit="return Check_form1(this)">
請(qǐng)留稱呼:<input type="text" name="message_email" /><br /><br />
EMAIL:<input type="text" name="message_usname" /><br /><br />
留言內(nèi)容:<textarea name="message_usinfo" style="width:360px; height:100px;"></textarea>
<br /><br />
<center><input type="submit" value="添加留言" class="class6" /></center>
</form>
</div>
<!-- #include file="bottom.asp" -->
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -