如何用ASP程序生成GBK字符集?
hulj 2007-06-07 09:49:35 最近遇到一个问题,想在网上发动网友对汉字进行编码,所以需要准备GBK字符集。
我用这种方式,但是仍然会有一些控制符,导致整个程序出错。
Function gWord(tWordID) '取对应数值的汉字
Dim sErr
sErr = "参数值不在范围内,请选择(-10247)~(-20319)"
If Not IsNumeric(tWordID) Then
gWord = sErr
Exit Function
End If
If Chr(tWordID) <> "?" Then
gWord = Chr(tWordID)
THISWORDNUM = tWordID '记录取的汉字序号(全局变量)
Else
gword = "chr("&twordid&")=?了"
Do While Chr(twordID) <> "?"
'gword="跳过一个非汉字"& twordID &"<br>"
THISWORDNUM = tWordID + 1 '记录取的汉字序号(全局变量)
'gWord = sErr
Loop
gWord = gWord(tWordID+1) '取下一个不是?的汉字
End If
End Function
请高手帮忙,看如何解决只显示汉字问题,把一些没用的字符跳过。