|
|
 |
 |
<% ContentType1 = "Publications"%>
<%'set mdb = server.createobject("adodb.connection")
'mdb.open DbConnect
FB=request("FB")
if FB="" or isnull(FB) then
FB="P1"
end if
set rs_new = server.createobject("adodb.recordset")
'===========================================================================
sql_new="select * from PublicationsIssues where tb_index <>0 "
if request("tb_index") <> "" and not isnull(request("tb_index")) then
sql_new = sql_new & " and tb_index= " &request("tb_index")
else
sql_new = sql_new & " order by tb_index"
end if
'response.write sql_new
'===========================================================================
rs_new.open sql_new , mdb, 3, 2
select case FB
case "P1"
Ptitle=""
case "P2"
Ptitle=" - Editorial Committee "
case "P3"
Ptitle=" - Review Process "
case "P4"
Ptitle=" - Submission Policy "
case "P5"
Ptitle=" - Issues "
case "P6"
Ptitle=" - Subscription Information"
end select
%>
<%
'查出標題來------------------------------
set rs_Ttile = server.createobject("adodb.recordset")
'===========================================================================
Sql_Ttile="select * from PublicationsAdmin where ContentType = '"&ContentType1&"'"
if request("tb_index") <> "" and not isnull(request("tb_index")) then
Sql_Ttile = Sql_Ttile & " and tb_index= " &request("u_index")
else
Sql_Ttile = Sql_Ttile & " order by tb_index desc"
end if
'===========================================================================
rs_Ttile.open sql_Ttile , mdb, 3, 2
if not rs_Ttile.eof then
'查出標題來------------------------------
%>
<%=trim(replace(rs_Ttile("ContentTitle"),vbcrlf,""))%> <%=Ptitle%>
<%end if
rs_Ttile.close
set rs_Ttile=nothing
%>
|
|
<%if not rs_new.eof then%>
<%=rs_new("Issues01")%>
<%
if rs_new("Issues02")<>"" then
response.write replace(rs_new("Issues02"),vbcrlf,"
")
end if
%>
CONTENTS
SPEECHES AND SHORT ARTICLES
<%
set rs_List1 = server.createobject("adodb.recordset")
sql_List1="select * from IssuesAdmin where u_index="&request("tb_index")&" and IssuesType='contents' order by tb_index"
'response.write sql_List1
rs_List1.open sql_List1 , mdb, 3, 2
if not rs_List1.eof then
i=0
do until rs_List1.eof
i=i+1
if i=1 then
bgcolor="#dbe1e9"
else
bgcolor=""
i=0
end if
%>
|
<%=rs_List1("P1")%>
| <%=rs_List1("P2")%>
<%if rs_List1("file01")<>"" or rs_List1("file02")<>"" then%>
Download : <%if rs_List1("file01")<>"" then%>" target="_blank">pdf/
<%end if%>
<%if rs_List1("file02")<>"" then%>" target="_blank">word
<%end if%>
<%end if%>
|
<%=rs_List1("P3")%>
|
<%
rs_List1.movenext
loop
end if
rs_List1.close
set rs_List1=nothing
%>
Articles
<%
set rs_List1 = server.createobject("adodb.recordset")
sql_List1="select * from IssuesAdmin where u_index="&request("tb_index")&" and IssuesType='ARTICLES' order by tb_index"
'response.write sql_List1
rs_List1.open sql_List1 , mdb, 3, 2
if not rs_List1.eof then
i=0
do until rs_List1.eof
i=i+1
if i=1 then
bgcolor="#dbe1e9"
else
bgcolor=""
i=0
end if
%>
| <%=rs_List1("P1")%> |
<%=rs_List1("P2")%>
<%if rs_List1("file01")<>"" or rs_List1("file02")<>"" then%>
Download :
<%if rs_List1("file01")<>"" then%>
" target="_blank">pdf/
<%end if%>
<%if rs_List1("file02")<>"" then%>
" target="_blank">word
<%end if%>
<%end if%>
|
<%=rs_List1("P3")%> |
<%
rs_List1.movenext
loop
end if
rs_List1.close
set rs_List1=nothing
%>
CONTENTS
<%
set rs_List1 = server.createobject("adodb.recordset")
sql_List1="select * from IssuesAdmin where u_index="&request("tb_index")&" and IssuesType='STUDENTNOTE' order by tb_index"
'response.write sql_List1
rs_List1.open sql_List1 , mdb, 3, 2
if not rs_List1.eof then
i=0
do until rs_List1.eof
i=i+1
if i=1 then
bgcolor="#dbe1e9"
else
bgcolor=""
i=0
end if
%>
| <%=rs_List1("P1")%> |
<%=rs_List1("P2")%>
<%if rs_List1("file01")<>"" or rs_List1("file02")<>"" then%>
Download :
<%if rs_List1("file01")<>"" then%>
" target="_blank">pdf/
<%end if%>
<%if rs_List1("file02")<>"" then%>
" target="_blank">word
<%end if%>
<%end if%>
|
<%=rs_List1("P3")%> |
<%
rs_List1.movenext
loop
end if
rs_List1.close
set rs_List1=nothing
%>
[ Back
to List ]
|
<%end if%>
<%
rs_new.close
set rs_new=nothing
mdb.close
set mdb=nothing
%>
|
|
|
