case 14
if Request.QueryString("save")=1 then
if trim(Request.Form("blogurl"))<>"" then
Set rsdj = Server.CreateObject("ADODB.Recordset")
rsdj2="select id from LxTel_User where blogurl='"&trim(Request.Form("blogurl"))&"' "
rsdj.open rsdj2,conn,1,1
if not(rsdj.bof and rsdj.eof) then
rsdj.close
set rsdj=nothing
Response.Write "<script>alert('该二级域名地址,已经被人使用');history.back(-1);</script>"
Response.End
else
rsdj.close
set rsdj=nothing
end if
end if
...