sub ShowErrInfo(TopInfo)
conn.Close
set conn=nothing
Response.Write "<html><head>"
Response.Write "<meta http-equiv=Content-Type content=text/html;charset=gb2312></head>"
Response.Write "<body topmargin=0 rightmargin=0 leftmargin=0>"
Response.Write "<script language=vbscript>" & vbcrlf
Response.Write "MsgBox """&TopInfo&""",16,""错误提示信息""" & vbcrlf
Response.Write "location.href = ""javascript:history.back()""" & vbcrlf
Response.Write "</script>" & vbcrlf
Err.Clear
response.end
end sub