<%
server.Execute "/NoHACK1.asp"
dim Mo_Type, sql, rs, i, FLAG, PicTitle, PlayServerID
Mo_Type = ReqTxt(ReqKeng(Request("Type")))
ToPage = ReqNum(Request("ToPage"))
if Mo_Type = "" then Mo_Type = "A"
sql = "SELECT * from ST_Photo where G_Type = '" & Mo_Type & "' and G_Op='Y' order by AddTime desc , AutoID desc"
set rs = GetRecordset(sql)
FLAG = false
select case Mo_Type
case "A"
PicTitle = "photo4_1.jpg"
case "B"
PicTitle = "photo5_1.jpg"
case "C"
PicTitle = "photo6_1.jpg"
case "D"
PicTitle = "photo1_1.jpg"
case "E"
PicTitle = "photo2_1.jpg"
case "F"
PicTitle = "photo3_1.jpg"
case else
response.Redirect "/main.asp"
response.End
end select
PicTitle = "photograph/" & PicTitle
%>
完美世界官方網站
