📄 makedetail_expo.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/safe.asp"-->
<!--#include file="../../../inc/filesystem.asp"-->
<!--#include file="../index/temp_inc.asp"-->
<!--#include file="../makerole.asp"-->
<%
Set rs=Server.CreateObject("adodb.recordSet")
rs.Open ("select expo_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("expo_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")="all" Then
rs.Open ("select * from Websen_expo where sh=1 order by dateandtime asc"),conn,1,1
ElseIf Request("all")="update" Then
If Request("schtml")="开始生成从未生成的" Then
rs.Open ("select * from Websen_expo where sh=1 and html_pass=0 order by dateandtime asc"),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_expo where id between "&id1&" and "&id2&" and sh=1 order by dateandtime asc"),conn,1,1
End If
End If
If not rs.Eof Then
rs.pagesize=MaxPerPage
mpage=rs.pagecount '得到总条数
If currentPage>mpage Then
Response.Write "生成完成，完成时间"&Now()&"</b> "
Response.End
End If
If TopNew>"" Then
currentPage=mpage-TopNew
End If
rs.Move (currentPage-1)*MaxPerPage
If mpage>=currentPage Then
ttid=rs("id")
End If
Else
Response.Write "没有需要生成的信息"
Response.End
End If
If ttid="" Then
ttid=0
End If
HOPE_Title=HOPE_Title&""&rs("title")&""
HOPE_body=HOPE_body&"<table width=""550"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""> "&VbCrLf
HOPE_body=HOPE_body&" <tr> "&VbCrLf
HOPE_body=HOPE_body&" <td>"&VbCrLf
HOPE_body=HOPE_body&" <table width=""550"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"&VbCrLf
HOPE_body=HOPE_body&" <tr> "&VbCrLf
HOPE_body=HOPE_body&" <td valign=""top"" align='center' style=' font-size: 24px; font-weight: bold; color: #000000; line-height: 200%'> "&changechr(rs("title"))&" </td>"&VbCrLf
HOPE_body=HOPE_body&" </tr> "&VbCrLf
HOPE_body=HOPE_body&"</table> "&VbCrLf
HOPE_body=HOPE_body&" <table width=""100%"" border=""0"" align=""center"" cellpadding=""6"" cellspacing=""2""> "&VbCrLf
HOPE_body=HOPE_body&" <tr> "&VbCrLf
HOPE_body=HOPE_body&" <td align=""right"" bgcolor=""#F7F7F7"" class=c> 举办国家：</td> "&VbCrLf
HOPE_body=HOPE_body&" <td valign=""top"" bgcolor=""#FDFDFD"" class=""lh13 s""> "&VbCrLf
If changechr(rs("holdCountry"))="CN" Then
HOPE_body=HOPE_body&"中国大陆"&" "&VbCrLf
End If
If changechr(rs("holdCountry"))="HK" Then
HOPE_body=HOPE_body&"中国香港"&" "&VbCrLf
End If
If changechr(rs("holdCountry"))="MO" Then
HOPE_body=HOPE_body&"中国澳门"&" "&VbCrLf
End If
If changechr(rs("holdCountry"))="TW" Then
HOPE_body=HOPE_body&"中国台湾"&" "&VbCrLf
End If
If changechr(rs("holdCountry"))="QT" Then
HOPE_body=HOPE_body&"--其他国家--"&VbCrLf
End If
HOPE_body=HOPE_body&"</td> "&VbCrLf
HOPE_body=HOPE_body&" </tr> "&VbCrLf
HOPE_body=HOPE_body&" <tr> "&VbCrLf
HOPE_body=HOPE_body&" <td align=""right"" bgcolor=""#F7F7F7"" class=c> 参展日期：</td> "&VbCrLf
HOPE_body=HOPE_body&" <td valign=""top"" bgcolor=""#FDFDFD"" class=""lh13 s""> "&changechr(rs("beginDate"))&" "&VbCrLf
HOPE_body=HOPE_body&" ~"&VbCrLf
HOPE_body=HOPE_body&" "&changechr(rs("endDate"))&" </td> "&VbCrLf
HOPE_body=HOPE_body&" </tr> "&VbCrLf
HOPE_body=HOPE_body&" <tr> "&VbCrLf
HOPE_body=HOPE_body&" <td width=""100"" align=""right"" bgcolor=""#F7F7F7"" class=c> 报名截止：</td> "&VbCrLf
HOPE_body=HOPE_body&" <td bgcolor=""#FDFDFD""> "&changechr(rs("expireDate"))&"</td> "&VbCrLf
HOPE_body=HOPE_body&" </tr>"&VbCrLf
HOPE_body=HOPE_body&" <tr> "&VbCrLf
HOPE_body=HOPE_body&" <td align=""right"" bgcolor=""#F7F7F7"" class=c style='word-break:break-all'> 参展地(展馆)：</td> "&VbCrLf
HOPE_body=HOPE_body&" <td valign=""top"" bgcolor=""#FDFDFD"" class=""lh13 s""> "&changechr(rs("place"))&" </td> "&VbCrLf
HOPE_body=HOPE_body&" </tr> "&VbCrLf
HOPE_body=HOPE_body&" <tr>"&VbCrLf
HOPE_body=HOPE_body&" <td colspan=""2"" align=""right"" class=s><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&VbCrLf
HOPE_body=HOPE_body&" <tr> "&VbCrLf
HOPE_body=HOPE_body&" <td height=""5""><img src="&HOPE_InstallDir&"images/spacer.gif width=""1"" height=""1""></td>"&VbCrLf
HOPE_body=HOPE_body&" </tr>"&VbCrLf
HOPE_body=HOPE_body&" </table></td>"&VbCrLf
HOPE_body=HOPE_body&" </tr> "&VbCrLf
HOPE_body=HOPE_body&" <tr> "&VbCrLf
HOPE_body=HOPE_body&" <td align=""right"" bgcolor=""#F7F7F7"" class=c > 批准单位：</td> "&VbCrLf
HOPE_body=HOPE_body&" <td valign=""top"" bgcolor=""#FDFDFD""> "&changechr(rs("authorize"))&" </td> "&VbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -