关于asp公告通知源代码的信息

本篇文章给大家谈谈asp公告通知源代码，以及对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、asp公告通知和新闻的区别
• 2、ASP 新闻发布系统 源代码以及如何使用
• 3、谁能帮我写个网站公告的asp源码！
• 4、请一段asp 代码，请达人指导
• 5、求一段弹窗公告代码
• 6、如何查看ASP源代码?

asp公告通知和新闻的区别

公告一般情况下只是文字，没有图片，新闻包括图片、超链接、甚至是视频；在实现上，公告实现简单，后台在录入的时候，用个多行文本框就可以了，新闻一般用所见即所得文字编辑器，例如FCKeditor等，有很多免费的，像新浪编辑器、网易编辑器；可以自己去网上搜索，都是开放源代码的，可移植性也很强。

其实说白了，公告就是最简单的信息。

ASP 新闻发布系统 源代码以及如何使用

!doctype html public "-/w3c/dtd html 4.01 transitional/en"

""

html

head

titleuntitled document/title

meta http-equiv="content-type" content="text/html; charset=gb2312"

/head

body

table width="770" border="0" align="center" cellpadding="0" cellspacing="0"

tr

tdform name="form1" method="post" action="send.asp"

table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ccffff"

tr

td height="20"div align="center"发送消息/div/td

/tr

tr

tddiv align="center"

textarea name="msg" cols="100" rows="6"/textarea

/div/td

/tr

tr

tddiv align="center"

input type="submit" name="submit" value="submit"

input type="reset" name="submit2" value="reset"

/div/td

/tr

/table

/form/td

/tr

/table

/body

/html

把上面代码生成index.asp文件

%

'这是字符串处理函数

function get_pass(pass)

pass=cstr(pass)

pass=replace(pass," ","")

pass=replace(pass," ","")

pass=replace(pass,"-","")

pass=replace(pass," ","")

pass=replace(pass,":","")

pass=replace(pass,".","")

pass=replace(pass,"+","")

pass=replace(pass,"_","")

pass=replace(pass,"","")

pass=replace(pass,"","")

pass=replace(pass,"!","")

pass=replace(pass,"@","")

pass=replace(pass,"#","")

pass=replace(pass,"$","")

pass=replace(pass,"%","")

pass=replace(pass,"^","")

pass=replace(pass,"!amp;","")

pass=replace(pass,"*","")

pass=replace(pass,"(","")

pass=replace(pass,")","")

pass=replace(pass,"=","")

pass=replace(pass,"\","")

pass=replace(pass,"/","")

pass=replace(pass,"|","")

pass=replace(pass,"下午","")

get_pass=pass

end function

'这是文件路径生成函数，参数为生成路径的时间

function namecheck(time)

webname=get_pass(time)

path=server.mappath("index.asp")

path1=path

total_length=len(path)

path=right(path,9)

right_length=len(path)

left_length=total_length-right_length

path=left(path1,left_length)

path=path"\children_page\"webname".html"

namecheck=path

set myfile=nothing

end function

'这是判断文件是否存在的过程,其中参数为最后更新时间

Sub isdelete(edittime)

filename=namecheck(edittime)

set fso=server.CreateObject("scripting.filesystemobject")

set file=fso.getfile(filename)

if fso.fileexists(file) then

file.delete

response.write("script language='javascript'alert('成功删除！');location.href='index.asp';/script")

end if

set fso=nothing

end Sub

'这是生成文件过程

Sub create

set fso=server.CreateObject("scripting.filesystemobject")

datastream=request("msg")

set myfile=fso.opentextfile(server.mappath("/muban/muban1.txt"))

dataall=myfile.readAll

datastream=replace(dataall,"list",datastream)

myfile.close

set myfile=nothing

set createfile=fso.CreateTextFile(namecheck(now()))

createfile.Write datastream

createfile.close

set createfile=nothing

set fso=nothing

response.write("script language='javascript'alert('成功提交！');location.href='index.asp';/script")

end Sub

%

%call create%

把上面代码复制生成send.asp文件

在同一目录中新建muban文件夹，在里面用下面代码生成muban1.txt文件

!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""

html xmlns=""

head

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

title无标题文档/title

style type="text/css"

!--

body {

background-image: url(pic002s.jpg);

}

--

/style/head

body

table width="900" border="0"

tr

tdtable width="100%" border="0"

tr

td!-- Search Google --

center

form method=get action=""

table background="pic002s.jpg"trtd

a href=""

img src=""

border="0" alt="Google" align="absmiddle"/a

input type=text name=q size=31 maxlength=255 value=""

input type=hidden name=ie value=GB2312

input type=hidden name=oe value=GB2312

input type=hidden name=hl value=zh-CN

input type=submit name=btnG value="Google 搜索"

/td/tr/table

/form

/center

!-- Search Google --/td

td /td

/tr

/table/td

/tr

tr

tdtable width="100%" height="100%" border="1"

tr

td height="476" align="center" valign="top"!-- TemplateBeginEditable name="list" --list!-- TemplateEndEditable --/td

/tr

/table

div style="text-align:center;"

pa href="" style="text-decoration:none; color:#FFFFFF;"用户留言/abr /font color="#FFFFFF"版权所有@违法必究/font

/div

/td

/tr

/table

/body

/html

在同一目录中新建children_page文件夹，一切完好。确保你的主机安装了FSO，具体方法如下：1、首先在系统盘中查找scrrun.dll，如果存在这个文件，请跳到第三步，如果没有，请执行第二步。

2、在安装文件目录i386中找到scrrun.dl_，用winrar解压缩，得scrrun.dll，然后复制到

你的系统盘:\windows\system32\目录中。

3、运行regsvr32 scrrun.dll即可。

删除fso、regsvr32/u scrrun.dll

开启/关闭系统FSO支持方法

windows98系统

在DOS命令行状态输入以下命令：

关闭命令：RegSvr32 /u C:\WINDOWS\SYSTEM\scrrun.dll

打开命令：RegSvr32 C:\WINDOWS\SYSTEM\scrrun.dll

win2000/XP

在CMD命令行状态输入以下命令：

关闭命令：RegSvr32 /u C:\WINNT\SYSTEM32\scrrun.dll

打开命令：RegSvr32 C:\WINNT\SYSTEM32\scrrun.dll (注意有可能是在SYSTEM中，所以这样写：RegSvr32 C:\WINNT\SYSTEM\scrrun.dll，主要看scrrun.dll这个文件是在哪里！ )

一切完好以后到这个地方下载ASP服务器：ASP小旋风到桌面上，关闭端口为80的程序，主要是迅雷，把所有文件考到:

C:\Program Files\ASP小旋风\wwwroot中，在浏览其中输入：http://你的IP地址，回车，输入数据，你看一下在children_page文件夹中是不是生成了，一个网页文件，新闻系统就是这样做的！

谁能帮我写个网站公告的asp源码！

1、用access数据库，创建一个公告表Notice，表结构如下：

ID：公告编码，数字类型

Title：公告标题，文本型

Content：公告内容，备注型

2、编写asp页面，读取和修改公告内容。

3、提交页的asp代码如下，其它代码如有需要再联系。

sql = "SELECT * FROM Notice"

set rs=server.createobject("adodb.recordset")

rs.open sql,conn,1,3

rs("Title") = request.Form("Title")

rs("Content") = request.Form("Content")

rs.update

rs.close

set rs=nothing

请一段asp 代码，请达人指导

1.一般这种权限的参数都用session传递的（防止注入)

2.使用javascript控制是不好的，所以先判断，然后再显示相应没有权限

另外方式就是通过ajax了

%

dim sx,surl

sabc = cint(request("abc"))

If sabc 0 Then

surl = "window.location.href='aaa/bbb.Asp?P_UserId=1'"

Else

surl = "alert('权限不足');"

End If

%

a href="#" onclick="javascript:%=surl%"查看%=2%人/a

求一段弹窗公告代码

给你一个同时弹出2个窗口的代码

script LANGUAGE="javascript"

!--

function openwin() {

window.open ("page.html", "newwindow", "height=100, width=100, top=0, left=0,toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, status=no")

window.open ("page2.html", "newwindow2", "height=100, width=100, top=100, left=100,toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, status=no")

}

//--

/script

为避免弹出的2个窗口覆盖，用top和left控制一下弹出的位置不要相互覆盖即可。最后用上面说过的四种方法调用即可。

注意：2个窗口的name(newwindows和newwindow2)不要相同，或者干脆全部为空。

特别说明：代码中的“page.html”和“page2.html”为弹出的广告页面，你把广告加在这2个页面中就可以了。

如何查看ASP源代码?

asp属于动态网页，你看不到源代码的，如果你作服务器的话，你可以使用写字版打开查看，另外对于2000的服务器，黑客有个程序好象叫”白鸽”，在有漏洞的情况下可以查看asp的源代码！

关于asp公告通知源代码和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。