UC知道求助，ASP方面的！
来源：百度知道 编辑：UC知道 时间：2024/05/04 11:26:05
<!--#include file="inc/inc_syssite.asp"-->
<%
dim rs,uname,domain,sql,hideurl,subjectid,reurl,uid
uname = oblog.filt_badstr(Request("name"))
subjectid = CLng (Request("subjectid"))
domain = Trim (Request("domain"))
if uname="" and domain="" then
oblog.adderrstr("参数错误")
oblog.showerr
end if
if domain<>"" then
dim domain1,domain2
domain = LCase (domain)
domain = Replace (domain,"http://","")
domain = Replace (domain,"/","")
domain1= oblog.filt_badstr(Replace (Left (domain,InStr (domain,".")),".",""))
if Trim (domain1)="" Then Response.Redirect("index.asp"):Response.End
domain2= oblog.filt_badstr(Right(domain,Len(domain)-InStr(domain,".")))
If Oblog.CheckDomainRoot(domain2,0) Then
sql = "
<%
dim rs,uname,domain,sql,hideurl,subjectid,reurl,uid
uname = oblog.filt_badstr(Request("name"))
subjectid = CLng (Request("subjectid"))
domain = Trim (Request("domain"))
if uname="" and domain="" then
oblog.adderrstr("参数错误")
oblog.showerr
end if
if domain<>"" then
dim domain1,domain2
domain = LCase (domain)
domain = Replace (domain,"http://","")
domain = Replace (domain,"/","")
domain1= oblog.filt_badstr(Replace (Left (domain,InStr (domain,".")),".",""))
if Trim (domain1)="" Then Response.Redirect("index.asp"):Response.End
domain2= oblog.filt_badstr(Right(domain,Len(domain)-InStr(domain,".")))
If Oblog.CheckDomainRoot(domain2,0) Then
sql = "
oblog.adderrstr("错误：无此blog用户!")
在上面一行,插入
call TeamDomain()
试试.
即:
else
set rs=nothing
call TeamDomain()
oblog.adderrstr("错误：无此blog用户!")
然后将:
oblog.adderrstr("错误："&oblog.CacheConfig(69)&"不存在!")
改为
oblog.adderrstr("错误：无此blog用户,或空间群组不存在!")