这段程序已经能够很好的运行了，我现在有一个想法。将验证段另保存成一个ok.bvs的文件，然后使用<script language="vbscript" scr="ok.bvs">的方法嵌入进来。这样以后其它的文件再要需要验证功能时，就不需要反复写代码了。<script language="vbscript" scr="ok.bvs"></script>
首先，我将<script languange="vbScript">和</vbscript>包围的部分做成了ok.vbs文件。然后将原来写脚本的地方，该成<script language="vbscript" scr="ok.bvs"></script>。保存后运行，提示：错误：类型不匹配：'Onclick_s'，这是为什么？请给我指一条明路。
<%@LANGUAGE="vbscript" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>临时用户注册</title>
<script language="javascript" ></script>
<script language="vbscript">
Dim k
'-------------------------------------------------------------

Function Onclick_s()
Dim i,username,userpassword,temp1,string_name,string_password
temp1=Null
string_name="abcdefghrjklmnopqrstuvwxyz._-" 'A=65 Z=90 a=97 z=122
string_password="ABCDEFGHRJKLMNOPQRSTUVWXYZabcdefghrjklmnopqrstuvwxyz1234567890!@#$%^&*()_+|\-=[]{}:;?/.,><"

'//用户填写区逻辑验证开始
For i=0 to document.f1.elements.length-1
If document.f1.elements(i).value="" then
Select Case cstr(document.f1.elements(i).name)
Case "t1"
msgbox("昵称不能为空，请认真填写！")
document.f1.elements(i).focus
Case "t2"
msgbox("姓名不能为空，请认真填写！")
document.f1.elements(i).focus
Case "t3"
msgbox("密码不能为空，请认真填写！")
document.f1.elements(i).focus
Case "t4"
msgbox("密码验证区不能为空，请认真填写！")
document.f1.elements(i).focus
End Select
Exit function
End If
Next
For i=1 to 4
If len(trim(document.f1.elements("t"&i).value))<6 or len(trim(document.f1.elements("t"&i).value))>document.f1.elements("t"&i).maxlength then
Select Case cstr(document.f1.elements("t"&i).name)
Case "t1"
msgbox("昵称不能小于六位，请您检验！")
document.f1.elements("t"&i).focus
Exit function
Case "t2"
If document.f1.select_0.value="English" then
msgbox("姓名不能小于六位，请您检验！")
document.f1.elements("t"&i).focus
Exit function
End If
Case "t3"
msgbox("密码不能小于六位，请您检验！")
document.f1.elements("t"&i).focus
Exit function
Case "t4"
msgbox("验证密码不能小于六位，请您检验！")
document.f1.elements("t"&i).focus
Exit function
End Select
End If
Next
'//用户填写区物理验证结束
'***********************************
'//用户填写区逻辑验证开始

'---------昵称、姓名字符合法性验证开始
For i=1 to 4
temp1=" "
username=trim(document.f1.elements("t"&i).value)
If Instr(1,username,temp1,1) then
msgbox("填写区字符之间不能有空格出现，请您核对后重新填写！")
document.f1.elements("t"&i).focus
Exit Function
End If
Next

If document.f1.select_0.value="china" then
IF Len(trim(document.f1.elements("t2").value))<2 then
msgbox("中文姓名不可少于两个字！")
document.f1.elements("t2").focus
End If
End If
If document.f1.select_0.value="English" then
username=lcase(trim(document.f1.elements("t2").value))
For i=1 to len(username)
temp1=mid(username,i,1)
If Instr(1,string_name,temp1,0)=0 then
msgbox("您的姓名中包括非法字符，请您核对后重新填写！合法的字符包括："&string_name&"!")
document.f1.elements("t2").focus
Exit Function
End If
Next
End If
'---------昵称、姓名字符合法性验证结束

'---------密码填写区字符合法性验证开始
If true then
userpassword=trim(document.f1.elements("t3").value)
For i=1 to len(userpassword)
temp1=mid(userpassword,i,1)
If Instr(1,string_password,temp1,0)=0 then
msgbox("您填写的密码中包括非法字符，请您重新填写！合法的包括："&string_password&"!")
document.f1.elements("t3").focus
Exit Function
End If
Next
userpassword=trim(document.f1.elements("t4").value)
For i=1 to len(userpassword)
temp1=mid(userpassword,i,1)
If Instr(1,string_password,temp1,0)=0 then
msgbox("密码验证区中包括非法字符，请您重新填写！合法的包括："&string_password&"!")
document.f1.elements("t4").focus
Exit Function
End If
Next
End If
'---------密码填写区字符合法性验证结束

'---------密码区与密码验证区的完全相等性验证开始
If (len(trim(document.f1.elements("t3").value))<>len(trim(document.f1.elements("t4").value))) then
msgbox("您填写的密码与验证密码字符数不相符，请查证后重新填写！")
document.f1.elements("t3").focus
Exit Function
End If
If (StrComp(trim(document.f1.elements("t3").value),trim(document.f1.elements("t4").value),0))<>0 then
msgbox("您填写的密码与验证密码的字符存在差异，请查证后重新填写！")
document.f1.elements("t3").focus
End If
'---------密码区与密码验证区的完全相等性验证结束

'//用户填写区逻辑验证结束

End Function
'------------------------------------------------------------
function OnChange_select(k)
If document.f1.t2.value<>"" then
document.f1.t2.value=""
End If
If k<>"0" then
document.f1.t2.readOnly=false
else
document.f1.t2.readOnly=true
End If
IF k="English" then
document.f1.t2.size="20"
else
document.f1.t2.size="10"
End If
End function

</scrrpt>
</head>

<body >
<form id="f1" name="f1" action="" method="post">
<table id="table_t0" name="table_t0">
<tr>
<td>
<table id="table_t1" name="table_t1">
<tr>
<TD>
您的昵称：
</TD>
<td>
<input id="t1" name="t1" type="text" size="10" maxlength="<% =response.Write(Rs_Small.Fields("ni_cheng").DefinedSize)%>">
</td>
<td>
***必须填写的内容（最少六位）
</td>
</tr>
</table>
<table id="table_t2" name="table_t2">
<tr>
<td>
您的姓名：
</td>
<td>
<INPUT type="text" ID="t2" name="t2" size="10" readonly maxlength="<% =response.Write(Rs_Small.Fields("xing_ming").DefinedSize)%>">
</td>
<td>
<select id="select_0" name="select_0" onchange="vbscript:OnChange_select(document.f1.select_0.value)">
<option id="option_0" value="0" selected>请先选择</option>
<option id="option_1" value="English">English</option>
<option id="option_2" value="china">中文</option>
</select>
***请填写真实姓名
</td>
</tr>
</table>
<table id="table_t3" name="table_t3">
<tr>
<td>
您的密码：
</td>
<td>
<INPUT type="password" ID="t3" name="t3" size="10" maxlength="<% =response.Write(Rs_Small.Fields("password").DefinedSize)%>">
</td>
<td>
***必须填写内容（最少六位）
</td>
</tr>
</table>
<table id="table_t4" name="table_t4">
<tr>
<td>
验证密码：
</td>
<td>
<INPUT type="password" ID="t4" name="t4" size="10" maxlength="<% =response.Write(Rs_Small.Fields("password").DefinedSize)%>">
</td>
<td>
***必须填写内容（最少六位）
</td>
</tr>
</table>
<table id="table_t5" name="table_t5">
<tr>
<td>
请您认真填写并记录，祝您工作愉快！
</td>
<td>
<INPUT type="button" value="提交" ID="b1" name="b1" onclick="vbscript:Onclick_s()"><INPUT type="reset" value="清除" ID="r1" name="r1">
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>