addstr = "发现端口" & Str(port) & "打开" & Space(5) Select Case port Case 7 plus = "ECHO服务" Case 21 plus = "FTP服务★★★★★" Case 25 plus = "SMTP服务★★" Case 43 plus = "Whois服务" Case 53 plus = "DNS服务☆" Case 80 plus = "HTTP服务★★★★★" Case 81 plus = "HOSTS2名称服务" Cas
连接数据库代码实例 1,连接数据库代码 文件名称 conn.asp 所有访问数据库的文件都调用此文件 <% dim badword badword=\"\'|and|select|update|chr|delete|%20from|;|insert|mid|master.|set|chr(37)|=\" if request.QueryString\"\" then chk=split(badword,\"|\") for each query_name in request.quer