<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '**************************************************************** '** 版权所有：烈火工作室 演示网站http://www.strongfire.cn ** '** QQ:839225572 邮箱：strongfire2008@163.com ** '** 非正版用户不得擅自非法修改用于商业用途！查出必究。 ** '**************************************************************** %> <% Function inHTML(str) Dim sTemp sTemp = str inHTML = "" If IsNull(sTemp) = True Then Exit Function End If sTemp = Replace(sTemp, "&", "&") sTemp = Replace(sTemp, "<", "<") sTemp = Replace(sTemp, ">", ">") sTemp = Replace(sTemp, Chr(34), """) inHTML = sTemp End Function ClassName=Request("ClassName") page=Request("page") ID=Request.QueryString("id") set rs = server.CreateObject ("Adodb.recordset") sql="select * from article where ID="& id rs.Open sql,conn,1,1 ClassName=rs("ClassName") Picture = Rs("Picture") keywords = Rs("keywords") Title=rs("title") Content=rs("Content") addtime=rs("addtime") SavePathFileName = Rs("SavePathFileName") rs.close set rs=nothing Dim aSavePathFileName if SavePathFileName<>"" then ' 把带"|"的字符串转为数组，用于初始下拉框表单 aSavePathFileName = Split(SavePathFileName, "|") ' 函数InitSelect，根据数组值及初始值返回下拉框输出字串，具体请见startup.asp文件中函数的说明部分 else SavePathFileName="" aSavePathFileName = Split(SavePathFileName, "|") end if Dim sOptionSavePath sOptionSavePath = InitSelect("picture", aSavePathFileName, aSavePathFileName, Picture, "", "无") %> 修改信息
修改信息--该信息ID为：<%=ID%> 
信息类别：
 *
标    题：
 *
关 键 字：
 (如留空则关键字为:标题_网站名)
标题图片：
 <%=sOptionSavePath%>当编辑区有插入图片时，将自动填充此下拉框
发布日期：
 当前日期为：<%=date()%> 注意不要改变格式。
    
<% set rs=nothing %>