<% action=Request("Action") Select Case action Case "a_1" Call k_a_1() Case "a_2" Call k_a_2() Case "a_3" Call k_a_3() Case Else Call kMain End Select '報錯漫畫 Sub k_a_3() gb_jiange=request.cookies("gbook")("addt") temp_jg=DateDiff("s",gb_jiange,now()) IF temp_jg<300 Then doAlert "歇一歇,等下提交推薦漫畫哦","Support.asp?a=1" Response.End() End IF om_type=Trim(Left(Replace(Request("m_type"),"'",""),200)) om_url=Trim(Left(Replace(Request("m_url"),"'",""),200)) om_txt=Trim(Left(Replace(Request("m_txt"),"'",""),2000)) om_qq=Trim(Left(Replace(Request("m_qq"),"'",""),60)) IF om_type="" Then doAlert "請選擇錯誤類型哦","Support.asp?a=3&r="&server.URLEncode(om_url) Response.End() End IF IF om_url="" Then doAlert "頁面地址不能為空","Support.asp?a=3&r="&server.URLEncode(om_url) Response.End() End IF IF om_txt="" Then doAlert "內容描述不能為空","Support.asp?a=3&r="&server.URLEncode(om_url) Response.End() End IF Set oRs=Server.CreateObject(G_RS) oRs.open "Select * From "&G_Table_Pre&"baocuo Where 1<>1",Conn,1,3 t_Flagg=False IF oRs.Eof Then t_Flagg=True Else om_date=oRs("m_date") om_date_b=DateDIff("s",om_date,now()) om_date_b=Bint(om_date_b) IF om_date_b>=600 Then t_Flagg=True End IF End IF IF t_Flagg=True Then oRs.AddNew() oRs("m_type")=LoseeHtml(om_type) oRs("m_url")=LoseeHtml(om_url) oRs("m_txt")=LoseeHtml(om_txt) oRs("m_qq")=LoseeHtml(om_qq) oRs("m_date")=ForMatDate(Now(),55) oRs("m_ip")=Getip() oRs.Update oRs.close End IF Response.cookies("gbook")("addt")=now()'間隔 doAlert "錯誤已提交成功,我們將盡快核實并處理!",Add_Root_Dir("/") Response.End() End Sub '舉報漫畫 Sub k_a_2() gb_jiange=request.cookies("gbook")("addt") temp_jg=DateDiff("s",gb_jiange,now()) IF temp_jg<300 Then doAlert "歇一歇,等下提交推薦漫畫哦","Support.asp?a=2" Response.End() End IF om_url=Trim(Left(Replace(Request("m_url"),"'",""),200)) om_txt=Trim(Left(Replace(Request("m_txt"),"'",""),2000)) om_qq=Trim(Left(Replace(Request("m_qq"),"'",""),60)) IF om_url="" Then doAlert "頁面地址不能為空","Support.asp?a=2&r="&server.URLEncode(om_url) Response.End() End IF IF om_txt="" Then doAlert "內容描述不能為空","Support.asp?a=2&r="&server.URLEncode(om_url) Response.End() End IF Set oRs=Server.CreateObject(G_RS) oRs.open "Select * From "&G_Table_Pre&"jubao Where 1<>1",Conn,1,3 t_Flagg=False IF oRs.Eof Then t_Flagg=True Else om_date=oRs("m_date") om_date_b=DateDIff("s",om_date,now()) om_date_b=Bint(om_date_b) IF om_date_b>=600 Then t_Flagg=True End IF End IF IF t_Flagg=True Then oRs.AddNew() oRs("m_url")=LoseeHtml(om_url) oRs("m_txt")=LoseeHtml(om_txt) oRs("m_qq")=LoseeHtml(om_qq) oRs("m_date")=ForMatDate(Now(),55) oRs("m_ip")=Getip() oRs.Update oRs.close End IF Response.cookies("gbook")("addt")=now()'間隔 doAlert "舉報已提交成功,我們將盡快核實并處理!",Add_Root_Dir("/") Response.End() End Sub '推薦漫畫 Sub k_a_1() gb_jiange=request.cookies("gbook")("addt") temp_jg=DateDiff("s",gb_jiange,now()) IF temp_jg<300 Then doAlert "歇一歇,等下提交推薦漫畫哦","Support.asp?a=1" Response.End() End IF om_title=Trim(Left(Replace(Request("m_title"),"'",""),100)) om_Director=Trim(Left(Replace(Request("m_Director"),"'",""),60)) om_type1=Bint(Replace(Request("m_type1"),"'","")) om_url=Trim(Left(Replace(Request("m_url"),"'",""),200)) om_liyou=Trim(Left(Replace(Request("m_liyou"),"'",""),2000)) om_nicheng=Trim(Left(Replace(Request("m_nicheng"),"'",""),30)) om_qq=Trim(Left(Replace(Request("m_qq"),"'",""),60)) IF om_title="" Then doAlert "漫畫名稱不能為空","Support.asp?a=1&r="&server.URLEncode(om_url) Response.End() End IF IF om_liyou="" Then doAlert "推薦理由不能為空","Support.asp?a=1&r="&server.URLEncode(om_url) Response.End() End IF Set oRs=Server.CreateObject(G_RS) oRs.open "Select * From "&G_Table_Pre&"tuijian Where 1<>1",Conn,1,3 t_Flagg=False IF oRs.Eof Then t_Flagg=True Else om_date=oRs("m_date") om_date_b=DateDIff("s",om_date,now()) om_date_b=Bint(om_date_b) IF om_date_b>=600 Then t_Flagg=True End IF End IF IF t_Flagg=True Then oRs.AddNew() oRs("m_title")=LoseeHtml(om_title) oRs("m_Director")=om_Director oRs("m_type1")=om_type1 oRs("m_url")=LoseeHtml(om_url) oRs("m_liyou")=LoseeHtml(om_liyou) oRs("m_nicheng")=om_nicheng oRs("m_qq")=om_qq oRs("m_date")=ForMatDate(Now(),55) oRs("m_look")=0 oRs("m_ip")=Getip() oRs.Update oRs.close End IF Response.cookies("gbook")("addt")=now()'間隔 doAlert "感謝您的推薦,本站會盡快審核,謝謝支持本站",Add_Root_Dir("/") Response.End() End Sub '主函數解析HTML Sub kMain() '==========接收參數========== a=request("a") r=Request("r") IF a="1" Then pg_index="tuijian.html" ElseIF a="2" Then pg_index="jubao.html" ElseIF a="3" Then pg_index="baocuo.html" Else Response.Redirect "/" Response.End() End IF '==========模板處理========= oDir="" qtBc.Dir=oDir qtBc.Moban=G_moban qtBc.Html=G_moban_html qtBc.Main=pg_index Allcontent=qtBc.HeadsOne() '==========基本處理========= Allcontent=replace(Allcontent,"{qt:m_type1}",0) Allcontent=replace(Allcontent,"{qt:indexurl}",oDir) Allcontent=replace(Allcontent,"{qt:backurl}",r) Allcontent=replace(Allcontent,"{qt:Select_Category}",Select_Category("m_type1","0","0")) Allcontent=MakeHTML_CMS(Allcontent) response.Write Allcontent End Sub %>广东快乐十分出号走势图