帮忙看看这测试代码,报类型不匹配!谢谢
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<script language=VBscript>
<!--
function chinese2unicode(Str)
dim i
dim Str_one
dim Str_unicode
for i=1 to len(Str)
Str_one=Mid(Str,i,1)
Str_unicode=Str_unicode & "%"
Str_unicode=Str_unicode & left(Hex(ascw(Str_one)),2)
str_unicode=Str_unicode & "%"
Str_unicode=Str_unicode & right(Hex(ascw(Str_one)),2)
next
chinese2unicode= Str_unicode
end function
//-->
</script>
</head>
<body>
<form name="form" method="post" action="">
<table width="227" border="0">
<tr>
<td width="168"><input name="txtcode" type="text" id="txtcode">
</td>
<td width="42"><input type="submit" name="Submit" value="提交">
</td>
</tr>
</table>
</form>
<%
content=request("txtcode")
code=chinese2unicode(content) '报类型不匹配
response.Write(code)
response.End()
%>
</body>
</html>
