ASP网页编程之fso实例
因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQLServer还有更多的扩展，可以用存储过程，数据库大小无极限限制。fso<!--#includefile="config.asp"-->
<!--#includefile="inc/articlechar.inc"-->
<%
functionchangechr(str)
changechr=replace(replace(replace(replace(changechr,"","<imgsrc="),"","<b>"),"","<fontcolor=CC0000>"),"","<fontsize=7>")
changechr=replace(replace(replace(replace(changechr,"","></img>"),"","</b>"),"","</font>"),"","</font>")
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>"),"","")
endfunction
%>
<%
ifrequest.cookies("newsadminok")=""then
response.redirect"login.asp"
endif
ifrequest.form("txttitle")=""then
response.write"毛病提醒:请输出旧事题目!"
response.end
endif
ifrequest.form("txtcontent")=""then
response.write"毛病提醒:请未输出旧事内容!"
response.end
endif
dimtitle
dimcontent
dimsql
dimrs
dimarticleid
dimclassid,Nclassid
dimfrom
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"))
dimsql1
dimrs1
dimtypename
sql1="select*fromtypewheretypeid="&typeid
setrs1=server.createobject("adodb.recordset")
rs1.opensql1,conn,1,1
typename=rs1("type")
ifrequest.form("checkbox1")="1"then
tjnews=1
else
tjnews=2
endif
ifrequest.form("yheadline")="1"then
yheadline=1
else
yheadline=0
endif
content=htmlencode(request.form("txtcontent"))
setrs=server.CreateObject("ADODB.RecordSet")
StrSql="selectE_MemofromExample"
setrs=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)
iffrom=""then
pencat=replace(pencat,"From","")
else
pencat=replace(pencat,"From","摘自："&from)
endif
ifzznews=""then
pencat=replace(pencat,"Fname",Editor)
zznews=Editor
else
pencat=replace(pencat,"Fname",zznews)
endif
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*fromarticlewhere(newsidisnull)"
rs.opensql,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
ifftitle""thenrs("ftitle")=ftitle
rs.update
pencat=replace(pencat,"h_id",rs("newsid"))
Setfso=Server.CreateObject("Scripting.FileSystemObject")
IfCheckDir(FolderPath)=TrueThen
Setfout=fso.CreateTextFile(FolderPath&""&fname)
Else
MakeNewsDirTimePath
Setfout=fso.CreateTextFile(FolderPath&""&fname)
Endif
fout.WriteLinepencat
fout.close
articleid=rs("newsid")
UpdateJs(news)
rs1.close
setrs1=nothing
rs.close
setrs=nothing
conn.close
setconn=nothing
response.redirect"addnews.asp"
%>
缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了 ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)
页:
[1]