web.asp

源码源源码 源码 源码码源 码源 码源 码源 码

<!--#include file="conn.asp"-->
<%
dim rs,name,domain,sql,table
name=trim(request("name"))
domain=trim(request("domain"))

set rs=conn.execute("select table from myweb_const where id=1")
table=rs(0)
rs.close
if name="" and domain="" then
	     response.Write "<br><br><br><br><br><table cellpadding=0 cellspacing=0 border='1' bordercolor='"&table&"'  align='center' style='border-collapse:collapse; font-size:12px; width:400px'>"
         response.Write "	<tr >"
         response.Write "		<td width='100%' height='25' >"
         response.Write "		<p align='center'><font color='#FF0000'>系统信息提示</font></td>"
         response.Write "	</tr>"
         response.Write "	<tr >"
         response.Write "		<td width='100%' height='25' ><p align='center'>参数错误</td>"
         response.Write "	</tr>"
         response.Write "</table>"
	response.end
end if

if domain<>"" then
	dim domain1,domain2
	domain=lcase(domain)
	domain=replace(domain,"http://","")
	domain=replace(domain,"/","")
	domain1=trim(replace(left(domain,instr(domain,".")),".",""))
	if trim(domain1)="" then response.Redirect("default.asp")
	domain2=trim(right(domain,len(domain)-instr(domain,".")))
	set myweb_dns=conn.execute("select domain from myweb_const where domain='"&domain2&"'")
	  if myweb_dns.eof then
	     response.Write "<br><br><br><br><br><table cellpadding=0 cellspacing=0 border='1' bordercolor='"&table&"'  align='center' style='border-collapse:collapse; font-size:12px; width:400px'>"
         response.Write "	<tr >"
         response.Write "		<td width='100%' height='25' >"
         response.Write "		<p align='center'><font color='#FF0000'>系统信息提示</font></td>"
         response.Write "	</tr>"
         response.Write "	<tr >"
         response.Write "		<td width='100%' height='25' ><p align='center'>参数错误</td>"
         response.Write "	</tr>"
         response.Write "</table>"
	     response.end
	  end if
	 myweb_dns.close
	sql="select userid from myweb_user where username='"&domain1&"'"
end if

if name<>"" then
		sql="select userid from myweb_user where username='"&name&"'"
end if

set rs=conn.execute(sql)
if not rs.eof then
	response.redirect"myweb.asp?userid="&rs(0)&""
	set rs=nothing
	else
	set rs=nothing
	response.Write "<br><br><br><br><br><table cellpadding=0 cellspacing=0 border='1' bordercolor='"&table&"'  align='center' style='border-collapse:collapse; font-size:12px; width:400px'>"
    response.Write "	<tr >"
    response.Write "		<td width='100%' height='25' >"
    response.Write "		<p align='center'><font color='#FF0000'>系统信息提示</font></td>"
    response.Write "	</tr>"
    response.Write "	<tr >"
    response.Write "		<td width='100%' height='25' ><p align='center'>没有此用户</td>"
    response.Write "	</tr>"
    response.Write "</table>"
	response.end
end if
%>