|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况;数据|数据库|在线跟着因特网的开展,在收集情况中,数据库使用垂垂向操纵复杂、功效有用的偏向开展。本文先容怎样使用ASP手艺完成对
数据库举行在线保护的办法,并给出了各类功效键的完成历程。
完成功效
数据库办理员可在网上间接保护数据库。在数据查询与数据库保护界面中(见),经由过程复选框拔取所要操纵的数据行,
并在功效键区经由过程单选按钮拔取所要举行的操纵,然后按“提交”按钮,便可举行所需操纵,并失掉前往信息(见)
数据查询与数据库保护界面
前往信息提醒界面
完成情况以下:
客户端:Windows98操纵体系+IE5.0扫瞄器
服务器端:SQLServer7.0数据库
网站使用程序开辟情况:ActiveServerPages(ASP)
网页制造开辟情况:MicrosoftFrontPage2000
编程完成
起首,用FrontPage2000体例数据查询与数据库保护界面,经由过程与背景SQLServer数据库standard创建联系关系,从数据
库表中查取数据,天生数据汇合rs。为加速程序会见速率,能够将其保留在session工具rs1中。部分代码以下:
<%
sql=“select*frominformorderbypdateDESC”
Setrs=Server.CreateObject(“ADODB.Recordset”)
rs.Opensql,“Driver={SQLServer};Server=
(local);Database=info;UID=user;PWD=password;”,3,2
setsession(“rs1”)=rs
%>
拔出一个Form,增加“拔出”、“删除”、“修正”等功效键,并将功效键处的单选按钮的组称号设为edit,按钮值分
别对应为“insert”、“delete”、“update”。
然后,编写ASP程序tzwh1.asp文件。从session中读取数据,依据数据项用split函数将其分隔,转化为一个数组进
行处置,并用trim函数往失落数据前后空格。程序部分代码以下:
<%setrs=session(“rs1”)
edit=trim(Request(“edit”))
id=“,”&trim(Request(“id”))&“,”
eno=split(trim(Request(“NO”)),“,”)
etitle=split(trim(Request(“title”)),“,”)
epdate=split(trim(Request(“pdate”)),“,”)
ewriter=split(trim(Request(“writer”)),“,”)
econtent=split(trim(Request(“content”)),“,”)
%>
最初,完成功效键。功效键的选择用case语句完成。每个完成过程当中,使用inStr对照函数将读出来的eno与数据项
的标识号id比拟较,可辨认出所选的复选框是不是无效。for轮回体的下界接纳Ubound函数,制止了网页数据的提取毛病。部
分程序代码以下:
<%selectcaseedit
case“insert”
fori=0toUbound(eno)
ifinStr(id,“,”&trim(eno(i))&“,”)>0then
rs.AddNew
rs(“title”)=trim(etitle(i))
rs(“pdate”)=trim(epdate(i))
rs(“writer”)=trim(ewriter(i))
rs(“content”)=trim(econtent(i))
rs.Update
%>
<tr>
<tdalign=“center”><%=rs(“pdate”)
%>.</td>
<td><fontcolor=“#008080”><%=rs(“title”)%>.</font></td>
<td><fontcolor=“#008080”>拔出新纪录乐成!</font></td>
</tr>
<%Endif
Next%>
<%case“delete”
fori=0to9
ifinStr(id,“,”&trim(rs(“id”))&“,”)>0then%>
<tr>
<tdalign=“center”><%=rs(“pdate”)
%>.</td>
<td><%=rs(“title”)%>.</td>
<td><fontcolor=“#FF0000”>纪录删除乐成!</font></td>
</tr>
<%
rs.delete1
Endif
rs.movenext
ifrs.eofthenExitforEndif
Next
case“update”
fori=0to9
ifinStr(id,“,”&trim(rs(“id”))&“,”)>0then
rs(“title”)=trim(etitle(i))
rs(“pdate”)=trim(epdate(i))
rs(“writer”)=trim(ewriter(i))
rs(“content”)=trim(econtent(i))
rs.Update%>
<tr>
<tdalign=“center”><%=rs(“pdate”)
%>.</td>
<td><%=rs(“title”)%>.</td>
<td><fontcolor=“#0000FF”>纪录修正乐成!</font></td>
</tr>
<%Endif
rs.movenext
ifrs.eofthenExitforEndif
Next
endselect
%>
</p>想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的 |
|