maketrade.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 495 行 · 第 1/2 页
ASP
495 行
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成采购1级分类</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #E4EDF9;
}
body,td,th {
font-size: 12px;
}
-->
</style>
</head>
<body>
<% data_path="../../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../../conn/conn.asp"-->
<!--#include file="../../../inc/filesystem.asp"-->
<!--#include file="../../../inc/safe.asp"-->
<!--#include file="../../../inc/classcount.asp"-->
<!--#include file="../index/temp_inc.asp"-->
<%
If Session("globalecmaster")="" OR Session("adminid")="" Then
Response.write "<script language='javascript'>"
Response.write"alert('对不起！请重新登陆！');parent.location.href='"&HOPE_InstallDir&"';</SCRIPT>"
Response.End
End If
'读取模板
Set rs1=Server.CreateObject("adodb.recordSet")
rs1.Open ("select tradeinfo_sort from Yixiang_worldec_Temp where yx_selected=1"),conn,1,1
If rs1.Eof Then
Response.Write("<br><br> <font color=red>对不起！该模版不存在！</font><a href='#' onclick='javascript:window.close();'>关闭</a>")
Response.End()
End If
If Not rs1.Eof Then
pencat=rs1("tradeinfo_sort")
rs1.Close
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If Request("page")<>"" Then
If Cint(Request("page"))<1 Then
currentPage=1
Else
currentPage=Cint(Request("page"))
End If
Else
currentPage=1
End If
If Request("page2")<>"" Then
If Cint(Request("page2"))<1 Then
currentPage2=1
Else
currentPage2=Cint(Request("page2"))
End If
Else
currentPage2=1
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^分类 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^根据分类来查信息生成
MaxPerPage=1
If Request("all")="all" Then
Set rs=Server.CreateObject("adodb.recordset")
rs.Open ("SELECT * FROM Yixiang_class_1"),conn,1,1
End If
If not rs.Eof Then
rs.Pagesize=MaxPerPage
mpage=rs.Pagecount '得到总页数
rs.Move (currentPage-1)*MaxPerPage
If mpage>=currentPage Then
sortid=rs("sortid")
sortname=rs("sort")
End If
End If
rs.Close
If sortid="" Then
sortid=0
End If
Response.Write "<b>已生成/要生成的1级分类:<font color=#FF0000>"¤tPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If mpage<currentPage Then
Response.Write "，完成时间"&Now()&"</b> "
Else
HOPE_type=HOPE_type&"<script src='"&HOPE_InstallDir&"autokind/autokind.js'></script><input type='text' id='installurltr' style='display:none; width:12;height:1' value="&HOPE_InstallDir&"autokind/trade_2.asp><table width='100%' border='1' bordercolor='#F6F6F6' cellspacing='0' cellpadding='0'><tr><td>"
HOPE_type=HOPE_type&"<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr bgcolor=#F6F6F6><td colspan=5 height=25>〖<font color=#3287BA><b>"&sortname&"</b></font>〗</td></tr><tr>"
sqltype="SELECT * FROM Yixiang_class_2 WHERE sortid="&sortid
Set rstype=Server.CreateObject("ADODB.Recordset")
rstype.Open sqltype,conn,1,1
If Not rstype.Eof Then
j=1
Do While Not rstype.Eof
'^^^^^^^^^^^^^^^^^^^^^^^^^ start ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'查询出属于第一类的二级分类下的所含小分类的总数
Set thirrs=Server.CreateObject("ADODB.Recordset")
thirsql="SELECT COUNT(*)AS thircount FROM yixiang_Class_3 WHERE typeid="&rstype("typeid")
thirrs.Open thirsql,conn,1,1
If thirrs.Eof Then
seCount_sale=""
End If
If not thirrs.Eof Then
If thirrs("thircount")<=0 Then
seCount_sale=""
Else
seCount_sale="<font style='font-size:12px'>(<font color=red>"&thirrs("thircount")&"</font>)</font>"
End If
thirrs.close
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^ end ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_type=HOPE_type&" <td height=25 valign=top ><img src="""&HOPE_InstallDir&"images/icon_4x7_arrow2.gif"" width=""4"" height=""12"">"
HOPE_type=HOPE_type&"<span class=lh15> <A href="""&sortid&"-"&rstype("typeid")&".html"" class=M onclick='AjaxSearchtr("&rstype("typeid")&")'>"&rstype("typename")&"</A> <span class=""S"">"&seCount_sale&"</span> "
HOPE_type=HOPE_type&" </td> "
If j MOD 4 = 0 Then
HOPE_type=HOPE_type&"</TR><tr>"
End If
rstype.Movenext
j=j+1
Loop
Set rstype=Nothing
End If
HOPE_type=HOPE_type&"</TABLE></td></tr></table><br>"
'获取替换标签的内容^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
msg_per_page=10
If Request("all")="all" Then
Set rs=Server.CreateObject("adodb.recordset")
rs.Open ("select Yixiang_info.*,wygkcn_corporation.id,wygkcn_corporation.msn,wygkcn_corporation.flag as corflag,wygkcn_corporation.qymc,wygkcn_corporation.tm,wygkcn_corporation.gradeid,wygkcn_corporation.[user],wygkcn_corporation.country,wygkcn_corporation.sf,wygkcn_corporation.city,wygkcn_corporation.web,wygkcn_corporation.url,wygkcn_corporation.trust_score from Yixiang_Info,wygkcn_corporation where Yixiang_info.sortid="&sortid&" and Yixiang_info.typeID=0 and Yixiang_info.typeid_2=0 and Yixiang_info.type='卖' and wygkcn_corporation.id=Yixiang_info.gsid and Yixiang_info.flag=1 order by wygkcn_corporation.trust_score desc"),conn,1,1
End If
If not rs.Eof Then
totalrec=RS.RecordCount '总记录条数
rs.Pagesize=msg_per_page '每页数
mpage2=rs.Pagecount '总页数
rowcount=msg_per_page
rs.Move (currentPage2-1)*MaxPerPage
If mpage2>=currentPage2 Then
tttid=currentPage2
End If
End If
%>
<!--#include file="../../../inc/headpage_html.asp"-->
<%
'HOPE_body用于显示页面的主题分类信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_body=HOPE_body&"<SCRIPT language=javascript>function killErrors(){return true;}window.onerror = killErrors;</SCRIPT>"
If rs.Eof Then
HOPE_body=HOPE_body&"<br><br><div align='center' class='s'>此类暂无具体供应信息</div><br>"
Else
i=1
HOPE_body=HOPE_body&"<script type='text/javascript' src='"&HOPE_InstallDir&"autokind/showmsgrole.js'></script><script language='vbscript'>sub window_onload() AjaxSearchmsg() end sub </script><input type='text' id='installurlmsg' style='display:none; width:12;height:1' value='"&HOPE_InstallDir&"autokind/showmsgrole.asp'/>〖<font color='#3287BA'><b>"&sortname&"</b></font>〗<font color=red>相关产品:</font> <br><br>"
do while not rs.Eof and rowcount > 0
HOPE_body=HOPE_body&"<TABLE width='100%' height=85 border=0 align=center cellPadding=0 cellSpacing=1>"&vbCrlf
HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
HOPE_body=HOPE_body&"<TR ID=compareColor"&i&""
If icolor=0 Then
HOPE_body=HOPE_body&" bgColor=#ffffff"
Else
HOPE_body=HOPE_body&" bgColor=#f6f6f6"
End If
HOPE_body=HOPE_body&">"
HOPE_body=HOPE_body&"<TD align=middle width='5%'> </TD>"&vbCrlf
HOPE_body=HOPE_body&"<TD align=middle width='5%' >"&vbCrlf
HOPE_body=HOPE_body&"<TABLE class=porductborder height=64 cellSpacing=0 cellPadding=0 width=64 border=0>"&vbCrlf
HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
HOPE_body=HOPE_body&"<TR>"&vbCrlf
HOPE_body=HOPE_body&"<TD align=middle>"&vbCrlf
'处理产品图片^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If rs("draw")<>"" Then
HOPE_body=HOPE_body&"<A class=s href="&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html target=_blank>"
HOPE_body=HOPE_body&"<IMG src='"&HOPE_InstallDir&"Vipcom/"&rs("user")&"/"&rs("draw")&"' width='64' height='64' border=0> </A>"
Else
HOPE_body=HOPE_body&"<FONT class=C color=#cecfce>无图</FONT>"
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_body=HOPE_body&"</TD>"&vbCrlf
HOPE_body=HOPE_body&"</TR>"&vbCrlf
HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
HOPE_body=HOPE_body&"</TABLE></TD>"&vbCrlf
HOPE_body=HOPE_body&"<TD width='40%' class=cate><A class=M href="&HOPE_InstallDir&"tradeinfo/offerdetail/"&rs("sortid")&"-"&rs("typeid")&"-"&rs("typeid_2")&"-"&rs("info_id")&".html target=_blank><SPAN class=lh15>"&rs("showname")&"</SPAN></A><BR>"&vbCrlf
'--是否使用的名片页------------------------------------------------------------
set rsmp=server.CreateObject("adodb.recordset")
sqlmp="select * from yixiang_vipgrade where roleid="&rs("gradeid")
rsmp.open sqlmp,conn,1,1
if not rsmp.eof then
if instr(rsmp("rolelist"),"qw")>0 then
'用于二级域名处理^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If is2weburl=1 Then
HOPE_body=HOPE_body&"<a href='http://"&rs("user")&"."&WebUrl1&"' target=_blank class=s><font color=#666666>"&rs("qymc")&"</font></A>"
Else
HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/' target=_blank class=s><font color=#666666>"&rs("qymc")&"</font></A>"
End If
Else
HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"Ptcom/"&rs("user")&".html' target=_blank class=s><font color=#666666>"&rs("qymc")&"</font></A>"
end if
rsmp.close
end if
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_body=HOPE_body&"<FONT color=#666666> </FONT><FONT color=#666666>"&rs("dateandtime")&"</FONT> <BR>"
'--是否使用的名片页------------------------------------------------------------
set rsmp1=server.CreateObject("adodb.recordset")
sqlmp1="select * from yixiang_vipgrade where roleid="&rs("gradeid")
rsmp1.open sqlmp1,conn,1,1
if not rsmp1.eof then
if instr(rsmp1("rolelist"),"qw")>0 then
'用于二级域名处理^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If is2weburl=1 Then
HOPE_body=HOPE_body&"<A href='http://"&rs("user")&"."&WebUrl1&"/supply1.htm' target=_blank class=s><FONT color=#666666>该会员所有供应信息</FONT></A> <a href='http://"&rs("user")&"."&WebUrl1&"' target=_blank><font color='#666666'>查看该会员企业网站</font></a>"
Else
HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/supply1.htm' target=_blank class=s><FONT color=#666666>该会员所有供应信息</FONT></A> <a target='_blank' href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/'><font color='#666666'>查看该会员企业网站</font></a>"
End If
end if
rsmp1.close
end if
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_body=HOPE_body&"</FONT></TD>"&vbCrlf
HOPE_body=HOPE_body&"<TD align=middle width='10%' >"&vbCrlf
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?