makedetail.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 694 行 · 第 1/3 页
ASP
694 行
<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="../index/temp_inc.asp"-->
<!--#include file="../../../inc/filesystem.asp"-->
<%
if session("id")="" or session("user")="" then
Response.Redirect(HOPE_InStallDir&"login/login1.asp")
End If
%>
<%
'读取模板^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open ("select tradeinfo_detail from Yixiang_worldec_Temp where yx_selected=1"),conn,1,1
If Not rs.Eof Then
pencat=rs("tradeinfo_detail")
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("TopNew")<>"" Then
If ChkRequest(Request("TopNew")) Then
TopNew=Request("TopNew")
Else
Response.Redirect (HOPE_InstallDir&"login/chklogin.asp?login=4")
End If
End If
MaxPerPage=1
Set rs=Server.CreateObject("ADODB.Recordset")
if Request("all")="update" Then
if Trim(Request("other"))<>"Member" then Response.end
id1=Replace(Request("id1"),"'","")
id2=Replace(Request("id2"),"'","")
If IsNumeric(id2)=false OR IsNumeric(id2)=false Then
Response.write "参数传递错误"
Response.end
End If
rs.Open ("select * from Yixiang_Info where info_id between "&id1&" and "&id2&" and flag=1 and type='卖' "),conn,1,1
End If
Response.write rs.recordcount
If Not rs.Eof Then
rs.pagesize=MaxPerPage
mpage=rs.pagecount
If currentPage>mpage Then
Response.Write "<b>生成完毕</b> 完成时间："&Now()
Response.end
End If
If TopNew<>"" Then
currentPage=mpage-TopNew
End If
rs.move (currentPage-1)*MaxPerPage
If mpage>=currentPage Then
ttid=rs("info_id")
sortid=rs("sortid")
typeid=rs("typeid")
typeid_2=rs("typeid_2")
showname=rs("showname")
dateandtime=rs("dateandtime")
period=rs("period")
infosdate=rs("infostartdate")
infoedate=rs("infoenddate")
End If
Else
Response.write "没有需要生成的数据"
Response.end
End If
rs.Close
If ttid="" Then
ttid=0
End If
If sortid="" Then
sortid=0
End If
If typeid="" Then
typeid=0
End If
If typeid_2="" Then
typeid_2=0
End If
If infoedate<Date() Then
HOPE_Todayadd=HOPE_Todayadd&"<span class=L><font color=#FF0000>[此信息已过期]</font></span>"
End If
HOPE_AddTime=HOPE_AddTime&""&FormatDate(infosdate,1)&""
HOPE_EndTime=HOPE_EndTime&""&FormatDate(infoedate,1)&""
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If typeid_2=0 Then
'处理导航^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
sorttype="select Yixiang_class_2.sortid,Yixiang_class_2.typename,Yixiang_class_2.typeid,Yixiang_class_1.sort from Yixiang_class_2,Yixiang_class_1 where Yixiang_class_2.typeid="&typeid&" and Yixiang_class_1.sortid=Yixiang_class_2.sortid"
HOPE_Sort=HOPE_Sort&""
HOPE_Type=HOPE_Type&""
Set rssorttype=Server.CreateObject("ADODB.Recordset")
rssorttype.Open sorttype,conn,1,1
If Not rssorttype.Eof Then
HOPE_Sort=HOPE_Sort&"<a href='"&HOPE_InstallDir&"tradeinfo/trade/"&rssorttype("sortid")&".html'>"&rssorttype("sort")&"</a>"
HOPE_Sort=HOPE_Sort&" <small> </small> "
HOPE_Type=HOPE_Type&"<a href='"&HOPE_InstallDir&"tradeinfo/trade/"&rssorttype("sortid")&"-"&rssorttype("typeid")&".html'>"&rssorttype("typename")&"</a>"
rssorttype.Close
End If
Else
sorttype1="select Yixiang_class_3.typeid_2,Yixiang_class_3.typename_2,Yixiang_class_2.typeid,Yixiang_class_2.typename,Yixiang_class_1.sort,Yixiang_class_1.sortid from Yixiang_class_3,Yixiang_class_2,Yixiang_class_1 where Yixiang_class_3.typeid_2="&typeid_2&" and Yixiang_class_2.typeid=Yixiang_class_3.typeid and Yixiang_class_1.sortid=Yixiang_class_2.sortid"
Set rssorttype1=Server.CreateObject("ADODB.Recordset")
rssorttype1.Open sorttype1,conn,1,1
If Not rssorttype1.Eof Then
HOPE_Sort=HOPE_Sort&"<a href='"&HOPE_InstallDir&"tradeinfo/trade/"&rssorttype1("sortid")&".html'>"&rssorttype1("sort")&"</a>"
HOPE_Sort=HOPE_Sort&" <small> </small> "
HOPE_Type=HOPE_Type&"<a href='"&HOPE_InstallDir&"tradeinfo/trade/"&rssorttype1("sortid")&"-"&rssorttype1("typeid")&".html'>"&rssorttype1("typename")&"</a>"
HOPE_Type=HOPE_Type&" <small>></small> "
HOPE_Type=HOPE_Type&"<a href='"&HOPE_InstallDir&"tradeinfo/offerlist/"&rssorttype1("sortid")&"-"&rssorttype1("typeid")&"-"&rssorttype1("typeid_2")&".html'>"&rssorttype1("typename_2")&"</a>"
rssorttype1.Close
End If
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'处理具体供应产品信息^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open ("select Yixiang_info.info_id,Yixiang_info.flag as Yixiang_infoflag,Yixiang_info.gsid,Yixiang_info.sortid as infosortid,Yixiang_info.typeid as infotypeid,Yixiang_info.typeid_2 as infotypeid_2,Yixiang_info.type,Yixiang_info.showname,Yixiang_info.content,Yixiang_info.period,Yixiang_info.dateandtime,Yixiang_info.picture,Yixiang_info.picture_summ,Yixiang_info.picture,Yixiang_info.Specifications,Yixiang_info.Quantity,Yixiang_info.Packaging,Yixiang_info.PriceTerms,Yixiang_info.draw,Yixiang_info.draw1,Yixiang_info.draw2,Yixiang_info.picsample_0,Yixiang_info.picsample_1,Yixiang_info.picsample_2,wygkcn_corporation.* from Yixiang_Info,wygkcn_corporation where Yixiang_info.info_id="&ttid&" and wygkcn_corporation.id=Yixiang_info.gsid and Yixiang_info.flag=1 and Yixiang_info.type='卖'"),conn,1,1
If Not rs.Eof Then
gsid=rs("gsid")
Else
Response.write "无数据"
Response.end
End If
If trim(rs("draw"))="" and trim(rs("draw1"))="" and trim(rs("draw2"))="" Then
PTpic=HOPE_InstallDir&"UploadFile/nopicture.gif"
Else
If trim(rs("draw1"))<>"" and trim(rs("draw2"))<>"" and trim(rs("draw"))<>"" Then
PTpic=rs("draw")
Elseif trim(rs("draw2"))="" and trim(rs("draw1"))="" Then
PTpic=rs("draw")
Elseif trim(rs("draw2"))="" and trim(rs("draw"))="" Then
PTpic=rs("draw1")
Else
PTpic=rs("draw2")
End If
End If
'标志此条信息为已经生存HTML
conn.execute("update Yixiang_Info Set html_pass=1 where info_id="&ttid&"")
HOPE_Pic=""
If trim(rs("draw")&"ok")="ok" Then
HOPE_Pic="<A class=s href=#zoom><div style='width=100;height=100'><img src="&HOPE_InstallDir&"UploadFile/nopicture.gif border=0 width=100 height=100></div></A>"
Else
HOPE_Pic="<A class=s href=#zoom><div style='width=100;height=100'><img src="&HOPE_InstallDir&"vipcom/"&rs("user")&"/"&rs("draw")&" border=0 width=100 height=100></div></A>"
End If
HOPE_CORNAME=HOPE_CORNAME&"<script type='text/javascript' src='"&HOPE_InstallDir&"showrolemsg.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&"'/><div id='search_resultmsg' style=""display:none"">"
'--是否使用的名片页------------------------------------------------------------
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_CORNAME=HOPE_CORNAME&"<A href='http://"&rs("user")&"."&weburl1&"' target=_blank>"&rs("qymc")&"</A> "
Else
HOPE_CORNAME=HOPE_CORNAME&"<A href='"&HOPE_InstallDir&"vipcom/"&rs("user")&"/' target=_blank>"&rs("qymc")&"</A> "
End If
Else
HOPE_CORNAME=HOPE_CORNAME&"<A href="&HOPE_InstallDir&"Ptcom/"&rs("user")&".html"" target=_blank>"&rs("qymc")&"</A>"
End If
rsmp.close
end if
HOPE_CORNAME=HOPE_CORNAME&"</div>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^^^联系方式^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HOPE_LianXi=HOPE_LianXi&"<div id='search_resultmsg1' style=""display:none""><A href=mailto:"&rs("email")&">"&rs("name")&"</A> "&rs("ch")&" <img src="&HOPE_InstallDir&"images/icon_tianjiasy.gif width=13 height=12 align=absmiddle border=0> <a href="&HOPE_InstallDir&"member/myfriend/addfriend.asp?user="&rs("user")&" target=_blank >添加为商业伙伴</a></div>"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
infono=rs("info_id")
HOPE_online=HOPE_online&"<div id='search_resultmsg2' style=""display:none"">"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'msn交谈
IF rs("msn")<>"" Then
HOPE_online=HOPE_online&"MSN:<a href='msnim:chat?contact="&rs("msn")&"'><img alt='点击这里发MSN消息' align='absMiddle' border='0' onerror=""this.onerror=null;this.src='http://osi.hshh.org/msnunknown.gif';"" src='http://osi.hshh.org:8888/msn/"&rs("msn")&"' /> <br><hr size='1' noshade> "
End If
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?