maketrade.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 467 行 · 第 1/2 页
ASP
467 行
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charSet=gb2312">
<title>生成一级分类</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/safe.asp"-->
<!--#include file="../../../inc/filesystem.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 rs=Server.createobject("adodb.recordSet")
rs.Open ("select corporation_sort from [Yixiang_worldec_Temp] where yx_selected=1"),conn,1,1
If rs.Eof Then
Response.Write("<br><br> <font color=red>对不起！该模版不存在！</font><a href='#' onclick='javascript:window.close();'>关闭</a>")
Response.End()
End If
If Not rs.Eof Then
pencat=rs("corporation_sort")
rs.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 order by sortID desc"),conn,1,1
End If
If not rs.Eof Then
rs.pagesize=MaxPerPage
mpage=rs.pagecount '得到总条数
If currentPage>mpage Then
Response.Write "<br><br><br> <b>生成完毕 完成时间："&now()&"</b>"
Response.end
End If
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>已生成/要生成的一级分类:<font color=#FF0000>"¤tPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个"
If mpage<currentPage Then
response.write "，完成时间"&Now()&"</b> "
Else
msg_per_page=15
If Request("all")="all" Then
Set rs=Server.createobject("adodb.recordset")
rs.Open ("select * from wygkcn_corporation where sortid="&sortid&" and typeid=0 and typeid_2=0 and flag=1 order by 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_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/com_2.asp>"
HOPE_type=HOPE_type&"<table border=1 bordercolor=#F6F6F6 cellpadding=0 cellspacing=0 width='100%' align=center><tr><td valign=top >"
HOPE_type=HOPE_type&"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
HOPE_type=HOPE_type&"<tr><td bgcolor=#F7F7F7 colspan=3 height=25> 【<font color=#0099CC><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 rstype.Eof Then
HOPE_type=HOPE_type&"<br>暂无行业二级分类<br><br>"
Else
j=1
Do While Not rstype.Eof
'处理二级类别的下级类别有多少
seCom_Count=""
Set sers=Server.CreateObject("adodb.recordSet")
sesql="select count(*) as totalse from yixiang_Class_3 where typeid="&rstype("typeid")
sers.Open sesql,conn,1,1
If not sers.Eof Then
If sers("totalse")>0 Then
seCom_Count="(<font color=red>"&sers("totalse")&"</font>)"
Else
seCom_Count=""
sers.Close
End If
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_type=HOPE_type&" <td align=""left"" height=25 valign=top width='2%'> <img src="""&HOPE_InstallDir&"images/icon_4x7_arrow2.gif"" width=""4"" height=""12"">"
HOPE_type=HOPE_type&"<A href="""&sortid&"-"&rstype("typeid")&".html"" class=M onclick='AjaxSearchtr("&rstype("typeid")&")'><b>"&rstype("typename")&"</b></A> <span class=""S"">"&seCom_Count&" "
HOPE_type=HOPE_type&" </TD>"
If j mod 3 = 0 Then
HOPE_type=HOPE_type&"</TR><tr>"
End If
rstype.Movenext
j=j+1
Loop
End If
HOPE_type=HOPE_type&"</TR></TABLE></td></tr></table>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'************** 开始读取内容开始 ***************
HOPE_body=HOPE_body&"<br> 【<font color=#0099CC><b>"&sortname&"</b></font>】<br>"
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'/> "
do while not rs.Eof and rowcount > 0
HOPE_body=HOPE_body&" <TABLE width='100%' height=105 border=0 align=center cellPadding=0 cellSpacing=1>"&vbCrlf
HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
HOPE_body=HOPE_body&"<TR"
If icolor=0 Then
HOPE_body=HOPE_body&" bgColor=#ffffff"
Else
HOPE_body=HOPE_body&" bgColor=#f6f6f6"
End If
HOPE_body=HOPE_body&">"&vbCrlf
HOPE_body=HOPE_body&"<TD align=middle width='12%'>"&vbCrlf
'''''''''''''''''''''''''''''''''''
HOPE_body=HOPE_body&"<FONT style=""FONT-WEIGHT: bold; FONT-SIZE: 13px; FONT-FAMILY: Verdana"">"&rs("trust_score")&"</FONT> "&vbCrlf
HOPE_body=HOPE_body&"</TD>"&vbCrlf
HOPE_body=HOPE_body&"<TD width=""40%"" class=cate style=""WORD-BREAK: break-all"">"&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=m><STRONG>"&rs("qymc")&"</STRONG></A>"&vbCrlf
Else
HOPE_body=HOPE_body&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"' target=_blank class=m><STRONG>"&rs("qymc")&"</STRONG></A>"&vbCrlf
End If
Else
HOPE_body=HOPE_body&"<A href="""&HOPE_InstallDir&"Ptcom/"&rs("user")&".html"" target=""_blank"" class=M>"&rs("qymc")&"</A>"&vbCrlf
End If
rsmp.close
end if
HOPE_body=HOPE_body&" <FONT color=#666666>"
c="select title from Yixiang_cor_format where id="&rs("p_z_Z_LegalStatus")&""
Set rsc=Server.CreateObject("ADODB.Recordset")
rsc.Open c,conn,1,1
If not rsc.Eof Then
HOPE_body=HOPE_body&"（"&rsc("title")&"）"
End If
rsc.Close
Set rsc=Nothing
'--是否使用的名片页------------------------------------------------------------
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&"' target=""_blank""><FONT color=#666666>查看该会员企业网站</font></a>"
Else
HOPE_body=HOPE_body&" <a href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"' target=""_blank""><FONT color=#666666>查看该会员企业网站</font></a>"
End If
End If
rsmp1.close
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?