|
|
|
|
addarticle.asp
＜%
'判断是否是管理者
if request.cookies(adminok)= then
'如果不是回到管理员入口login.asp
response.redirect login.asp
end if
'如果是继续运行
%＞
＜html＞
＜head＞
＜meta http-equiv=Content-Type content=text/html; charset=gb2312＞
＜meta name=GENERATOR content=Microsoft FrontPage 3.0＞
＜title＞创建文章＜/title＞
＜link rel=stylesheet href=../css/style.css＞
＜/head＞
＜body bgcolor=#FFFFFF＞
'将提交的内容发送到SAVEARTICLE.ASP中去,进行处理！
＜form method=POST action=savearticle.asp＞
＜div align=center＞＜center＞
＜table border=1 cellspacing=0 width=80%
bgcolor=#F0F8FF bordercolorlight=#000000 bordercolordark=#FFFFFF＞
＜tr＞
＜td width=100% bgcolor=#0080C0 height=20＞
＜p align=center＞＜b＞＜font
color=#FFFFFF＞添 加 首 页＜/font＞＜font color=#0099CC＞ ＜font color=#FFFFFF＞更
新＜/font＞＜/font＞＜/b＞
＜/td＞
＜/tr＞
＜tr align=center＞
＜td width=100% height=184＞
＜table border=0 cellspacing=1 width=100%＞
＜tr＞
＜td width=15% align=right height=9 valign=middle＞＜b＞＜font color=#0080C0＞更新主题：＜/font＞＜/b＞＜/td＞
＜td width=85% height=9＞
'Txttitle是提交的文字段名称
'下面还包括txtil和txtcontent需要提交的文字段
＜input class=TextBorder name=txttitle size=50 maxlength=30＞
＜/td＞
＜/tr＞
＜tr＞
＜td width=15% align=right height=9 valign=middle＞＜b＞＜font color=#0080C0＞链接指示：＜/font＞＜/b＞＜/td＞
＜td width=85% height=9＞
＜input class=TextBorder name=txturl size=50 maxlength=50 value=http://＞
＜/td＞
＜/tr＞
＜tr＞
＜td width=15% align=right valign=top height=112＞＜b＞＜font color=#0080C0＞更新内容：＜/font＞＜/b＞＜/td＞
＜td width=85% height=112＞
＜textarea class=TextBorder name=txtcontent cols=75 rows=15＞＜/textarea＞
＜/td＞
＜/tr＞
＜/table＞
＜/td＞
＜/tr＞
＜/table＞
＜/center＞＜/div＞＜div align=center＞＜center＞＜p＞＜input type=submit value= 添 加
name=cmdok class=buttonface＞amp;nbsp; ＜input type=reset value= 清 除
name=cmdcancel class=buttonface＞＜/p＞
＜/center＞＜/div＞
＜/form＞
'版权信息不要更改！
＜p align=center＞《＜a href=http://asp.on.net.cn/ target=_blank＞ASP动感在线＜/a＞》编辑制作＜/p＞
＜/body＞
＜/html＞
就这样添加程序就OK了！
大家注意的是两点：
1.前面的判断句是管理员权限的保正，去掉它！任何人都可进行添加工作！
2.Txttitle,txtil和txtcontent文字段，是提交数据库的关键!以后将就在
这三项文字段变化完成动感效果！
作者：阿喔 出处：＜ASP动感在线＞ http://asp.on.net.cn/
(待续 |
|
|
