makedetail_expo.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 298 行 · 第 1/2 页
ASP
298 行
<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 expo_detail from [Yixiang_worldec_Temp] where yx_selected=1"),conn,1,1
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")="update" Then
if Trim(Request("other"))<>"expo" then Response.End()
id1=Replace(Request("id1"),"'","")
id2=Replace(Request("id2"),"'","")
If Isnumeric(id2)=false or Isnumeric(id2)=false Then Response.Write "参数传递错误" :Response.End
rs.Open ("select * from Yixiang_expo where id between "&id1&" and "&id2&" and sh=1 order by dateandtime asc"),conn,1,1
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=""760"" 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 border=""0"" width=""100%"" cellpadding=""0"" cellspacing=""0"" align=""center"" class=downborder> "&VbCrLf
HOPE_body=HOPE_body&" <tr> "&VbCrLf
HOPE_body=HOPE_body&" <td width=""190"" class=buttonbar><IMG height=20 "&VbCrLf
HOPE_body=HOPE_body&" src="&HOPE_InstallDir&"images/icon_black_45down.gif width=20 align=absMiddle "&VbCrLf
HOPE_body=HOPE_body&" border=0><SPAN class=head> 展会基本信息</SPAN></td> "&VbCrLf
HOPE_body=HOPE_body&" <td width=""394""> </td> "&VbCrLf
HOPE_body=HOPE_body&" <td width=""176"" align=""center""><img src="&HOPE_InstallDir&"images/icon_orange_arrow.gif width=""12"" height=""11"" align=""absmiddle""></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 width=""180"" align=""right"" bgcolor=""#F7F7F7"" class=c> 展会名称：</td> "&VbCrLf
HOPE_body=HOPE_body&" <td valign=""top"" bgcolor=""#FDFDFD"" class=""lh13 s""> "&changechr(rs("title"))&" </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""> "&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=""180"" 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"" background="&HOPE_InstallDir&"images/bg_line_002.gif>"&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
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?