fso实例

时间：2008-01-12 编辑：简简单单来源：一聚教程网

<%
function changechr(str)
changechr=replace(replace(replace(replace(changechr,"[pic]",""),"[red]","" class="js-smartPhoto-pc" target="_blank">

"),"[red]",""),"[big]","")
changechr=replace(replace(replace(replace(changechr,"[/pic]",">"),"[/b]",""),"[/red]",""),"[/big]","")
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"
")," "," ")
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")

上一个：使用CDONTS发送邮件的几个例子
下一个：在ASP中用EasyMailObject组件处理Exchange邮件源代码---保存附件(savea

推荐专题

最新下载

热门教程

fso实例

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程