📄 ask.asp
字号:
<!--#include File="Conn.asp"-->
<!--#include File="Left.asp"-->
<%
'==================================新闻分类
Dim NavigationName_1
Set Rs = Conn.Execute("Select * From ServeInfo Where ShopNumberID = '"& ShopNumberID &"'")
While Not Rs.Eof
NavigationName_1 = NavigationName_1 & "·<a href=SeaveInfo.asp?SeaveID="& Rs("ID") &">"& Rs("NavigationName") &"</A><br>"
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
NavigationArr= "<a href=./>首页</a> > <a href=./Ask.asp>给我留言</a>"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>给我留言-<%=HTMLEncodeNO(ShopName)%>-<%=HTMLEncodeNO(ShopTitle)%>-互联之光大卖场</title>
<meta name="keywords" content="<%=HTMLEncodeNO(ShopKey)%>">
<meta name="description" content="<%=HTMLEncodeNO(ShopContent)%>">
<link href="CSS.CSS" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<!--#include File="Top.asp"-->
<table width="760" height="400" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="ffffff">
<tr>
<td width="182" valign="top" background="images/i_35.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td height="4"></td>
</tr>
</table>
<%Call ClassS()%>
</td>
</tr>
</table>
</td>
<td width="4" valign="top"> </td>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="86%" height="24" background="images/i_8.gif"><%=NavigationArr%></td>
<td width="14%" align="center" background="images/i_8.gif"><span class="TEXT_1"><a href="javascript:;" onClick="javascript:window.open('../../../LeaveWord/Asking.asp?ShopNumberID=<%=ShopNumberID%>','Asking','width=660,height=500,toolbar=yes, status=no, menubar=no, resizable=no, scrollbars=yes');" Class="link">给卖家留言</a></span></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <%
SQL = "select * from Asking where ShopNumberID='"& ShopNumberID &"' order by DateTime Desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
%>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#EBEBEB">
<tr bgcolor="ffffff" class="text_7">
<td height="25" colspan="3" class="text_7">没有记录</td>
</tr>
</table>
<%
Else
%>
<!--#include File="Page.asp"-->
<%
For ii = 1 To x
IF Rs("UserNumberID") <> "" Then
Set Rsu = Conn.Execute("select * from [User] where UserNumberID='"& Rs("UserNumberID") &"'")
IF Not (Rsu.eof and Rsu.bof) Then
NameStr = ""& Rsu("UserName") &""
Else
IF Rs("CuestName") <> "" Then
NameStr = "来宾："& Rs("GuestName") &""
Else
NameStr = "来宾："& Rs("IP") &""
End IF
End IF
Rsu.Close
Set Rsu = Nothing
Else
NameStr = "来宾："& Rs("GuestName") &""
End IF
DateTime = Rs("DateTime")
BackTime = Rs("BackTime")
WebMaserBackTime = Rs("WebMaserBackTime")
ProductName = ""
Set Rsp = Conn.Execute("Select * From Product Where ProductNumberID='"& Rs("ProductNumberID") &"'")
IF Not Rsp.eof Then
ProductName = Rsp("ProductName")
DateTimeStr = Rsp("DateTime")
End IF
Rsp.Close
Set Rsp = Nothing
%>
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr valign="top" bgcolor="ffffff">
<td width="13%" height="12" align="right" valign="middle">会员留言：</td>
<td width="60%" height="12" valign="middle"><strong><%=NameStr%>：</strong><%=HTMLEncodeNO(Rs("AskContent"))%></td>
<td width="27%" height="12"><font color="#999999"><%=DateTime%></font></td>
</tr>
<tr valign="top" bgcolor="ffffff">
<td height="12" align="right" valign="middle">咨询商品：</td>
<td width="60%" height="12" valign="middle">
<%
IF ProductName ="" Then
Response.Write("未指定商品")
Else
%>
<A href="../../../Product/<%=Year(DateTimeStr)%>/<%=Month(DateTimeStr)%>/<%=Rs("ProductNumberID")%>.Html" target="_blank" class=none1 title="点击查看商品：<%=ProductName%>的详情"><%=ProductName%></a></td>
<%End IF%>
<td width="27%" height="12"> </td>
</tr>
<tr valign="top" bgcolor="ffffff">
<td width="13%" height="25" align="right" valign="middle">卖家回复：</td>
<td height="25" valign="middle"><%=HTMLEncodeNO(Rs("BackContent"))%></td>
<td width="27%" height="25" valign="middle"><font color="#999999"><%=BackTime%></font></td>
</tr>
<tr valign="top" bgcolor="ffffff">
<td width="13%" height="25" align="right" valign="middle">互联之光：</td>
<td height="25" valign="middle"><%=HTMLEncodeNO(Rs("WebMaserBack"))%></td>
<td width="27%" height="25" valign="middle"><font color="#999999"><%=WebMaserBackTime%></font></td>
</tr>
</table>
<hr width="96%" size="1" color="#dddddd" noshade>
<%
rs.movenext
next
end if
rs.close
set rs=nothing
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td>
<%
Page_links=""
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
%></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
<!--#include File="End.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -