📄 create_shoping.asp
字号:
Rs.Open SQL, Conn, 1, 1
If Rs.EOF And Rs.bof Then
HtmlString = HtmlString & "<p align=center>还没有任何分类！</p>"
Else
Do While Not Rs.EOF
for i = 1 to 2
if not Rs.eof then
HtmlString = HtmlString & DownsysClass.TempSet(2)
If CStr(Rs("sortid")) = CStr(sortid) Then
ShopingName = "<td><A href='" & DownsysClass.SetupDir & "Shoping"& ii &"/Catalog" & Rs("sortid") & "/Shoping_indate_Desc_1.html' class=ShowLink><B><FONT color=red>" & Rs("sortname") & "</font></B></a></td>"
SortName = "<td><A href='" & DownsysClass.SetupDir & "Shoping"& ii &"/Catalog" & Rs("sortid") & "/Shoping_indate_Desc_1.html'' class=ShowLink><B><FONT color=red>" & Rs("sortname") & "</font></B></a></td>"
Else
ShopingName = "<td><A href='" & DownsysClass.SetupDir & "Shoping"& ii &"/Catalog" & Rs("sortid") & "/Shoping_indate_Desc_1.html' title='" & Rs("Readme") & "'>" & Rs("sortname") & "</a></td>"
SortName = "<td><A href='" & DownsysClass.SetupDir & "Shoping"& ii &"/Catalog" & Rs("sortid") & "/Shoping_indate_Desc_1.html' title='" & Rs("Readme") & "'>" & Rs("sortname") & "</a></td>"
End If
HtmlString = Replace(HtmlString, "{$SortName}", SortName)
HtmlString = Replace(HtmlString, "{$SoftNum}", Rs("SoftNum"))
Rs.movenext
else
HtmlString = HtmlString & DownsysClass.TempSet(2)
ShopingName = "<br>"
SortName = "<br>"
HtmlString = Replace(HtmlString, "{$SortName}", SortName)
end if
next
HtmlString = HtmlString & DownsysClass.TempSet(2)
ShopingName = "</tr><tr><td height=1 align=center ></td></tr><tr >"
SortName = "</tr><tr><td height=1 align=center ></td></tr><tr >"
HtmlString = Replace(HtmlString, "{$SortName}", SortName)
Loop
End If
HtmlString = HtmlString & "</table>"
Rs.Close
Set Rs = Nothing
SoftShoping = HtmlString
End Function
'*************************************************************
'函数作用：分类大类列表
'*************************************************************
Private Function Shopings()
Dim Rs
Dim Rs_c
Dim HtmlString
Dim TotalNumber
Dim TotalNum
Dim i,m
Set Rs = CreateObject("adodb.recordset")
Set Rs_c = CreateObject("adodb.recordset")
HtmlString = HtmlString & "<tr><td width=""50%"" valign=""top"">" & vbCrLf
Rs.Open "select * from NC_shopsort Where Parentid=" & sortid & " order by sortid asc", conn, 1, 1
If Not (Rs.bof And Rs.EOF) Then
Do While Not Rs.EOF
for m = 1 to DownsysClass.TempSet(3)
if not Rs.eof then
HtmlString = HtmlString & " <table><TR>" & vbCrLf
HtmlString = HtmlString & " <TD width=""50%"" class=paddlefthome>"
If CInt(DownsysClass.Setting(5)) = 0 Then
HtmlString = HtmlString & "<a href='" & DownsysClass.SetupDir & "Shoping"& ii &"/Catalog" & Rs("sortid") & "/Shoping_Indate_Desc_1.html' title='" & Rs("readme") & "'><b>" & Rs("sortName") & "</b></a> "
Else
HtmlString = HtmlString & "<a href='" & DownsysClass.SetupDir & "Shoping.Asp?sortid=" & Rs("sortid") & "' title='" & Rs("readme") & "'>" & Rs("sortName") & "</a> "
End If
HtmlString = HtmlString & "</TD></tr><tr><TD width=""100%"" class=paddhome>" & vbCrLf
'二级目录循环开始
Rs_c.Open "select * from NC_shopsort where depth = 2 and Parentid=" & Rs("sortid") & " order by sortid asc", conn, 1, 1
If Rs_c.bof And Rs_c.EOF Then
HtmlString = HtmlString & "没有添加分类"
Else
TotalNumber = Rs_c.recordcount
i = 1
Do While Not Rs_c.EOF
If CInt(DownsysClass.Setting(5)) = 0 Then
HtmlString = HtmlString & "<a href='" & DownsysClass.SetupDir & "Shoping"& ii &"/Catalog" & Rs_c("sortid") & "/Shoping_Indate_Desc_1.html' title='" & Rs_c("readme") & "'>" & Rs_c("sortName") & "</a> " & vbCrLf
Else
HtmlString = HtmlString & "<a href='" & DownsysClass.SetupDir & "Shoping.Asp?sortid=" & Rs_c("sortid") & "' title='" & Rs_c("readme") & "'>" & Rs_c("sortName") & "</a> " & vbCrLf
End If
If (i Mod CInt(DownsysClass.mainset(28))) = 0 And i <> TotalNumber Then
HtmlString = HtmlString & " <br></tr>"
End If
i = i + 1
Rs_c.movenext
Loop
End If
Rs_c.Close
'二级目录循环结束
HtmlString = HtmlString & " </TR></table><br>"
Rs.movenext
'分列排序，开始
else
HtmlString = HtmlString & ""
end if
next
HtmlString = HtmlString & " </TD><td width=""50%"" valign=""top"">"
Loop
End If
Rs.Close
Set Rs_c = Nothing
Set Rs = Nothing
Shopings = HtmlString
End Function
'显示搜索的内容和搜索数量的结果
Private Function ShowPage1(sortid, rootid, depth, SortName, order_name, maxperpage, CurrentPage, strOrder)
Dim Rs, SQL, HtmlString, i, TopImg, isCommend, SoftImg,Rs1, SQL1
Dim SoftName, SoftReadme, SoftTime, SoftSize
Dim thiscolor
Dim HtmlShowPage
Set Rs = Server.CreateObject("adodb.recordset")
Set Rs1 = Server.CreateObject("adodb.recordset")
If Len(sortid) = 0 Then
WhereSQL = "where isLock=0 and SoftType like '%" & Trim(SoftType(ii)) & "%'"
Else
If depth = 0 Then
WhereSQL = "where isLock=0 and SoftType like '%" & Trim(SoftType(ii)) & "%' and rootid = " & rootid & ""
Else
Dim Rss, AllSortID, ParentStr
Set Rss = DownsysClass.Execute("select * from NC_shopsort where strParent like '%"& sortid &"%'")
If Rss.EOF And Rss.bof Then
AllSortID = sortid
Else
Do While Not Rss.EOF
ParentStr = Split(Rss("strParent"), ",")
For i = 0 To UBound(ParentStr)
If CLng(ParentStr(i)) = sortid Then
AllSortID = AllSortID & Rss("sortid") &","
Exit For
End If
Next
Rss.movenext
Loop
AllSortID = AllSortID & sortid
End If
Rss.Close
Set Rss = Nothing
WhereSQL = "where isLock=0 and SoftType like '%" & Trim(SoftType(ii)) & "%' and sortid in (" & AllSortID & ")"
End If
End If
TotalNumber = Conn.Execute("Select count(softid) from [NC_ShopInfo] "& WhereSQL &"")(0)
HtmlShowPage = HtmlShowPage & "" & totalnumber & ""
ShowPage1 = HtmlShowPage
End Function
'行业下拉框选择项目
Private Function hangye()
Dim rs2,sql2,HtmlShowPage
HtmlShowPage = HtmlShowPage &" <SELECT name=CategoryId id=""CategoryId""> "
HtmlShowPage = HtmlShowPage &" <OPTION value='0' selected>＝选择行业＝</OPTION>"
set rs2=server.createobject("adodb.recordset")
sql2="select * from NC_shopsort where depth=0 order by sortid "
rs2.open sql2,conn,1,3
do while not rs2.EOF
HtmlShowPage = HtmlShowPage & "<option value='"& rs2("rootid") &"'>"& trim(rs2("SortName")) &"</option>"
rs2.MoveNext
loop
Rs2.Close
HtmlShowPage = HtmlShowPage & "</SELECT>"
hangye = HtmlShowPage
End Function
'搜索下拉框选择项目(整体分类部分：供应、求购)
Private Function sousuo()
Dim SoftType
Dim HtmlShowPage
Dim ii
HtmlShowPage = HtmlShowPage &" <select name=""action""> "
HtmlShowPage = HtmlShowPage &" <option value=""soft"" selected>全部信息</option>"
SoftType = Split(DownsysClass.Setting(35), ",")
For ii = 0 To UBound(SoftType)
HtmlShowPage = HtmlShowPage & "<option value=""soft"& ii &""">" & Trim(SoftType(ii)) & "</option>"
Next
HtmlShowPage = HtmlShowPage & "<option value=""info"">文章搜索</option></SELECT>"
sousuo = HtmlShowPage
End Function
'搜索下拉框选择项目(整体分类部分：供应、求购)
Private Function sousuolei()
Dim HtmlShowPage
HtmlShowPage = HtmlShowPage & "<input type=hidden name=""Action"" value=soft"& ii &">"
sousuolei = HtmlShowPage
End Function
'整体分类大引导：供应、求购、合作)
Private Function liebiao()
Dim SoftType
Dim HtmlShowPage
Dim ii
HtmlShowPage = HtmlShowPage &"<TABLE width=""100%"" border=0 align=""center"" cellPadding=0 cellSpacing=0 class=downborder>"
HtmlShowPage = HtmlShowPage &"<TBODY>"
HtmlShowPage = HtmlShowPage &"<TR>"
SoftType = Split(DownsysClass.Setting(35), ",")
For ii = 0 To UBound(SoftType)
HtmlShowPage = HtmlShowPage &"<TD "
if Trim(ii)=Trim(Request("ado")) then
HtmlShowPage = HtmlShowPage &"class=buttonbar "
else
HtmlShowPage = HtmlShowPage &"class=companybar "
end if
HtmlShowPage = HtmlShowPage &"onmouseover=""this.style.cursor='hand'"" "
HtmlShowPage = HtmlShowPage &"onclick=""location.href='/Shoping"& ii &"/Catalog" & sortid & "/Shoping_Indate_Desc_" & CurrentPage & ".html'"" width=97> "
if Trim(ii)=Trim(Request("ado")) then
HtmlShowPage = HtmlShowPage &"<IMG height=20 src=""" & DownsysClass.SetupDir & "images/icon_black_45down.gif"" width=20 align=absMiddle border=0>"
HtmlShowPage = HtmlShowPage &"<SPAN class=head>" & Trim(SoftType(ii)) & "</SPAN></TD>"
else
HtmlShowPage = HtmlShowPage &"" & Trim(SoftType(ii)) & "</TD>"
end if
HtmlShowPage = HtmlShowPage &"<TD class=midbar width=7> </TD>"
Next
HtmlShowPage = HtmlShowPage &"<TD width=""400"" class=midbar> </TD></TR></TBODY></TABLE>"
liebiao = HtmlShowPage
End Function
'共找到：供应、求购、合作 的信息多少条部分)
Private Function liebiaoname()
Dim HtmlShowPage
HtmlShowPage = HtmlShowPage &"" & Trim(SoftType(ii)) & ""
liebiaoname = HtmlShowPage
End Function
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -