asp代码公告（asp网站发布）

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

本文目录一览：

• 1、ASP后台代码
• 2、ASP简单代码分析(简单新闻发布系统)
• 3、谁能帮我写个网站公告的asp源码！
• 4、怎么制作asp动态公告啊，可以后台控制那中代码
• 5、ASP 代码分析 麻烦下~ 详细点！ 谢谢。对我很重要
• 6、求一段弹窗公告代码

ASP后台代码

你好~！这是我（我也是新手，一起学习！）写的代码：

1、conn.asp（连接数据库）文件代码：

%

set conn=server.CreateObject("adodb.connection")

conn.connectionstring="driver={Microsoft Access Driver (*.mdb)};dbq=" server.MapPath("#data.mdb")

conn.open

%

2、addproduct.asp（产品添加）文件代码：

form id="form1" name="form1" method="post" action="addProduct.asp"

table width="880" border="0" align="center"

tr

td colspan="2" align="center"h1添加产品/h1/td

/tr

tr

td width="210" align="right"名称：/td

td width="654"label

input name="p_name" type="text" id="title" size="85" /

/label/td

/tr

tr

td height="168" align="right"介绍：/td

tdlabel

textarea name="p_samllpic" cols="85" rows="23" id="content"/textarea

/label/td

/tr

tr

td align="right"种类：/td

tdlabel

input name="p_class" type="text" id="from" size="85" /

/label/td

/tr

tr

td colspan="2" align="center"input type="submit" name="Submit" value="添加产品" /

input type="reset" name="Submit2" value="重置" //td

/tr

/table

/form

!--#include file="conn.asp"--

%

if (trim(request("p_name"))"" and trim(request("p_samllpic"))"") then

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

rs.open "select * from web_Product",conn,1,3

if not rs.eof then

response.Write"script language='javascript'" "alert('此产品名称已存在，重复啦！');history.go(-1);/script"

else

rs.close

rs.open

rs.addnew

rs("p_name")=trim(request("p_name"))

rs("p_samllpic")=trim(request("p_samllpic"))

rs("p_class ")=trim(request("p_class"))

rs.update

rs.close

response.Write"script language='javascript'" "alert('产品添加成功！');history.go(-1);/script"

end if

end if

%

3、xiugai.asp（产品信息修改）文件代码：

!--#include file="conn.asp"--

form name="form1" method="post" action="editnews.asp?action=saveid=%=request("id")%"

table width="880" border="0" align="center"

tr

td colspan="2" align="center"h1修改产品/h1/td

/tr

tr

td width="210" align="right"名称：/td

td width="654"label

input name="p_name" type="text" value=%=rs("p_name")% id="title" size="85" /

/label/td

/tr

tr

td height="168" align="right"介绍：/td

tdlabel

textarea name="p_samllpic" cols="85" rows="23" id="content"%=rs("p_samllpic")%/textarea

/label/td

/tr

tr

td align="right"种类：/td

tdlabel

input name="p_class" value=%=rs("p_class")% type="text" size="85" /

/label/td

/tr

tr

td colspan="2" align="center"input type="submit" name="Submit" value="发布" /

input type="reset" name="Submit2" value="重置" //td

/tr

/table

/form

%

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

rs.open "select * from news where id="request("id"),conn,1,3

if trim(request("action"))="save" then

rs("p_name")=trim(request("p_name"))

rs("p_samllpic")=trim(request("p_samllpic"))

rs("p_class")=trim(request("p_class"))

rs.update

rs.close

set rs=nothing

response.Write"script language='javascript'" "alert('产品信息修改成功！');history.go(-1);/script"

end if

%

4、manage.asp（管理维护）文件代码：

!--#include file="conn.asp"--

pa href="addproduct.asp"添加新闻/a/p

form method="post" name="manage" action="manage.asp"

table width="645" border="1" cellspacing="0" bordercolor="#006633"

tr align="center"

td width="43" height="19" bgcolor="#FFFFFF" /td

td width="218" bgcolor="#FFFFFF"名称/td

td width="167" bgcolor="#FFFFFF"介绍/td

td width="111" bgcolor="#FFFFFF"分类/td

td width="84" bgcolor="#FFFFFF" /td

/tr

%

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

rs.open "select * from web_Product",conn,1,3

do while not rs.eof

%

tr

td bgcolor="#FFFFFF"label

input type="checkbox" name=%=cstr(rs("id"))% value="check" /

/label/td

td bgcolor="#FFFFFF"a href="newshows.asp?id=%=cstr(rs("id"))%" target="_blank"

%

response.Write rs("p_name")

%

/a/td

td bgcolor="#FFFFFF"%=rs("p_samllpic")% /td

td bgcolor="#FFFFFF"%=rs("p_class")%/td

td bgcolor="#FFFFFF"a href="xiugai.asp?id=%=cstr(rs("id"))%"产品信息修改/a/td

/tr

%

rs.movenext

loop

rs.close

set rs=nothing

%

/table

/form

一共4个页面，基本上是这样了，刚好我也在做这个。你把这些代码放在body之间就可以了，要添加图片的话，好像要一个无组件上传什么的（也就是一串代码），有点麻烦，只能你自己在网上找了~！我这只写出向数据库导入、修改文本的代码而已。字段基本上照楼主给的写的，（测试的时候要保证数据库表里有数据，不然会出错的）。在测试时先要从manage.asp页面进入（因为只有这个页面才能把id这个参数传递给添加和修改页面），代码为ASP代码。希望对你有所帮助！！

ASP简单代码分析(简单新闻发布系统)

你这也太多啦，给你个地址去看看，很简单的。你一定能看明白的，祝你成功。

谁能帮我写个网站公告的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动态公告啊，可以后台控制那中代码

这个嘛简单,先建立一个数据库,数据表

字段等

然后用一个表单写入数据.前台调用就OK

ASP 代码分析 麻烦下~ 详细点！ 谢谢。对我很重要

这是最简单的ASP运用数据库的代码,给你说说,建议先学学ASp和数据库SQL基本语法,html脚本我就不说了,如果连html脚本都不会,那没说了

addclass.asp

!--#include file="conn.asp"-- '把连接数据库代码的文件conn.asp包含进来,这里conn.asp文件和addclass.asp是在同一级目录

%

set rs=server.createobject ("adodb.recordset") '建立数据集对象rs

sql="select * from class" 'SQL查询语句,*表示查询表class中所有记录

rs.open sql,conn,3,3 '对象打开数据库为可写(3表示可写)

%

%

if request.querystring("act")="tj" then '如果表单form提交了,就执行下面语句

rs.addnew '增加新记录

rs("class")=request.form("addclass") '新纪录的值等于表单文本框addclass中value的值

rs.update '更新数据库

rs.close'关闭对象,释放资源

response.Write "添加完成，请执行其他操作" '像客户端输出执行结果信息

else'如果表单还没有提交,即request.querystring("act")="" (空),就显示下面的html控件

%

div align="center"添加分类

/div

form id="form1" name="form1" method="post" action="addclass.asp?act=tj" 'addclass.asp?act=tj表示向本页提交,同时传递参act=tj,这句可以写成"?act=tj",其中问号表示当前页面

label

div align="center"分类名称：

input type="text" name="addclass" /

input type="submit" name="Submit" value="添加" /

%

end if '结束判断

conn.close '下面三句都是释放数据库对象资源

set rs=nothing

set conn=nothing

%

%

end if '从你的代码上下文来看,这个end if好像是多余的,

%

-----------------------------------------------------

!--#include file="conn.asp"-- '同上

editclass.asp

p align="center" class="STYLE1"分类管理/p

div align="center" class="STYLE1"

%

set rs=server.createobject("adodb.recordset") '同上

sql="select * from class" '同上

rs.open sql,conn,1,1 '对象以只读方式打开数据库记录

do until rs.eof '用do...loop循环语句循环输出class表中的所有记录

%

td width="467"名称：

a href="../class.asp?id=%=rs("id")%" target="_blank"%=rs("class")%/a/td'把记录通过id参数传递到上一级目录中的class.asp页面显示

td width="59"a href="editclass_save.asp?id=%=rs("id")%"改名/a/td '把记录通过id参数传递到同级目录中的editclass_save.asp修改保存页面

td width="51"a href="delclass.asp?id=%=rs("id")%"删除/a/td

'把记录通过id参数传递到同级目录中的delclass.asp删除页面

%

rs.movenext '数据指针移动到下一条记录

loop '循环语句结束

%

%

rs.close '同上

conn.close '同上

set rs=nothing '同上

set conn=nothing '同上

%

%

end if '从你的代码上下文来看,这个end if好像是多余的,

%

------------------------------------------------------

editclass_save.asp '修改页面,解释和addclass.asp页面的解释相似,在此省略,自己也想想

!--#include file="conn.asp"--

%

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

sql="select * from class where id="request.QueryString("id")

rs.open sql,conn,1,3

%

p align="center"更改类别名称/p

form id="form1" name="form1" method="post" action="editclass_save.asp?act=gmid=%=request.QueryString("id")%"

label

div align="center"

input type="text" name="classname" value="%=rs("class")%" /

input type="submit" name="Submit" value="修改" /

div align="center"

%

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

id=request.QueryString("id")

if request.QueryString("act")="gm" then

sql1="select * from class where id="id

rs1.open sql1,conn,1,3

rs1("class")=request.form("classname")

rs1.update

rs1.close

response.Redirect "editclass.asp"

end if

%

%

rs.close

set rs=nothing

set rs1=nothing

conn.close

set conn=nothing

%

%

end if

%

--------------------------------------------------------

delclass.asp '删除页面

%

if not session("check")="checked" then '判断如果session("check")不等于checked,最好这样写:if session("check")"checked" then

response.Redirect "login.asp" '就转向登陆页面

else '如果session("check")等于checked,就执行下面语句

%

!--#include file="conn.asp"-- '下面是删除数据库记录,条件是传递的id

%

id=request.querystring("id")

delclass="delete * from class where id="id '这句可以写成:delclass="delete class where id="id

conn.execute(delclass) 'conn对象执行delclass语句

response.Redirect "editclass.asp" '转向editclass.asp页面

%

%

rs.close '同上

conn.close '同上

set rs=nothing '同上

set conn=nothing '同上

%

%

end if

%传递

求一段弹窗公告代码

给你一个同时弹出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网站发布、asp代码公告的信息别忘了在本站进行查找喔。