下面的代碼出現這樣的錯誤：
Microsoft VBScript 編譯階段錯誤 錯誤 '800a0408'
不正確的字元
/bao/admin/editok.asp, 列6
party_num=request("party_num")
-----------------------------------^
<%
'--------------------------
party_id=session("party_id")
party_master=request("party_master")
party_link=request("party_link")
party_num=request("party_num")
party_time=now
'--------------------------
if party_num="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('處理人不能為空！');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if
'----------------------------
sub myreplace(str)
str=replace(str,Chr(32)," ")
str=replace(str,VbCrlf,"<BR>")
end sub
myreplace memo
'------------------------------
connstr = "DBQ="+server.mappath("../party.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Set Conn = Server.CreateObject("ADODB.Connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr
sql="select * from party where party_id=" &party_id
rs.open sql,conn,1,3
'---------------------------
rs("party_master")=party_master
rs("party_link")=party_link
rs("party_num")=party_num
rs("party_time")=party_time
rs.update
rs.close
response.redirect "abc.asp"
%>
