• λ我爱Aspx >> Asp.Net >> 用文本+ASP打造新闻发布系统

    • 用文本+ASP打造新闻发布系统

  • :aspxer  Դ:internet  :2007-5-15 20:47:10  ؼ:asp

  • 'Fields("xxx").Length 取得Form中xxx(Form Object)的数据长度

    'Fields("xxx").Value 取得Form中xxx(Form Object)的数据内容

    Dim FormData,FormSize,gnote,bnote,notes,binlen,binstr

    FormSize=Request.TotalBytes

    FormData=Request.BinaryRead(FormSize)

    Set Fields = GetUpload(FormData)

    '############判断输入错误

    dim news_title,news_content,news_src,mysession

    mysession=Fields("mysession").value

    if len(mysession)=0 then

    Response.Write "非法登陆或超时请重新登陆"

    Response.End

    end if

    news_title=Fields("news_title").value

    news_title=replace(news_title,"|","|")

    news_content=Fields("news_content").value

    news_src="http://dev.21tx.com/2005/11/04/Fields(news_src).valuenews_src=replace(news_src,"|","|")

    if len(news_title)=0 then%〉

    〈script〉

    alert("出错！新闻标题不能为空");

    history.go(-1);

    //window.location="news_add.asp";

    〈/script〉

    〈%Response.end

    end if

    if len(news_content)=0 then%〉

    〈script〉

    alert("出错！新闻内容不能为空");

    history.go(-1);

    〈/script〉

    〈%end if

    if len(news_src)=0 then%〉

    〈script〉

    alert("出错！新闻来源不能为空");

    history.go(-1);

    〈/script〉

    〈%Response.end

    end if

    dim varchar

    Ҷƪл˵?
    第一页上一页12345678910111213下一页尾页
  • һƪ一个ASP统计制作实例
    һƪ防范ASP木马的十大基本原则