<% @ Language=VBScript CodePage=65001 %> <% Session.CodePage = 65001 Response.Charset="utf-8" %> <% CType = reqkeng(Request("CType")) AutoID = reqNum(Request("ID")) select case CType '1表GF新聞區、2表LOGIN下方文字、3表黃金文字、4表頻道專區圖片、5表頻道專區文字、6表超省必敗速報、7表本周精選、8頻道二版型一圖片、9表頻道二版型一文字、10表遊戲專區 case 1 tablename="T_News" column="NewsUrl" case 2 tablename="T_News" column="NewsUrl" case 3 tablename="T_News" column="NewsUrl" case 4 tablename="Top_ch_Pic" column="P_Url" case 5 tablename="Top_ch_News" column="N_Url" case 6 tablename="Week_Choose" column="WC_Link" case 7 tablename="Week_Choose" column="WC_Link" case 8 tablename="Top_ch_NP" column="PN_Url" case 9 tablename="Top_ch_NP" column="PN_Url" case 10 tablename="Index_Game_Ch" column="Link" case 11 tablename="Top_DownloadPoint" column="TD_Link" case else error1("狀態不明!") end select '訊息先清空 err = 0 set comm = Server.CreateObject("ADODB.Command") comm.activeConnection = conn comm.CommandText = "CountByDay_Function" comm.Parameters.Append comm.CreateParameter("TableName",202,1,100,"CountByDay") comm.Parameters.Append comm.CreateParameter("CountColumn",202,1,100,"DCount") comm.Parameters.Append comm.CreateParameter("AutoID",19,1,1,AutoID) comm.Parameters.Append comm.CreateParameter("Ctype",19,1,4,CType) comm.Parameters.Append comm.CreateParameter("result",3,2,4) comm.Execute result = comm.Parameters("result") 'response.Write(result) 'response.End() if err <> 0 then response.Write("發生錯誤!"&err&err.description) else select case cint(result) case 1 'ShowMsg "/01_MP/theme/index.asp","成功!" case -90 error1("功能狀態不明!") case -100 error1("發生錯誤!!-100") case else error1("發生錯誤!"&result) end select end if set comm=nothing sql = "SELECT " & column & " FROM " & tablename & " WHERE AutoID = " & AutoID 'response.Write(sql) 'response.End() set rs=conn.execute(sql) NewsUrl=rs(column) set rs=nothing if NewsUrl <> "" then response.Redirect reqdata2(NewsUrl) response.End() else response.Redirect "/news/news_content.aspx?CType=1&ID=" & AutoID response.End() end if %>