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

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

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

  • If FullPath 〈〉 "" Then

    FullPath = StrReverse(FullPath)

    FullPath = Left(FullPath, InStr(1, FullPath, "\") - 1)

    GetFileName = StrReverse(FullPath)

    Else

    GetFileName = ""

    End If

    End Function

    〈/SCRIPT〉

    〈SCRIPT RUNAT=SERVER LANGUAGE=JSCRIPT〉

    function CreateUploadField(){ return new uf_Init() }

    function uf_Init(){

    this.Name = null

    this.FileName = null

    this.FilePath = null

    this.ContentType = null

    this.Value = null

    this.Length = null

    }

    〈/SCRIPT〉

    //新闻添加

    〈!--#include file="news_session.ASP"--〉

    〈html〉

    〈head〉

    〈meta http-equiv="Content-Language" content="zh-cn"〉

    〈meta http-equiv="Content-Type" content="text/html; charset=gb2312"〉

    〈style type="text/css"〉

    .buttonface {

    BACKGROUND-COLOR: #0079F2; BORDER-BOTTOM: #333333 1px outset; BORDER-LEFT: #333333 1px outset; BORDER-RIGHT: #ffffff 1px outset; BORDER-TOP: #ffffff 1px outset; COLOR: #ffffff; FONT-SIZE: 9pta { color: #000000; text-decoration: none}

    〈/style〉

    〈SCRIPT ID=clientEventHandlersJS LANGUAGE=JavaScript〉

    〈!--

    function client_onblur(ii) {

    server=eval("form1.server"+ii)

    if(server.value==""){

    client=eval("form1.client"+ii)

    clientvalue=client.value+""

    varlen=clientvalue.length

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