📄 fk.asp
字号:
<!--
┌─9911.com.cn────────────┐
│ 动感购物 WWW.9911.com.cn 版权所有 │
│ 动感购物2005Vb 联系：web@snsn.net │
└───────────9911.com.cn──┘
-->
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="fuction.asp"-->
<html>
<head>
<title><%=webname%>--留言反馈</title>
<style type="text/css">
<!--
.style1 { color: #FF6600;
font-weight: bold;
}
-->
</style>
<link rel="SHORTCUT ICON" href="/shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin=0 topmargin=0 marginwidth="0" marginheight="0">
<!-- onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦！：）';return true">-->
<!--#include file="webtop.asp"-->
<table width="940" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="17"><img src="/img/index_1.gif" width="15" height="16"></td>
<td valign="bottom">您现在的位置是：<a href="<%=weburl%>"><%=webname%></a> ->
用户留言</td>
<td valign="bottom">
</td>
</tr>
<tr>
<td height="6" colspan="3"></td>
</tr>
</table>
<table width="945" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<%if ly="0" then%><TABLE width="90%" border=0 align="center" cellPadding=0 cellSpacing=1>
<FORM action=fksave.asp method=post name="form" id="form"> <TBODY>
<TR>
<TD height="30"> 姓名：
<input name=name class="wenbenkuang" id="name">
OICQ：
<input name=qq class="wenbenkuang" id="qq2">
<label>
<input name="sex" type="radio" value="boy" checked>
先生</label><label>
<input type="radio" name="sex" value="girl">
小姐</label></TD>
</TR>
<TR>
<TD height="30"> 网址：
<input name=url class="wenbenkuang" id="url" value="http://">
邮箱：
<input name=email class="wenbenkuang" id="email"> </TD>
</TR>
<TR>
<TD height="130" noWrap> <textarea name=content cols=80 rows=8 id="content" class="wenbenkuang">留言内容：</textarea>
</TD>
<TR>
<TD height="30" colspan="2"> <input name="submit2" type=submit class="go-wenbenkuang" id="submit4" value=我要留言>
<input name="submit32" type=reset class="go-wenbenkuang" id="submit32" value=清除重来>
<%
Randomize '初始代随机数种子
num1=rnd() '产生随机数num1
num1=int(26*num1)+65 '修改num1的范围以使其是A-Z范围的Ascii码，以防表单名出错
session("antry")="test"&chr(num1) '产生随机字符串
%>
<input name="temp" type="hidden" id="temp" value="<%=session("antry")%>">
</TD>
</TR>
</TBODY></FORM>
</TABLE>
<%else%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="98%" border="0" align="center">
<tr>
<td align="center">
<%
Function unHtml(content)
ON ERROR RESUME NEXT
unHtml=content
IF content <> "" Then
unHtml=Server.HTMLEncode(unHtml)
unHtml=Replace(unHtml,vbcrlf,"<br>")
unHtml=Replace(unHtml,chr(9)," ")
unHtml=Replace(unHtml," "," ")
End IF
IF Err.Number <>0 Then
unHtml= "HTML转换中出错请联系管理员<br>"
Err.Clear
End IF
End Function
%><%
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_guestshop order by id desc",conn,3,2
%>
<SCRIPT language=JavaScript>
function is_number(str)
{
exp=/[^0-9()-]/g;
if(str.search(exp) != -1)
{
return false;
}
return true;
}
function CheckInput(){
if(form.name.value==''){
alert("您没有填写昵称！");
form.name.focus();
return false;
}
if(form.name.value.length>20){
alert("昵称不能超过20个字符！");
form.name.focus();
return false;
}
if(!is_number(document.form.qq.value)){
alert("QQ号必须是数字！");
form.qq.focus();
return false;
}
if(form.content.value==''){
alert("您没有填写留言内容！");
form.content.focus();
return false;
}
if(form.content.value.length>255){
alert("留言内容不能超过255个字符！");
form.content.focus();
return false;
}
return true;
}
</SCRIPT>
<%
if rs.eof and rs.bof then
%>
<table width="380" border="0" align="center" cellpadding="4" >
<tr>
<td height="40" align="center"> <p>还没有任何留言！</p></td>
</tr>
</table>
<%else%>
<%
rs.PageSize =5 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
per_page=rs.PageSize
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -