普通ASP编辑器ForAccess源代码

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了普通ASP编辑器ForAccess源代码，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2486字，纯文字阅读大概需要4分钟。

内容图文

% ' Generic ASP Editor for Access Tables ' Version 1.01 - 9 November 1999 ' ?Roman Koch ' ===================================================================== ' Your customisations go here ' ===============================================

<%

' Generic ASP Editor for Access Tables
' Version 1.01 - 9 November 1999
' ?Roman Koch

' =====================================================================
' Your customisations go here
' =====================================================================

' Enter the name of the system DSN
Session("myDSN") = "MP3"

' Enter the name of the table you want to edit
' Note: For text fields, the "Allow Zero Length" attribute must be set to YES
Session("myTable") = "Customer"

' Enter the name of the Primary Key field
' Note: The Primary Key MUST be a "Autonumber"-type field
Session("myKey") = "CustomerID"

' =====================================================================
' End of the customisation section
' =====================================================================

Dim objConn
If isObject(Session("dsnDefined")) Then
Set objConn = Session("dsnDefined")
Else
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open Session("myDSN")
Set Session("dsnDefined") = objConn
End If

strMyOwnPath = Request.Servervariables("PATH_INFO")
intStart = InstrRev(strMyOwnPath,"/",-1,1)
strMyName = Mid(strMyOwnPath,intStart+1)
Session("myName") = strMyName

strAction = Request.Querystring("action")
lngRecord = Request.Querystring("num")

Select Case strAction
Case "list" 'list all records
Call editList()
Case "update" 'Get the current record and display in a form for editing
Call editUpdate(lngRecord)
Case "updateExec" 'Save the changes
Call editUpdateExec(lngRecord)
Case "insert" 'Display an empty form for entering a new record
Call editInsert()
Case "insertExec" 'Save the new record
Call editInsertExec()
Case "delete" 'Display the current record so deletion can be confirmed
Call editDelete(lngRecord)
Case "deleteExec" 'Delete the record
Call editDeleteExec(lngRecord)
Case Else 'same as list parameter
Call editList()
End Select

%>

内容总结

以上是互联网集市为您收集整理的普通ASP编辑器ForAccess源代码全部内容，希望文章能够帮你解决普通ASP编辑器ForAccess源代码所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端