<% Call DBConnBegin() Select Case Request("Action") Case "Save" Dim WM_SiteName, WM_Content, WM_Url, WM_Logo, WM_Type, WM_Taxis WM_SiteName = WRMPS.CheckStr(Request("WM_SiteName"), 0) AreaID = WRMPS.CheckStr(Request.form("AreaID"),1) If AreaID = "" Then AreaID = 0 WM_Content = WRMPS.CheckStr(Request("WM_Content"), 0) WM_Url = WRMPS.CheckStr(Request("WM_Url"), 0) WM_Logo = WRMPS.CheckStr(Request("WM_Logo"), 0) WM_Type = WRMPS.CheckStr(Request("WM_Type"), 1) If WM_SiteName = "" Then Call WRMPS.ErrView("","Links.asp?Action=Apply","
  • 請填寫站點名稱", 0) If WM_Content = "" Then WM_Content = Null If Len(WM_Content) > 50 Then WM_Content = Right(WM_Content,48)&"..." If WM_Url = "" Then Call WRMPS.ErrView("","Links.asp?Action=Apply","
  • 請填寫站點URL", 0) If WM_Type = 0 Then If WM_Logo = "" Then WM_Logo = Null ElseIf WM_Type = 1 Then If WM_Logo = "" Then Call WRMPS.ErrView("","Links.asp?Action=Apply","
  • 您選擇的是圖片連接,請填寫Logo地址", 0) Else Call WRMPS.ErrView("","Links.asp?Action=Apply","
  • 請按規定操作", 0) End If Set Rs = server.createobject("adodb.recordset") Rs.Open "Select Top 1 WM_SiteName,WM_Content,WM_Url,WM_Logo,WM_Type,WM_Commend,WM_Taxis,WM_Key,WM_AreaID From WM_Links Order By WM_Taxis Desc", Conn, 1, 3 If Rs.EOF Then WM_Taxis = 1 Else WM_Taxis = Rs(6) + 1 End If Rs.AddNew Rs(0) = WM_SiteName Rs(1) = WM_Content Rs(2) = WM_Url Rs(3) = WM_Logo Rs(4) = WM_Type Rs(5) = 0 Rs(6) = WM_Taxis Rs(7) = Int(WR_Setting(13)) Rs(8) = AreaID Rs.Update Rs.Close Set Rs = Nothing Select Case Int(WR_Setting(13)) Case 0 Call WRMPS.ErrView("","Links.asp","
  • 友情鏈接申請成功,請等待管理員的審核",1) Case 1 Call WRMPS.ErrView("","Links.asp","
  • 友情鏈接申請成功",1) End Select Case "Apply" SitePath = ",友情鏈接,友情鏈接申請" SitePath = WRMPS.GetSitePath(-1,SitePath) Call WRMPS.FsoBegin() TempStr = WRTemp.SiteTemplates(1,0,6,0) Call WRMPS.FsoEnd() TempStr = WRTemp.SiteLabel(TempStr) Call ClassEnd() Response.write TempStr Case Else SitePath = ",友情鏈接" SitePath = WRMPS.GetSitePath(0,SitePath) Call WRMPS.FsoBegin() TempStr = WRTemp.SiteTemplates(1,0,5,0) Call WRMPS.FsoEnd() TempStr = WRTemp.SiteLabel(TempStr) Call ClassEnd() Response.write TempStr End Select Call DBConnEnd() %>我爱玩山西麻将app 上证指数涨跌代表什么 吉林11选走势图 一定牛 北京快三一定牛形态走势走势图 分分快三技巧规律 极速赛车彩票选号软件 华新水泥股票分析 极速11选五在线计划 北京pk10六码公式教程 _网上百家乐赌场 浙江省体彩6 1开奖结果