?? feedback.asp
字號:
<!--#include file="comm/conn.asp"-->
<!--#include file="feedbackconfig.asp" -->
<HTML><HEAD>
<TITLE>網站留言-<%=sitename%>-<%=siteurl%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="shop.css" type="text/css">
<style>
.smoothscroll {
COLOR: #3c3c30; FONT-SIZE: 12px; scrollbar-face-color: #FFFFFF; scrollbar-arrow-color: #68635B; scrollbar-track-color: #ebebe7; scrollbar-shadow-color: #68635B; scrollbar-highlight-color: #68635B; scrollbar-3dlight-color: #ebebe7; scrollbar-darkshadow-color: #ebebe7
}
A.none { COLOR: #ff3300; TEXT-DECORATION: none}
A { COLOR: #ff3300; TEXT-DECORATION: none}
A:hover { COLOR: #ff9900; TEXT-DECORATION: none}
</style>
</HEAD>
<%
if request("action")="" then
wd= 760
%>
<BODY class=smoothscroll leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="images/fig_background.gif">
<div align=center> <!--#include file="menu/topbar.asp"--></div>
<%
else
%>
<%
wd= 530
end if
set rsfeed=Server.CreateObject("ADODB.RecordSet")
sql="select * from Feedback where online='1' order by Postdate desc"
rsfeed.open sql,conn,1,3
if request("send")="ok" then
if request("name")="" or request("comments")="" then
response.write "<script language='javascript'>"
response.write "alert('無效輸入！請檢查您填寫的內容');"
response.write "location.href='"&pageurl&"feedback.asp';"
response.write "</script>"
else
rsfeed.Addnew
rsfeed("username")=Request("name")
rsfeed("comments")=Request("comments")
rsfeed("usermail")=Request("email")
rsfeed("online")=Request("online")
rsfeed.Update
Response.Redirect "feedback.asp?action="&request("action")
end if
end if
call display()
sub display()
if rsfeed.eof and rsfeed.bof then
response.write "<table border=""0"" align=""center"" height=150 bgcolor=#ffffff width="&wd&"> <tr><td height=30>目前位置：首頁 > 在線留言 </td></tr><tr><td width="&wd&" height=1 background=images/bg_xg_01.gif></td></tr><tr><td align=center>留言板上暫時沒有留言</td></tr></table>"
else
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rsfeed.pagesize=8
rsfeed.AbsolutePage=pagecount
if request("action")="" then
%>
<TABLE border=0 cellPadding=2 cellSpacing=0 width=<%=wd%> align="center" bgcolor=#ffffff>
<tr><td height=30>目前位置：首頁 > 在線留言 </td></tr>
<tr><td width="569" align="center" height="1" background="images/bg_xg_01.gif"></td></tr>
<tr><td height=10></td></tr>
<%end if%>
<TABLE border=0 cellPadding=2 cellSpacing=0 width=<%=wd%> align="center">
<%
Do While Not rsfeed.eof
content=rsfeed("Comments")
if content<>"" then content=Autolink(content)
Replay=rsfeed("Replay")
if Replay<>"" then Replay=Autolink(Replay)
UserName=rsfeed("UserName")
if UserName<>"" then UserName=Autolink(UserName)
%>
<TR>
<TD bgColor=#ebebe7> <b><%=UserName%> 留言：</b></TD>
<TD bgColor="#ebebe7" align="right"> <%=cstr(rsfeed("Postdate")) %> </TD>
</TR>
<TR>
<TD colSpan=2 bgcolor="#ffffff" style="padding:5pt"><SPAN class=newstext>
<%=content%>
<%if rsfeed("Replay")<>"" then%>
</SPAN>
<table width="100%" border="0" cellpadding="5" cellspacing="2">
<tr>
<td><B><font color="#ff0000">客服回復：</font></B> <font color="#003399"><%=Replay%></font></td>
</tr>
</table>
<%end if%>
</TD>
</TR>
<%
N=N+1
rsfeed.movenext
if n>=rsfeed.pagesize then exit do
loop
%> </TABLE>
<%
END IF
%>
<%
if request("action")="" then
%>
<table width=<%=wd%> border="0" cellspacing="1" cellpadding="2" bgcolor=#CCCCCC align="center">
<form action="<%=pageurl%>" method="post" >
<tr>
<td height="22" bgcolor="#FFFFFF">
<div align="center">頁次: <b><font color=red><%=pagecount%></font>/<%=rsfeed.pagecount%></b>
<% if pagecount=1 and rsfeed.pagecount<>pagecount and rsfeed.pagecount<>0 then%>
<a href="<%=pageurl%>?page=<%=cstr(pagecount+1)%>"> 下一頁</a>
<% end if %>
<% if rsfeed.pagecount>1 and rsfeed.pagecount=pagecount then %>
<a href="<%=pageurl%>?page=<%=cstr(pagecount-1)%>"> 上一頁</a>
<%end if%>
<% if pagecount<>1 and rsfeed.pagecount<>pagecount then%>
<a href="<%=pageurl%>?page=<%=cstr(pagecount-1)%>"> 上一頁</a> <a href="<%=pageurl%>?page=<%=cstr(pagecount+1)%>">
下一頁</a>
<% end if%>
轉到第
<select name="page">
<%for i=1 to rsfeed.pagecount%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
頁
<input type="submit" name="go" value="Go">
</div>
</td>
</tr>
</form>
</table>
<%
else
%>
<br>
<table border=0 cellpadding=3 cellspacing=1 width=<%=wd%> class="dfont" bgcolor="#CCCCCC" align="center">
<tr>
<td align=RIGHT bgcolor="#FFFFFF"><a href="feedback.asp" target="_blank">查看更多留言-> </a> </td>
</tr>
</table>
<%
end if
set rsfeed=nothing
end sub
%>
<table width="<%=wd%>" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td>
<table border=0 cellpadding=3 cellspacing=1 width=450 class="dfont" align="center" bgcolor=#ffffff>
<tr>
<td height=10 colspan=2> </td>
</tr>
<script language="JavaScript">
function checkform(){
if (javaTrim(document.feedback.comments.value) ==""){
alert("請正確填寫留言內容。");
document.feedback.comments.focus();
document.feedback.comments.value="";
return false;
}
if (javaTrim(document.feedback.email.value) ==""){
alert("請正確填寫電子郵箱。");
document.feedback.comments.focus();
document.feedback.email.value="";
return false;
}
if (javaTrim(document.feedback.name.value) ==""){
alert("請正確填寫用戶名。");
document.feedback.name.focus();
document.feedback.name.value="";
return false;
}
return true;
}
function javaTrim(str) {
for (var i=0; (str.charAt(i)==' ') && i<str.length; i++);
if (i == str.length) return ''; //whole string is space
var newstr = str.substr(i);
for (var i=newstr.length-1; newstr.charAt(i)==' ' && i>=0; i--);
newstr = newstr.substr(0,i+1);
return newstr;
}
//判斷輸入文字多少
function textCounter(maxlimit) {
if (document.feedback.comments.value.length > maxlimit)
{alert(" 留言紙太小了，寫不下 "+maxlimit+" 個字，另起一頁吧！^!^ ");
document.feedback.comments.value = document.feedback.comments.value.substring(0, maxlimit);
return false;
}
return true;
}
</script>
<form action="<%=pageurl%>" method="post" onSubmit="return checkform();" name="feedback">
<tr>
<td width="80" align="right">姓名*： </td>
<td> <input name="name" class=field size=18 maxlength="10" value="<%=Session("estore_userid")%>">
信箱*：
<input name="email" class=field size=18 maxlength="30"> </td>
</tr>
<tr>
<td align="right" valign="top">方式*：</td>
<td> 公開留言
<input name="online" type="radio" value="1" checked> 隱藏
<input name="online" type="radio" value="0">
(僅客服可見，請留下聯系方式) </td>
</tr>
<tr>
<td align="right" valign="top">內容*： </td>
<td> <textarea class=field cols=50 name=comments rows=4 onKeyDown="textCounter(200);"></textarea>
</td>
</tr>
<tr align="center">
<td colspan="2"> <input type="submit" name="Submit" value="提交留言">
<input type="hidden" name="send" value="ok"> </td>
</tr>
<tr><td> </td></tr>
</form>
</table></td>
</tr>
</table>
<%
if request("action")="" then
%>
<!--#include file="menu/bottom.asp"-->
<%
end if
%>
</BODY>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -