' 初始化数据库连接 Call DBConnBegin() sSql = "select * from ewebeditor_style where s_name='" & sStyleName & "'" Set oRs = CreateObject("ADODB.Recordset") oRs.Open sSql, oConn, 0, 1 If oRs.Eof Then sStyleID = oRs("S_ID") sStyleName = oRs("S_Name") sStyleDir = oRs("S_Dir") sStyleCSS = oRs("S_CSS") sStyleUploadDir = oRs("S_UploadDir") nStateFlag = oRs("S_StateFlag") sAutoRemote = CStr(oRs("S_AutoRemote")) sShowBorder = CStr(oRs("S_ShowBorder")) sDetectFromWord = oRs("S_DetectFromWord") sInitMode = oRs("S_InitMode") sBaseUrl = oRs("S_BaseUrl") sBaseHref = oRs("S_BaseHref") Else ShowErr "无效的样式Style参数传入,如果要使用默认值,请留空!" End If oRs.Close
<!--#include file="conn.asp"--><%set rs=server.CreateObject("adodb.recordset")sql="select * from news"rs.open sql,conn,1,3rs.addnewcontent=request.form("content")rs("content")=contentrs.updaters.close%>