📄 makedetail.asp
字号:
<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无效
dir="no"
numid="no"
%>
<!--#include file="../../../conn/conn.asp"-->
<!--#include file="../../../inc/filesystem.asp"-->
<!--#include file="../../../inc/safe.asp"-->
<!--#include file="../index/temp_inc.asp"-->
<!--#include file="../makerole.asp"-->
<%
'获取模板^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open ("select brand_detail from [Websen_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("brand_detail")
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^s
'获取要生成的信息……………………………………………………………………………………
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 ("/login/chklogin.asp?login=4")
End If
End If
'逐个生成^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
MaxPerPage=1
If Request("all")="all" Then
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open ("select * from Websen_post where flag=1 "),conn,1,1
ElseIf Request("all")="update" Then
Set rs=Server.CreateObject("ADODB.Recordset")
If Request("schtml")="开始生成从未生成的" Then
rs.Open ("select * from Websen_post where html_pass=0 And flag=1 "),conn,1,1
Else
id1=Replace(Request("id1"),"'","")
id2=Replace(Request("id2"),"'","")
If IsNumeric(id2)=false or IsNumeric(id2)=false Then Response.Write "ID应用数字" :Response.End
rs.Open ("select * from Websen_post where id between "&id1&" And "&id2&" And flag=1 "),conn,1,1
End If
End If
If Not rs.Eof Then
rs.Pagesize=MaxPerPage
mpage=rs.Pagecount '得到总条数
If TopNew>"" Then
currentPage=mpage-TopNew
End If
rs.Move (currentPage-1)*MaxPerPage
If mpage>=currentPage Then
ttid=rs("id")
sortid=rs("type_class1")
typeid=rs("type_class2")
typeid_2=rs("type_class3")
project=rs("project")
Project=rs("Project")
address=rs("address")
email=rs("email")
fox=rs("fox")
company=rs("company")
phone=rs("phone")
code=rs("code")
web=rs("web")
End If
Else
Response.Write "没有要生成的信息"
Response.End
End If
If typeid="" Then
Response.Write "生成完成"
response.Write typeid&""&ttid
Response.End
End If
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 rs("conditong") then
hope_cond=rs("condition")
end if
ppicture=rs("drawalt")
if rs("email") then
hope_email=rs("email")
end if
if rs("code") then
hope_code=rs("code")
end if
if rs("company") then
hope_pany=rs("company")
end if
if rs("fax") then
hope_fax=rs("fax")
end if
if rs("web") then
hope_web=rs("web")
end if
if rs("phone") then
hope_phone=rs("phone")
end if
if rs("country")="中国" then
hope_address=rs("province")&" "&rs("city")
else
hope_address=rs("country")
end if
if rs("post_info") then
hope_info=rs("post_info")
else
hope_info="暂无品牌详细信息"
end if
if rs("condition") then
hope_other=rs("condition")
else
hope_other="暂无信息"
end if
if rs("tm") then
hope_tm=rs("tm")
end if
if rs("project") then
hope_name=rs("project")
end if
if rs("englishname") then
hope_english=rs("englishname")
end if
typeclass2=rs("type_class2")
username=rs("username")
'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)&""
set rsmp=server.CreateObject("adodb.recordset")
sqlmp="select * from Websen_corporation where [User]='"&username&"'"
rsmp.open sqlmp,conn,1,1
logo=rsmp("C_logo")
gradeid=rsmp("gradeid")
user=rsmp("user")
qymc=rsmp("qymc")
hope_logo="<img src='../../../vipcom/"&logo&"' width='120' height='60'>"
hope_bcom="../../../vipcom/"&rsmp("user")&"/index.htm"
hope_chance="../../../vipcom/"&rsmp("user")&"/supply1.htm"
hope_contact="../../../vipcom/"&rsmp("user")&"/Contact.htm"
gradeid=rsmp("gradeid")
if ppicture<>"" then
hope_picture="vipcom/"&rsmp("user")&"/"&ppicture
else
hope_picture="暂无图片"
end if
set rsg=server.CreateObject("adodb.recordset")
sqlg="select gradename from Websen_vipgrade where roleid="&gradeid
rsg.open sqlg,conn,1,1
if not rsg.eof then
hope_bgrade=rsg("gradename")
rsg.close
end if
If rs("type_class2") Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -