<% If Request("Edit")="OK" Then NID = Request("NID") NContent = Request("NContent") biaoti = Request("biaoti") newpic= Request("newpic") Set Rsa=server.createobject("ADODB.RecordSet") Sqla="Select * From Net_Info Where NID="&NID Rsa.open Sqla,conn,1,3 If Not Rsa.eof and Not Rsa.bof Then Rsa("NContent") = NContent Rsa("biaoti") = biaoti Rsa("newpic") = newpic Rsa.update Response.Write "" End If Rsa.Close Set Rsa=nothing Else NID = Request("NID") Set Rsa=server.createobject("ADODB.RecordSet") Sqla="Select * From Net_Info Where NID="&NID Rsa.open Sqla,conn,1,1 If Not Rsa.eof and Not Rsa.bof Then %>

当前位置 >> 信息管理 | 编辑信息

标题： " size="20"> 详细： <% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "../HtmlEdit/FCKeditor/" oFCKeditor.ToolbarSet = "Default" oFCKeditor.Width = "100%" oFCKeditor.Height = "380px" oFCKeditor.Value = Rsa("NContent") oFCKeditor.Create "NContent" %> 图片： "> <%if Rsa("newpic")<>"" then%>" border="0" /><%end if%>             ">

<% Else Response.Write "" End If Rsa.close Set Rsa=nothing End If %>