查看: 826|回复: 3

[ASP] 任务所说的交作业来一发

[复制链接]

篬月赫莲

签到天数: 1 天

连续签到: 1 天

[LV.1]初来乍到

241 主题	449 好友	12万积分

女王大人

『むなかたれいし』　唯余青王，再无宗像。

积分: 120854

发表于 2012-7-14 10:07:13 | 显示全部楼层 |阅读模式

╱人◕‿‿◕人╲定下契约

您需要登录才可以下载或查看，没有账号？╱人◕‿‿◕人╲订下契约（注册新用户）

x

登录/注册后可看大图

生成index.asp文件，用于数据库的连接，同javaScript脚本实现将提交的信息保存在数据库中，其代码如下：
<%
dim conn,connstr
  'on error resume next
  set conn=server.createobject("ADODB.CONNECTION")
  connstr="DBQ="+server.mappath("db.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
  conn.open connstr
If Err Then
            err.Clear
            Set Conn = Nothing
            Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
            Response.End
      End If
%>
　　　同时生成addnew.asp实现数据库信息的页面显示。代码如下：
<%
　　　dim conn,connstr
　　　  'on error resume next
　　　  set conn=server.createobject("ADODB.CONNECTION")
　　　  connstr="DBQ="+server.mappath("db.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
　　　  conn.open connstr
　　　If Err Then
　　　             err.Clear
　　　             Set Conn = Nothing
　　　             Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
　　　　       Response.End
　　　       End If
　　　       if request("save")="ok" then
　　　Set rs= Server.CreateObject("ADODB.Recordset")
　　　sql="select * from user order by id desc"
　　　  response.end
　　　rs.open sql,conn,1,3
　　　rs.addnew
　　　rs("textfield1")=request("textfield1")
　　　rs("textfield2")=request("textfield2")
　　　rs("textfield3")=request("textfield3")
　　　rs("textfield4")=request("textfield4")
　　　rs("textfield5")=request("textfield5")
　　　rs("radiobutton")=request("radiobutton")
　　　rs("textarea")=request("textarea")
　　　rs.update
　　　rs.close
　　　set rs=nothing
　　　end if
　　　  Response.Redirect "list.asp"
　　　%>
　　　List.asp文件是将对应的信息添加到对应的表格。
　　　最后生成delete.asp用于同时删除页面以及数据库中的人员相关信息。
　　<%
　　　dim conn,connstr
　　　  'on error resume next
　　　  set conn=server.createobject("ADODB.CONNECTION")
　　　  connstr="DBQ="+server.mappath("db.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
　　　  conn.open connstr
　　　If Err Then
　　　             err.Clear
　　　             Set Conn = Nothing
　　　             Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
　　　             Response.End
　　　       End If
　　　  sql="delete from user where id=" & request("id")
　　　  conn.execute sql
　　　  Response.Redirect "list.asp"
　　　  response.end
　　　%>