<% '------------------------- 'Powered By www.tungsten-directory.com '------------------------- If SiteRunStatus = True Then PageTitle = "Submit Site" & SiteTitleNav & PageTitle SitePath = SitePath & SitePathNav & "Submit Site" StrFeed = "alert(""Specify a website Category!"");history.go(-1);" Response.End Exit Sub Else If GetClassChildCount(ClassID) > 0 Then Response.Write "" Response.End Exit Sub End If End If If WebName = "" Then Response.Write "" Response.End Exit Sub End If If WebUrl = "" Then Response.Write "" Response.End Exit Sub Else If IsValidDomain(WebUrl) = False Then Response.Write "" Response.End Exit Sub End If End If If TagLabel = "" Then Response.Write "" Response.End Exit Sub Else TagLabel = Replace(Replace(Replace(TagLabel, "，", ","), "|", ","), ",,", ",") If Left(TagLabel, 1) = "," Then TagLabel = Right(TagLabel, Len(TagLabel) - 1) If Right(TagLabel, 1) = "," Then TagLabel = Left(TagLabel, Len(TagLabel) - 1) End If If WebIntro = "" Then Response.Write "" Response.End Exit Sub Else If GetStrLen(WebIntro) > 200 Then Response.Write "" Response.End Exit Sub End If End If If WebOwner = "" Then Response.Write "" Response.End Exit Sub End If If WebEmail = "" Then Response.Write "" Response.End Exit Sub Else If IsValidEmail(WebEmail) = False Then Response.Write "" Response.End Exit Sub End If End If If CheckCode = "" Then Response.Write "" Response.End Exit Sub End If If Trim(Session("CheckCode")) = "" Then Response.Write "" Response.End Exit Sub End If If CheckCode <> Session("CheckCode") Then Response.Write "" Response.End Exit Sub End If Dim RsWeb Set RsWeb = Conn.Execute("Select WebUrl From DIR_WebSite Where WebUrl='" & WebUrl & "'") If Not(RsWeb.Bof and RsWeb.Eof) Then Response.Write "" Response.End RsWeb.Close Set RsWeb = Nothing Exit Sub End If Set RsApp = Server.CreateObject("ADODB.RecordSet") SqlApp = "Select * From DIR_Apply Where WebUrl='" & WebUrl & "'" RsApp.Open SqlApp,Conn,1,3 If Not(RsApp.Bof and RsApp.Eof) Then Response.Write "" Response.End RsApp.Close Set RsApp = Nothing Exit Sub End If RsApp.AddNew RsApp("ApplyID") = GetNewID("DIR_Apply","ApplyID") RsApp("ClassID") = ClassID RsApp("WebName") = WebName RsApp("WebUrl") = WebUrl RsApp("TagLabel") = TagLabel RsApp("WebIntro") = WebIntro RsApp("WebOwner") = WebOwner RsApp("WebEmail") = WebEmail RsApp("OnlineQQ") = OnlineQQ RsApp("PostTime") = DateToStr(Now(), "Y-M-D H:I:S") RsApp.Update RsApp.Close Set RsApp = Nothing Response.Redirect "Success.html" End Sub %>