高分求救：小弟做了个论坛，在将文章输入数据库时，当遇到一些特殊符号时就会出现错误，请各位大侠指正！

blue2bird 2001-08-04 01:51:09

　　　　.-. __ _ .-. 　
　　　　　|　`　/ \　| 　
　　　　　/　　 '.()--\ 　
　　　　 |　　　　 '._/ 　
　　　　_| O　 _　 O |_ 　
　　　　=\　　'-'　　/= 　
　　　　　'-._____.-' 　
　　　　　/`/\___/\`\ 　
　　　　 /\/o　　 o\/\ 　
　　　　(_|　　　　 |_) 　
　　　　　|____,____| 　
　　　　　(____|____)　　　　　　　　　　　　　.&______~*@*~______&.　　　　　 *　
　　　　　　　　　　　　"w/%%%%%%%%%%%%%%%%%%%\w"　　　　***　
　　　　　　　　　　　　　`Y""Y""Y"""""Y""Y""Y'　　　　 *****　
　　　 __/M__　　　　　p-p_|__|__|_____|__|__|_q-q　　　**Y**　
　____|O_^_O|_________[EEEEM==M==MM===MM==M==MEEEE]-__....|....　

例如上面的代码就都不行。程序原代码如下：

Strmsg =server.htmlencode( Request.Form("Message"))
Strmsg=SepLine(Strmsg,80)
strSql = "insert into topics (forum_id, T_Subject, T_Message, T_Originator,T_date, T_Mail,FACE_ID) Values ("
strSql = StrSql & Request.Form("forum_id") & ", '"
strSql = StrSql & server.htmlencode(Request.Form("TopicSubject")) & "', '"
strSql = StrSql & Strmsg & "', "
strSql = StrSql & rs("Member_ID") & ", "
strsql = strsql & "'" & now() & "',"
strSql = StrSql & TF & ", "
strSql = StrSql & Request.Form("FACE_ID") & ")"
my_conn.Execute (StrSql)

其中函数：<%

Function SepLine(str,maxlen)
Dim pos1, str1, astr1, Estr, sCount, strLen
strLen = Len(str)
Estr = ""
sCount = 0
For pos1 = 1 To strLen
str1 = Mid(str, pos1, 1)
astr1 = Asc(str1)
If astr1 < 0 Then '是中文就计两个长度
sCount = sCount + 2
Else
sCount = sCount + 1
End If
If astr1 = 10 Or astr1 = 13 Then
sCount = 0
End If
Estr = Estr + str1
If (sCount >= MaxLen) And (Mid(str, pos1 + 1, 1) <> Chr(13)) Then
sCount = 0
Estr = Estr + "<br>"
End If

Next
'Estr=replace(Estr,chr(13)+chr(10),"<p></p>")
Estr=replace(Estr,chr(10),"<br>")
Estr=replace(Estr,chr(13)," ")

SepLine = Estr
End Function
%>

万往各位大侠斧正，小弟万分着急，一定尽量送分！！！

...全文