|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
ASP一般认为只能运行在IIS上，正如前面所提到的，这并不是十分正确，事实上，ASP也能运行在Apache上。Apache ASP可在任意Apache服务器上运行有限的ASP功能，所需做的，只需打开mod_perl。在线 ASP进阶之文章在线办理更新--办理员&栏目办理篇
作者：沙岸小子
后面的章节已根基完成了文章办理体系的大局部功效，然而在本体系中，办理员姓名和暗码和栏目标更新都要本人在数据库中操作，如许并没有完整完成体系的完整在线办理更新，所以我比来对办理体系停止了进一步的完美，对其增添了相干功效，完成的真正意义上的文章办理体系在线办理更新！
完成这些功效也是经由过程对数据库的更新乃至新增内容来完成的，在这里活用数据库操作号令updata和addnew是关头，那些中央该用UPDATA，那些中央该用ADDNEW在这里都可以表现出来，上面就为人人引见其具体的完成进程！
文件changepass.asp
"翻开数据库毗连文件
<!--#include file="conn.asp"-->
<%
"限制办理用户才干进入
if request.cookies("adminok")="" then
response.redirect "login.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修正暗码栏目信息</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" type="text/CSS" href="style.css">
</head>
<body>
<div align="center"><center>
<font face=楷体_gb2312 size=4>动网文章办理办理员页面</font>
<table border="1" width="80%" bordercolorlight="#000000" cellspacing="0" cellpadding="0"
bordercolordark="#FFFFFF">
<%
dim rs,tsql
dim rst
"翻开纪录集ADMIN,并显示其内容
set rs=server.CreateObject("ADODB.RecordSet")
set rst=server.CreateObject("ADODB.RecordSet")
rs.open "select * from admin",conn,1
%>
<tr>
<td width="50%" align=center><form name=pass method="post" action="changepass.asp">
<font color=red>修正办理员信息</font></td>
<td width="50%" rowspan="4">* 如点击修正后仍显示本来暗码不必理睬，暗码已依照您输出的修正，您可以用新暗码上岸看看，或点刷新选择重试，这时候显示将正常！ </td>
</tr>
<tr>
<td width="50%" align="center">
<INPUT TYPE="hidden" name=method value="chan">
"在输出栏内显示本来的办理员称号和暗码,可以在这里直接输出新的用户名和暗码
<INPUT TYPE="hidden" name=id value="<%=rs("id")%>">
名字：<INPUT TYPE="text" size=10 NAME="name" value="<%=rs("username")%>">
</td>
</tr>
<tr>
<td width="50%" align="center">暗码：<INPUT TYPE="text" size=10 NAME="pass" value="<%=rs("password")%>">
</td>
</tr>
<tr>
<td width="50%" align="center"><INPUT name="change" class=buttonface value="修正" type='submit'>
</td>
</tr>
</form>
"当前往的method值为提醒修正暗码的chan,chan在填写办理员称号和暗码的from外面用value界说,所以当前往的是chan则提醒为修正暗码,可以停止数据库更新,不然将不履行UPDATA号令
<%
rs.close
if request("method")="chan" then
if request("change")="修正" then
rs.open "select * from admin where id="+request("id"),conn,1,3
"使用前往的办理员ID指定纪录集中的纪录并对其停止更新
rs("username")=request("name")
rs("password")=request("pass")
rs.Update
end if
end if
rs.close
%>
<tr>
<td width="50%" valign="top">
<%
"翻开显示文章栏目纪录集
rst.open "select * from type",conn,1
if rst.EOF then
response.write "没有栏目：（"
else
%><br>
<form name=edittype method="post" action="changepass.asp">
<p align=center><font color=red>文章栏目办理</font><br>
<%do while NOT rst.EOF%>
"顺次显示文章的栏目,并可经由过程点击删除,修正停止相干操作
<%=rst("type")%>
<a href="changepass.asp?typeid=<%=rst("typeid")%>&name=del">删除</a>
<a href="changepass.asp?typeid=<%=rst("typeid")%>&name=edit">修正</a>
<br>
<%
rst.MoveNext
loop
end if
rst.close
%>
</form>
"假设前往的NAME为DEL则提醒用户点击了删除毗连,那末将对数据库指定纪录集停止删除操作
<%
if request("name")="del" then
rst.open "delete * from type where typeid="+request("typeid"),conn,1
rst.close
end if
%>
"假设前往的NAME为EDIT则提醒用户点击了修正按钮,这时候候会使用前往的栏目ID(TYPEID)显示相干栏目标操作信息,并可在外面填写你想要修正的栏目称号
<%if reque</p> ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。 |
|
|Archiver|手机版|仓酷云
鄂ICP备14007578号-2
发表于 2015-2-3 23:40:22
收藏
转播
分享
淘帖
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜
窥视卡
雷达卡
发表于 2015-7-17 22:29:25