📄 qhdj.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>
<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> -> <span class="table-shangxia">商品缺货登记</span></td>
<td valign="bottom">
</td>
</tr>
<tr>
<td height="6" colspan="3"></td>
</tr>
</table>
<table width="760" 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"> <FORM action=qhsave.asp method=post name="form" id="form">
<br>
<TABLE width="90%" border=0 align="center" cellPadding=0 cellSpacing=1>
<TBODY>
<TR>
<TD height="25"> 用户姓名： <input name=name class="wenbenkuang" id="name" value="<%=session("username")%>">
* 性别：
<input name="sex" type="radio" value="boy" checked>
先生
<input type="radio" name="sex" value="girl">
小姐</TD>
</TR>
<TR>
<TD height="25"> <label>所缺商品：
<input name=shp class="wenbenkuang" id="shp2" size="34">
*必需填写 </label></TD>
</TR>
<TR>
<TD height="25"> 联系方式：
<input name=qq class="wenbenkuang" id="qq2" size="34"> <label>可以填写QQ或MSN</label></TD>
</TR>
<TR>
<TD height="25"> 用户邮箱：
<input name=email class="wenbenkuang" id="email2" size="34">
*</TD>
</TR>
<TR>
<TD height="25"> 用户网址：
<input name=url class="wenbenkuang" id="url3" value="http://" size="34">
</TD>
</TR>
<TR>
<TD height="25"> 留言内容：带*号是为必需填写项目</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>
</TABLE>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
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
%></td>
</tr>
</table>
</FORM> </td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="copyright.asp"-->
<%
Sub PageControl(iCount,pagecount,page,table_style,font_style,per_page)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
temp=""
Response.Write("<table " & Table_style & ">" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
Response.Write("<TD align=right>" & vbCrLf )
Response.Write(font_style & vbCrLf )
if page<=1 then
Response.Write ("首页 " & vbCrLf)
Response.Write ("上页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
end if
if page>=pagecount then
Response.Write ("下页 " & vbCrLf)
Response.Write ("尾页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)
end if
Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf)
Response.Write(" 共有" & iCount & "条/每页"&per_page&"条" & vbCrLf)
Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page SIZE=4 Maxlength=8 VALUE=" & page & " class=wenbenkuang>" & "页" & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=go-wenbenkuang>")
Response.Write("</TD>" & vbCrLf )
Response.Write("</TR></form>" & vbCrLf )
Response.Write("</table>" & vbCrLf )
End Sub
%> <td></td>
</tr>
</table></body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -