|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP脚本是采用明文(plaintext)方式来编写的。access|源代码<%
GenericASPEditorforAccessTables
Version1.01-9November1999
?RomanKoch
=====================================================================
Yourcustomisationsgohere
=====================================================================
EnterthenameofthesystemDSN
Session("myDSN")="MP3"
Enterthenameofthetableyouwanttoedit
Note:Fortextfields,the"AllowZeroLength"attributemustbesettoYES
Session("myTable")="Customer"
EnterthenameofthePrimaryKeyfield
Note:ThePrimaryKeyMUSTbea"Autonumber"-typefield
Session("myKey")="CustomerID"
=====================================================================
Endofthecustomisationsection
=====================================================================
DimobjConn
IfisObject(Session("dsnDefined"))Then
SetobjConn=Session("dsnDefined")
Else
SetobjConn=Server.CreateObject("ADODB.Connection")
objConn.OpenSession("myDSN")
SetSession("dsnDefined")=objConn
EndIf
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")
SelectCasestrAction
Case"list"listallrecords
CalleditList()
Case"update"Getthecurrentrecordanddisplayinaformforediting
CalleditUpdate(lngRecord)
Case"updateExec"Savethechanges
CalleditUpdateExec(lngRecord)
Case"insert"Displayanemptyformforenteringanewrecord
CalleditInsert()
Case"insertExec"Savethenewrecord
CalleditInsertExec()
Case"delete"Displaythecurrentrecordsodeletioncanbeconfirmed
CalleditDelete(lngRecord)
Case"deleteExec"Deletetherecord
CalleditDeleteExec(lngRecord)
CaseElsesameaslistparameter
CalleditList()
EndSelect
%>
<ScriptRUNAT="SERVER"LANGUAGE="VBSCRIPT">
======================================================================
FunctioneditUpdate(lngRecord)
======================================================================
strMyTable=Session("my</p>帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 |
|