<!--#include file="mdb.asp"-->
<!--#include file="md5.asp"-->
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
Response.Write("<script language=javascript>alert('你提交的路徑有誤');this.location.href='login.asp';</script>") 
response.end
end if

dim login
dim action,mofei
dim title,email,url,leibie,link,memo

action=request.form("action")
mofei=trim(request.form("mofei"))

sql="select login from O3888_title"
set rs=conn.execute(sql)
login=rs("login")
rs.close
set rs=nothing
if login=0 then
Response.Write "<table width=100% height=60%/><tr><td width=100% height=100% align=center>"
Response.Write "暫時關閉會員和游客系統，請稍后再來"
Response.Write "</td></tr></table>"
Response.End
end if

if action="add_wz" and login=1 then
if mofei="" then
	Response.Write("<script language=javascript>alert('驗證碼不能為空');this.location.href='login.asp';</script>")
	response.end
end if
if cstr(session("CheckCode"))<>cstr(mofei) then
	Response.Write("<script language=javascript>alert('你輸入的驗證碼有誤');this.location.href='login.asp';</script>")
	response.end
end if
if request.form("leibie")=0 then
	Response.Write("<script language=javascript>alert('請選擇分類');this.location.href='login.asp';</script>")
	response.end
end if
if request.form("title")="" then
	Response.Write("<script language=javascript>alert('請輸入網站名稱');this.location.href='login.asp';</script>")
	response.end
end if
if request.form("url")="" then
	Response.Write("<script language=javascript>alert('請輸入網站地址');this.location.href='login.asp';</script>")
	response.end
end if
if request.form("email")="" then
	Response.Write("<script language=javascript>alert('請輸入E-mail');this.location.href='login.asp';</script>")
	response.end
end if
if request.form("memo")="" then
	Response.Write("<script language=javascript>alert('請輸入網站簡介');this.location.href='login.asp';</script>")
	response.end
end if
If IsValidEmail(request.form("Email")) = False Then
	Response.Write("<script language=javascript>alert('你輸入的Email有誤');this.location.href='login.asp';</script>")
	response.end
End If
if strLength(request.form("memo"))>100 then
	Response.Write("<script language=javascript>alert('網站簡介已經超過50字');this.location.href='login.asp';</script>")
	response.end
End If
memo=iHTMLEncode(Trim(request.form("memo")))
title=ReplaceBadChar(Trim(request.form("title")))
link=ReplaceBadChar(Trim(request.form("link")))
email=ReplaceBadChar(Trim(request.form("email")))
url=Replace(Trim(request.form("url")),"'","")
leibie=ReplaceBadChar(Trim(request.form("leibie")))
set rss=server.createobject("adodb.recordset")
rss.open "select * from O3888_website",conn,1,3
	rss.addnew
	rss("title")=title
	rss("link")=link
	rss("url")=url
	rss("classid")=leibie
	rss("email")=email
	rss("memo")=memo
	rss("userid")=0
	rss("verity")=0
	rss.update
	rss.close
	set rss=nothing
	response.write "<table width='750' border='0' align='center' cellpadding='0' cellspacing='0'><tr><td height='140'></td></tr><tr><td>"
	response.write "<p align='center'><font color='#FF0000'>你的網站信息已經提交成功！</font></p>"
	response.write "<p align='center'><font color='#FF0000'>我們會在5個工作日內審核你的網站是否收錄！</font></p>"
	response.write "</td></tr></table>"
	Response.End
end if
%>