<%
justlogin()
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
columnsize=4
dim columndim
id="ID"
redim columndim(columnsize,3)
columndim(0,0)="產品名稱"
columndim(0,1)="categorydesc"
columndim(0,2)="modify_download.asp"
columndim(1,0)="檔案說明"
columndim(1,1)="description"
columndim(1,2)="modify_download.asp"
columndim(2,0)="檔案名稱"
columndim(2,1)="file_name"
columndim(2,2)="modify_download.asp"
columndim(3,0)="檔案大小"
columndim(3,1)="file_size"
columndim(3,2)="modify_download.asp"
'columndim(4,0)="更新時間"
'columndim(4,1)="updated"
'columndim(4,2)="modify_download.asp"
searchtype=trim(Request.querystring("searchtype"))
searchword=trim(Request.querystring("searchword"))
searchword=Replace(searchword,">",">")
searchword=Replace(searchword,"<","<")
searchword=Replace(searchword,chr(34),"”")
searchword=Replace(searchword,chr(39),"’")
searchword=Replace(searchword,"%","%")
if searchword<>empty then
selecttype_flag=0
if searchword<>"" then
for i=0 to columnsize-1
if searchtype=columndim(i,1) then
searchtypestr=columndim(i,0)
selecttype_flag=1
end if
next
end if
searchstr=""
searchshowword=""
if selecttype_flag=1 then
searchstr=searchstr & " where " & searchtype & " like '%" & searchword & "%'"
searchshowword=searchtypestr & " 中有 "
else
for i=0 to columnsize-1
searchstr=searchstr & " or " & columndim(i,1) & " like '%" & searchword & "%'"
next
if searchstr<>empty then
searchstr=" where (" & mid(searchstr,5)
end if
end if
listtitle="下" & chr(32) & "載" & chr(32) & "資" & chr(32) & "料" & chr(32) & "總" & chr(32) & "攬[ 搜尋 " & searchshowword & searchword & " ]"
list_querystr="SELECT ''+categorydesc+'' as categorydesc, id, description, file_name=case download.idcategory when " & session("idcategory") & " then '' + file_name + '' else file_name end, convert(nvarchar, file_size/1024)+ 'k byte' as file_size, updated from categories join download on categories.idcategory<>download.idcategory " & searchstr & ") and download.idcategory=" & session("idcategory") & ""
else
listtitle="下" & chr(32) & "載" & chr(32) & "資" & chr(32) & "料" & chr(32) & "總" & chr(32) & "攬"
list_querystr="SELECT ''+categorydesc+'
' as categorydesc, id, description, '' + file_name + '' as file_name, convert(nvarchar, file_size/1024)+ 'k byte' as file_size, updated from categories join download on categories.idcategory=download.idcategory where download.idcategory=" & session("idcategory") & ""
end if
add_Width="500px"
add_Height="148px"
add_scroll="no"
modify_Width="500px"
modify_Height="148px"
modify_scroll="yes"
url_add="add_download.asp"
url_edit="modify_download.asp"
url_delete="delete_download.asp"
list_columntitlecolor="#6699CC"
list_columntitletextcolor="#FFFFFF"
list_defaultsortcolor="#AAEEFF"
analysis_columntitlecolor="#ea8c00"
analysis_columntitletextcolor="#FFFFFF"
analysis_defaultsortcolor="#AAEEFF"
row1color=""
row2color="#eeeeee"
row1textcolor="#333333"
vrow2textcolor="#333333"
listwidth="100%"
listpagesize=15
pageselect1_enable=1
pageselect2_enable=0
table=admins
debugmode=0
Response.Write ""
%>