谁能帮忙看下这段代码里哪个是检测访问域名的

来源：百度知道 编辑：UC知道 时间：2024/06/06 07:16:59
<link href="Style.css" rel=Stylesheet type="text/css" media="all" />
<body><%
Dim ServerIP,ServerPort,ServerName,UserName,Password,ControlUser,ActiveChar

ServerIP=Request.Form("ServerIP")
ServerPort=Request.Form("ServerPort")
if Len(ServerPort)<1 then ServerPort=7000
if Not IsNumeric(ServerPort) then ServerPort=7000
ServerName=Request.Form("ServerName")
UserName=Request.Form("UserName")
Password=Request.Form("Password")
ControlUser=Request.Form("ControlUser")
ActiveChar=Request.Form("ActiveChar")
if Not IsNumeric(ActiveChar) then ActiveChar=-1

Dim ErrorMsg
ErrorMsg=""
if Len(Password)<1 then ErrorMsg="请输入密码!"
if Len(UserName)<1 then ErrorMsg="请输入账号!"
if Len(ServerIP)<4 then ErrorMsg="请输入正确的服务器地址!"
Dim MirObj
if Error

<link href="Style.css" rel=Stylesheet type="text/css" media="all" />
<body><%
Dim ServerIP,ServerPort,ServerName,UserName,Password,ControlUser,ActiveChar

ServerIP=Request.Form("ServerIP") //获取表单提交过来的IP
ServerPort=Request.Form("ServerPort") //获取表单提交过来的端口
if Len(ServerPort)<1 then ServerPort=7000 //没有端口把7000做为端口
if Not IsNumeric(ServerPort) then ServerPort=7000 //没有端口把7000做为端口

ServerName=Request.Form("ServerName") //获取服务器名
UserName=Request.Form("UserName") //用户名
Password=Request.Form("Password") //密码
ControlUser=Request.Form("ControlUser")
ActiveChar=Request.Form("ActiveChar")
if Not IsNumeric(ActiveChar) then ActiveChar=-1

Dim ErrorMsg
ErrorMsg=""
if Len(Password)<1 then ErrorMsg="请输入密码!"
if Len(UserName)<1 then ErrorMsg="请输入账号!&quo