<%
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( "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 & "
'-------------------------------
AddUser = Session( "Admin_UserName ")
AddTime =now()
Call Find_UpClass()
Call Add_Content
Function Find_UpClass()
Call Open_Conn()
'-------------------------------这一段有问题
Sql1= "Select id,menuname From Menu_Unlimited a Where exists(Select * From Menu_Unlimited b Where b.p_id = a.id and b.id = "& c_id & ") "
'-------------------------------
Set Rs1=server.CreateObject( "adodb.recordset ")
Rs1.open sql1,Conn,1,1
End Function
Function Add_Content
Call Open_Conn()
Call Find_UpClass()
'-------------------------------这一段有问题，提示“类型不匹配: 'Rs1 '”
Sql2= "Insert into ContentTable (p_id,p_name,c_id,c_name,Article_Title,Article_Content,Href_Add,AddUser,AddTime,RealLink,real_id) values ( "& Rs1( "id ") & ", "& Rs1( "menuname ") & ", ' "& c_id & " ', ' "& c_name & " ', ' "& Article_Title & " ', ' "& Doc_Content & " ', ' "& Href_Add & " ', ' "& AddUser & " ', ' "& AddTime & " ', ' "& RealLink & " ', ' "& real_id & " ') "
'-------------------------------
Set Rs2=server.CreateObject( "adodb.recordset ")