 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<!--#include file="config.asp"--> <!--#include file="inc/articlechar.inc"--> <% function changechr(str) changechr=replace(replace(replace(replace(changechr,"[pic]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>") changechr=replace(replace(replace(replace(changechr,"[/pic]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>") changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ") end function %> <% if request.cookies("newsadminok")="" then response.redirect "login.asp" end if if request.form("txttitle")="" then response.write "错误提示:请输入新闻标题!" response.end end if if request.form("txtcontent")="" then response.write "错误提示:请未输入新闻内容!" response.end end if dim title dim content dim sql dim rs dim articleid dim classid,Nclassid dim from title=htmlencode2(request.form("txttitle")) from=request.form("Nfrom") zznews=request.form("zznews") typeid=request.form("typeid") about=request.form("about") headline=request.form("headline") ftitle=htmlencode2(request.form("ftitle")) dim sql1 dim rs1 dim typename sql1="select * from type where typeid=" & typeid set rs1=server.createobject("adodb.recordset") rs1.open sql1,conn,1,1 typename=rs1("type") if request.form("checkbox1")="1" then tjnews=1 else tjnews=2 end if if request.form("yheadline")="1" then yheadline=1 else yheadline=0 end if content=htmlencode(request.form("txtcontent")) set rs = server.CreateObject("ADODB.RecordSet") StrSql = "select E_Memo from Example" set rs = conn.Execute (StrSql) fname = makefilename(now()) dddd = year(now()) & "年" & month(now()) & "月" & day(now()) & "日" & hour(now())&":"&minute(now()) pencat=rs("E_Memo") pencat=replace(pencat,"lx",typename) pencat=replace(pencat,"Date",dddd) if from="" then pencat=replace(pencat,"From","") else pencat=replace(pencat,"From","摘自：" & from) end if if zznews="" then pencat=replace(pencat,"Fname",Editor) zznews=Editor else pencat=replace(pencat,"Fname",zznews) end if pencat=replace(pencat,"H_Title",title) pencat=replace(pencat,"H_Memo",content) pencat=replace(pencat,"labout",about) pencat=replace(pencat,"ftitle",ftitle) newsdate = year(now()) & "." & month(now()) & "." & day(now()) TimePath = year(Now()) & "-" & month(now()) & "-" & day(Now()) FolderPath = Server.MapPath(".")& "" & TimePath rs.close \\\'将新闻保存入数据库 sql="select * from article where (newsid is null)" rs.open sql,conn,1,3 rs.addnew rs("title")=title rs("content")=content rs("Nfrom")=from rs("typeid")=typeid rs("path")=TimePath rs("typename")=typename rs("tjnews")=tjnews rs("N_Fname")=fname rs("zznews")=zznews rs("about")=about rs("newsdate")=newsdate rs("yheadline")=yheadline rs("headline")=headline if ftitle <> "" then rs("ftitle")=ftitle rs.update pencat=replace(pencat,"h_id",rs("newsid")) Set fso = Server.CreateObject("Scripting.FileSystemObject") If CheckDir(FolderPath) = True Then Set fout = fso.CreateTextFile(FolderPath & "" & fname) Else MakeNewsDir TimePath Set fout = fso.CreateTextFile(FolderPath & "" & fname) End if fout.WriteLine pencat fout.close articleid=rs("newsid") UpdateJs(news) rs1.close set rs1=nothing rs.close set rs=nothing conn.close set conn=nothing response.redirect "addnews.asp" %> 返回类别: 教程 上一教程: ASP系列讲座(四)使用脚本语言 下一教程: WEBCLASSES使注册变得轻易 您可以阅读与"FSO实例"相关的教程: · FSO组件操作实例技巧 · 读取ACCESS数据库表名实例 · ASP.NET编程实例ABC(2) · ASP按钮菜单制作实例 · 无组件上传实例 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
