filelist_simg.asp

使用ASP元件（請自行下載、安裝或登錄） AspUpload+AspJpeg+Jmail[或AspMail] 整合JS與FLASH套件 Highslide JS+SWFUpload+Titl

<!-- #include file="config.asp" -->
<%
If Request("PageSize")=Empty Then
   If Session("PageSize")<>Empty Then
      PageSize=Session("PageSize")
   Else
      PageSize=24
   End If   
Else
  PageSize=Cint(Request("PageSize"))
  Session("PageSize")=PageSize
End If

Page=cint(Request("Page"))
If Page = 0 Then
   Page = 1
End If
areana=Request("areana")
If areana = "" Then
   areana=areana1
End If
description=Request("description")

select case request.form("E1")
   case "つ匡盚倒狟ね"
      choice=request("choice")
      'func=request("func")
      Page=cint(Request("Page"))
      areana=request("areana")
      description=request("description")
      response.redirect "sendmail.asp?areana="&areana&"&description="&description&"&choice="&choice
end select

select case request.form("D1")
   case "