再解决不了，就疯了，高手献身吧~~
<!--   #Include   File   =   "../DbConn.asp "   -->
<title> 保存文档 </title>
<%
Dim   c_id,S,StrTime_Name,real_id
Randomize   Timer
S                             =   Int((8999)   *   Rnd   +   1000)
Str                         =   Asc(Hex(S))

Print_DateTime   =   Now()
Time_Name             =   MakeFileName(Print_DateTime)
real_id                 =   "a "   &   Time_Name   &   Str  

c_id                       =   Cint(Request.Form( "Select_cid "))
'response.write   c_id
Article_Title     =   Request( "Article_Title ")
      Doc_Content   =   trim(Request.form( "cnWords "))  
      Doc_Content   =   Replace(Doc_Content, " <script ", " <sscript ")  
      Doc_Content   =   Replace(Doc_Content, "/script> ", "/scripts> ")
      Doc_Content   =   Replace(Doc_Content, "/script   > ", "/scripts> ")
RealLink               =   Request( "RealLink ")
'Href_Add               =   "Content.asp?id=&   real_id
Href_Add               =   "Content.asp?id= "&   real_id
AddUser                 =   "anhaiyong "
AddTime                 =now()
Call   Add_Content
Function   Add_Content

'-----------   最主要的问题好像在这儿
      Call   Find_UpClass()
      Call   Find_ThisClass()
      Call   Open_Conn()

'-----------   最主要的问题好像在这儿
      Sql2= "Insert   into   ContentTable(p_id,p_name,c_id,c_name,Article_Title,Article_Content,Href_Add,Add_User,AddTime,RealLink,real_id)   values( ' "&   Rs1( "id ")   & " ', ' "&   Rs1( "menuname ")   & " ', "&   Rs3( "id ")   & ", ' "&   Rs3( "menuname ")   & " ', ' "&   Article_Title   & " ', '123 ', ' "&   Href_Add   & " ', ' "&   AddUser   & " ', ' "&   AddTime   & " ', ' "&   RealLink   & " ', ' "&   real_id   & " ') "
      Response.write   Sql2
      Set   Rs2   =   Server.CreateObject( "ADODB.Recordset ")
      Rs2.Open   Sql2,Conn,1,1
      Response.Write( " <script   language= 'javascript '> var   Ys   =   confirm( '   用户提示:\n\n   用户增加成功，是不继续添加？！单击“确定”继续添加。单击“取消”停止添加。\n\n   ');if(Ys){this.location.href= 'index.asp ';}else