📄 ask.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="public.asp"-->
<%
function HTMLEncodeNO(fString)
if fString <> "" and Not isnull(fString) Then
fString = Replace(fString, "<", ",")
fString = Replace(fString, "/>", ",")
fString = Replace(fString, ">", ",")
End IF
HTMLEncodeNO = fString
end function
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
n = 0
ClassArr = ""
l = 0
ThenURL = Split(Request.ServerVariables("QUERY_STRING"), "&")
ThenTemp_C = "CS=Yes&"
For Each g In ThenURL
IF g <>"" then
gg = Split(g, "=")
if gg(0) <> "C" AND gg(0) <> "S" and gg(0) <> "submit" and gg(0) <> "S1" and gg(0) <> "CS" THEN
ThenTemp_C = ThenTemp_C & gg(0) & "="& gg(1) &"&"
end if
end if
Next
IF Not Isnull(ClassStr) AND ClassStr <> "" Then
ClassStr_1 = Split(ClassStr,",")
For i = 0 to Ubound(ClassStr_1)
IF Not Isnull(Trim(ClassStr_1(i))) and Trim(ClassStr_1(i)) <> "" Then
IF Not Isnull(C) AND C <> "" Then
Set Rs = Conn.Execute("Select * From Class Where NumberID like '"& C &"%' and NumberID = '"& Trim(ClassStr_1(i)) &"'")
Else
Set Rs = Conn.Execute("Select * From Class Where NumberID = '"& Trim(ClassStr_1(i)) &"'")
End IF
IF Not(Rs.eof and Rs.bof) Then
'当转到下一个类别时，上级分类只小于2个时，全清空
IF l <> Int(Rs("LagID")) Then
IF n < 2 Then
n = 0
ClassArr = ""
Else
ok = 1
end if
End IF
IF ok <> 1 Then
ClassArr = ClassArr & " · <a href = Default.asp?"& ThenTemp_C &"C="& Rs("NumberID") &">"& Rs("Class") &"</a><br>"
n = n + 1
End IF
l = Int(Rs("LagID"))
End IF
End IF
Next
End IF
NavigationArr = "<a href=./ class=none1>"& ShopName &"</a> > <a href=./SeaveInfo.asp class=none1>留言反馈</a>" & ServeArr
'===================================================读取
%>
<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="../../../Search/images/search.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include File="Top.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1%" height="24"><img src="../../../Search/images/search_5.gif" width="10" height="24"></td>
<td width="97%" align="center" valign="bottom" background="../../../Search/images/search_7.gif">
<table width="82%" height="23" border="0" cellpadding="0" cellspacing="0">
<tr align="center">
<td width="18%" class="text_4"><span class="text_3"><a href="./" class="link2">商品/服务展示</a></span></td>
<td width="12%" class="text_4"><a href="News.asp" class="link2">新闻动态</a></td>
<td width="12%" class="text_4"><a href="SeaveInfo.asp" class="link2">服务中心</a></td>
<td width="12%" bgcolor="#F16507" class="text_4"><a href="Ask.asp" class="link2"><span class="text_3">留言反馈</span></a></td>
<td width="12%" class="text_4"><a href="../../../Historical/Info.asp?ID=<%=ShopNumberID%>" target="_blank" class="link2">卖家档案</a></td>
<td width="34%"> </td>
</tr>
</table></td>
<td width="1%" align="right"><img src="../../../Search/images/search_6.gif" width="10" height="24"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4" bgcolor="#FF6600"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="85%" height="40" align="left" valign="bottom"> <%=NavigationArr%>
</td>
<td width="15%" align="center" class="text_4"><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="None1"><u><strong>点这里给卖家留言</strong></u></a></span></td>
</tr>
</table>
<table width="100%" height="300" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="180" valign="top">
<table width="98%" border="0" cellpadding="1" cellspacing="1" bgcolor="#CDCDCD">
<tr>
<td bgcolor="ffffff"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" align="center" bgcolor="#FF6600"><font color="#FFFFFF" size="2"><strong>商品分类</strong></font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td>
<%
Response.write ClassArr
%>
</td>
</tr>
</table> </td>
</tr>
</table>
</td>
<td align="left" valign="top">
<table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#999999"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<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="0" 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
%>
<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>")
end if
rs.close
set rs=nothing
%>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#999999"></td>
</tr>
</table>
<!--#include file="Foot.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -