通用修改和增加函数【ASP】
一般来说编数据库类的程序主要要解决的问题无非是添加，删除，修改和查询。这类编程都非常的简单。接下来我利用一点空余时间发一个函数里面包含和添加和删除功能。实验的架构可以使用IIS.5WEB服务器ACCESS数据库。这个我其实不用说的很详细了，因为大家都应该知道的。我就直接把函数贴出来。大家只要稍微修改即可使用。
<%
sub AdminEdit()
dim Action,rsCheckAdd,rs,sql
Action=request.QueryString("Action")
if Action="SaveEdit" then '保存编辑管理员信息
set rs = server.createobject("adodb.recordset")
if Result="Add" then '创建网站管理员
set rsCheckAdd = conn.execute("select AdminName from Ameav_Admin where AdminName='" & trim(Request.Form("AdminName")) & "'")
if not (rsCheckAdd.bof and rsCheckAdd.eof) then '判断此管理员名是否存在
response.write "<mce:script language=javascript><!--
alert('" & trim(Request.Form("AdminName")) & "管理员已经存在，请换一个登录名再试试！');history.back(-1);
// --></mce:script>"
response.end
end if
sql="select * from Ameav_Admin"
rs.open sql,conn,1,3
rs.addnew
if len(trim(Request.Form("AdminName")))<3 or len(trim(Request.Form("Password")))>10 then
response.write "<mce:script language=javascript><!--
alert('管理员登录名必填，且字符数为3-10位！');history.back(-1);
// --></mce:script>"
response.end
end if
if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16 then
response.write "<mce:script language=javascript><!--
alert('管理员密码必填，且字符数为6-16位！');history.back(-1);
// --></mce:script>"
response.end
end if
if Request.Form("Password")<>Request.Form("vPassword") then
response.write "<mce:script language=javascript><!--
alert('两次输入的密码不一样！');history.back(-1);
// --></mce:script>"
response.end
end if
rs("AdminN
相关文档：
学习目的：学会用表单元素向服务器传送变量，然后显示变量在客户端的浏览器。
首先，让我们来看一下DREAMWEAVER的表单元素毛刷。
下面我们来一个一个看表单元素。1、文本域，这个是最基本的，传送的是文本信息，一般用户名，密码都要用这个传送，不过要是密码的话要在类型里面选择密码，这样就会以*代替显示� ......
<%Dim connstrconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Stu.mdb")
Set bb = Server.CreateObject("ADODB.Connection")
bb.Open connstr%>
<html>
<head>
<meta http-equiv="content-Language" content="zh-cn" />
<meta http-equiv="Content-Type ......
使用Dreamweaver测试连接成功，但是IIS里面运行却总是错误百出，看了下面这篇博文问题才得以解决、、、
一般情况下asp可以正常运行,但只要连接数据库就提示,Microsoft JET Database Engine 错误
'80004005',我的电脑因为用批处理清理文件,所以不能运行了， 只
1.查看数据库连接语句没有发现错误；
2.查看文件夹的权限已 ......
代码：
<%@ LANGUAGE=VBScript CodePage=65001%>
<%
private function decodeBase64(base64)
dim DM, EL
Set DM = CreateObject("Microsoft.XMLDOM")
Set EL = DM.createElement("tmp")
EL.DataType = "bin.base64"
& ......
这几天学习动态网站的制作：ASP。由于老师讲的很认真，很详细，课程能听懂，自己也买了一本关于ASP的书籍，ASP的一些功能的实现，怎么做出来能看的差不多，可就是做的时候好差劲，不是某个英语单词不会写，就是重复错误出现，深刻的明白，做网站原来这么难，不仅需要严谨的逻辑思维能力，而 ......
