<% '======================================== '-- 定义基本信息 '======================================== dim thisModuleCode,thisModuleName,thisModuleDesc thisModuleCode = "News" thisModuleName = "新闻动态" thisModuleDesc = "" '======================================== '-- 建立数据包 '======================================== dim myDataStructure set myDataStructure = new News_Data dim id id = request.querystring("id") dim picUrlAbout if ((id <> "") and isnumeric(id)) then call openDB() dim queryForUpdateSql queryForUpdateSql = "select [Title],[Content],[RevisedTime],[AppendFile] from [News] where [Status] > 0 and [Id] = " & id dim theData set theData = new HC_PACK call theData.getData(g_Conn,queryForUpdateSql,myDataStructure) else response.redirect(""& SYS_ROOT &"/News.asp") end if %> <%=theData.getValue("Title")%>

新闻中心

<%=theData.getValue("Title")%>

中国最好的注册会计师培训机构—上海财经大学CPA培训电话：021-61507097 61992125

<%=theData.getValue("Content")%>

<% if (theData.getValue("AppendFile") <> "") then dim appendFileArr,afai,filePath,fileArr appendFileArr = split(theData.getValue("AppendFile"),"|") for afai = 0 to ubound(appendFileArr) filePath = trim("" & appendFileArr(afai)) if (filePath <> "") then fileArr = split(replace(filePath,"\","/"),"/") response.write("" & fileArr(ubound(fileArr)) & ""&"
") end if next end if %>

咨询问答