%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<%
function Content()'Content---------------------------------------------------
Dim cRet
cRet = cRet & "
" & inputprocess()
cRet = cRet & "
" & result() & "
"
Content = cRet
end function'--------------------------------------------------------------------
function inputprocess()'Content---------------------------------------------------
Dim cRet
Dim sql
sql = "SELECT subjectid AS Dataid, ctcap AS DataCap FROM subject"
cRet = cRet & "
"
inputprocess = cRet
end function'--------------------------------------------------------------------
function result()'Content---------------------------------------------------
Dim cRet
If not request("action") = "搜尋" then
cRet = bySubject()
Else
cRet = bySearch()
End If
result = cRet
end function'--------------------------------------------------------------------
function bySubject()'Content---------------------------------------------------
Dim cRet
Dim sql
Dim tmpAlph
if Request("cboSubjectSel") = "0" then Response.Redirect "index.asp"
if not Request("cboSubjectSel") = "" then
Set rs = server.CreateObject("adodb.Recordset")
rs.CacheSize=5
sql = ""
if Request.Form("cboAlphSel") = "" and Request.QueryString("cboAlphSel") = "" then
tmAlph = "%"
Elseif Request.form("cboAlphSel") = "" then
tmpAlph = Request.QueryString("cboAlphSel")
Else
tmpAlph = Request.Form("cboAlphSel")
End if
if tmpAlph = "0" then
sql = sql & "SELECT * FROM Glossary WHERE (Subjectid = " & Request("cboSubjectSel") & ") and "
sql = sql & "(NOT (ASCII(SUBSTRING(UPPER(enCap), 1, 1)) > 64 AND "
sql = sql & "ASCII(SUBSTRING(UPPER(enCap), 1, 1)) < 91)) ORDER BY enCap"
else
sql = sql & "Select * from Glossary where (Subjectid = " & Request("cboSubjectSel")
sql = sql & ") and (Upper(enCap) like N'" & tmpalph & "%') order by enCap"
End if
'cret = cret & sql
rs.Open sql,cstring,3
cRet = cRet & "
*部份資料由CDI提供
"
if not Request("cboSubjectSel") = "" then
cRet = cRet & "
"
if not rs.eof then
mypage=request("whichpage")
If mypage="" then
mypage=1
end if
rs.movefirst
rs.pagesize=20
maxpages=cint(rs.pagecount)
maxrecs=cint(rs.pagesize)
rs.absolutepage=mypage
howmanyrecs=0
cRet = cRet & "
"
cRet = cRet & "
English
"
cRet = cRet & "
中文
"
DO UNTIL rs.eof OR howmanyrecs>=maxrecs
cRet = cRet & "
〈沒有相關的資料,請再試!〉"
End if
End if
bySubject = cRet
end function'--------------------------------------------------------------------
function bySearch()'---------------------------------------------------
Dim cRet
Dim sql
Dim SearchStr
SearchStr = Trim(request("SearchStr"))
if SearchStr = "" then
cRet = "〈請輸入要搜尋的關鍵字〉"
Else
if Request("SearchSubjectSel") = "0" then
sql = "Select Glossary.encap as enStr, Glossary.ctcap as ctStr, "
sql = sql & "Subject.ctcap as subcap from Glossary inner join subject on Glossary.subjectid = "
sql = sql & "subject.subjectid where glossary.ctcap like N'%" & SQLChar(SearchStr)
sql = sql & "%' or glossary.enCap like N'%" & SQLChar(Request("SearchStr")) & "%' order by enCap"
Else
sql = "Select Glossary.encap as enStr, Glossary.ctcap as ctStr, "
sql = sql & "Subject.ctcap as subcap from Glossary inner join subject on Glossary.subjectid = "
sql = sql & "subject.subjectid where Glossary.Subjectid = " & Request("SearchSubjectSel") & " and "
sql = sql & "glossary.ctcap like N'%" & SQLChar(SearchStr)
sql = sql & "%' or glossary.enCap like N'%" & SQLChar(Request("SearchStr")) & "%' order by enCap"
End if
Set rs = server.CreateObject("adodb.Recordset")
rs.Open sql,cstring,3
cRet = cRet & "
*部份資料由CDI提供
"
if not rs.eof then
mypage=request("whichpage")
If mypage="" then
mypage=1
end if
rs.movefirst
rs.pagesize=20
maxpages=cint(rs.pagecount)
maxrecs=cint(rs.pagesize)
rs.absolutepage=mypage
howmanyrecs=0
cRet = cRet & "
"
cRet = cRet & "
English
"
cRet = cRet & "
中文
"
cRet = cRet & "
相關科目
"
DO UNTIL rs.eof OR howmanyrecs>=maxrecs
cRet = cRet & "