<%
dim server_vv,server_v1,erver_v2
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>alert('錯誤：禁止從站點外部提交數據!.')</script>")
response.end
end if
%>
<%
Dim strDB,conn,strConn
Dim rs,sql
strDB    = "../data/#md5.mdb"
strConn  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDB)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn
%>