' 打开数据库 Set Con = Server.CreateObject("ADODB.Connection") Con.Open "asp" , Application("ConASP_RuntimeUserName") , Application("ConASP_RuntimePassword") Set RecBBS = Server.CreateObject("ADODB.RecordSet") Set RecReply = Server.CreateObject("ADODB.Reco...
'================================= Case "Modify" '================================ ' 修改文章 Which = Request("Which") WhichID = GetID( Which ) If Left( Which , 1 ) = "E" Then Table = "bbs" Else Table = "bbsreply" WrongMsg = "" If Request("Mod...