check.asp

来自「UQC虚拟主机专用免费域名转向程序,域名也不需要支持泛解晰,就可以达到二级域名转」· ASP 代码 · 共 44 行

<!--#include file="conn.asp"-->
<%	name=replace(trim(request("name")),"'","")
	seldomain=replace(trim(request("seldomain")),"'","")
	useryzm=replace(trim(Request("useryzm")),"'","") 
	useryzma=replace(trim(Request("useryzma")),"'","") 

if name="" then
	response.write "<script>alert('出错，下面是产生错误的可能原因：\n\n·请输入完整域名');history.go(-1);</Script>"
	Response.End 
elseif seldomain="" then
	response.write "<script>alert('出错，下面是产生错误的可能原因：\n\n·请输入完整域名');history.go(-1);</Script>"
	Response.End 
elseif useryzma="" then
	response.write "<script>alert('出错，下面是产生错误的可能原因：\n\n·请输入认证码');history.go(-1);</Script>"
	Response.End 
elseif useryzm<>useryzma then
	response.write "<script>alert('出错，下面是产生错误的可能原因：\n\n·认证码输入错误');history.go(-1);</Script>"
	Response.End 
end if

	set rs=server.createobject("adodb.recordset")
	sql="select * from [user] where seldomain='"&seldomain&"' and name='"&name&"'"
	rs.open sql,conn,1,1
 	if not(rs.bof and rs.eof) then
		session("whoislist")=rs("name")
		session("id")=rs("id") 
		if request("ction")<>"index" then
        response.write"<script>window.open('whoislist.asp','_parent')</script>"
		else
		response.redirect "default.asp"
		end if
	else
	response.write "<script>alert('出错，下面是产生错误的可能原因：\n\n·找不到此记录,请重新输入！');history.go(-1);</Script>"
	Response.End 
	end if
	
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing

%>