%@ LANGUAGE = VBScript CodePage = 936%>
<%
dim oblog,uurl
set oblog=new class_sys
oblog.start
If API_Enable Then
oblog.CheckUserLogined
Dim strUrl,j
For j=0 To UBound(aUrls)
strUrl=Lcase(aUrls(j))
If Left(strUrl,7)="http://" Then
response.write("")&vbcrlf
End If
Next
End If
oblog.CreateUserDir Session("Username"), 1 '创建博客
If cookies_domain <> "" Then
response.Cookies(cookies_name).domain = cookies_domain
End If
Response.Cookies(cookies_name)("username")=oblog.CodeCookie("")
Response.Cookies(cookies_name)("password")=oblog.CodeCookie("")
Response.Cookies(cookies_name)("userurl")=oblog.CodeCookie("")
Session ("CheckUserLogined") = ""
Session.Abandon
Set oBlog=Nothing
%>