ASP教程之ASP操纵Access数据库的程序。（转）
因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。还无法完全实现一些企业级的功能：完全的集群、负载均横。access|程序|数据|数据库<%---defineDSNnamesinarray
---enteroneormoreDSNnameinthedatabase_listarray
database_list=Array("Test","test1")
---enabledeletingtable?--Carefull!!
strEnableDeleteTable=False
----enddeclaration
----donotchangecodebelowthisline---------------------------------------------
field_value=Array("Integer","Double","char(255)","Memo","Date","Currency","YesNo")
field_display=Array("Integer","Number","Text","Memo","Date/Time","Currency","Yes/No")
dsn_name=Request("DatabaseName")
IfNotdsn_name=""Then
Setcon=Server.CreateObject("ADODB.Connection")
Con.Provider="sqloledb"
ifdsn_name="Test"then
ConStr="DataSource=127.0.0.1;InitialCatalog=test;UserID=test;Password=1111"
else
ConStr="DataSource=127.0.0.1;InitialCatalog=test1;UserID=test1;Password=1111"
endif
con.Openconstr
EndIf
table_name=Request("TableName")
IfRequest("AddNewTable")""Then
IfRequest("NewTableName")""Then
SQL="CREATETABLE"&Request("NewTableName")&"(fldAutoCounter)"
con.Execute(SQL)
EndIf
EndIf
IfRequest("AddNewField")""Then
Ifrequest("NewFieldName")""Then
SQL="ALTERTABLE"&table_name&"ADD"&request("NewFieldName")&""&request("NewFieldType")&"NULL"
con.Execute(SQL)
EndIf
EndIf
IfRequest("DeleteTable")""Then
SQL="DROPTABLE"&Request("TableName")
Con.Execute(SQL)
EndIf
IfRequest("DeleteColumn")""Then
ForEachitemInRequest("DeleteCol")
SQL="ALTERTABLE"&Request("TableName")&"DROP"&item
con.Execute(SQL)
Next
EndIf
-----filename--------------------------------------------------------
file=Request.ServerVariables("SCRIPT_NAME")
file=strReverse(file)
pos=Instr(file,"/")
file=Left(file,pos-1)
file=strReverse(file)
%>
<%
response.write"<!DOCTYPEHTMLPUBLIC""-//W3C//DTDHTML3.2Final//EN"">"
response.write"<HTML><HEAD><TITLE>DatabaseControl</TITLE></HEAD>"
response.write"<BODYbgcolor=""#FFFFFF""><br><br><center>"
------------------------------------------------------------
response.write"<formaction="""&file&"""method=post>"
response.write"<b><fontface=verdanasize=3color=""#008080""><u>TotalDatabaseControl</u></font></b><br><br>"
response.write"<fontface=Verdana,Arialsize=2><b>DatabaseName:</b></font>"
response.write"<selectname=""databasename"">"
Fori=0touBound(database_list)
Ifdatabase_list(i)=Request("databasename")Then
response.write"<optionvalue="""&database_list(i)&"""selected>"&database_list(i)
Else
response.write"<optionvalue="""&database_list(i)&""">"&database_list(i)
EndIf
Next
response.write"</select>"
response.write"<inputtype=submitname=GoData</p>楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组
页:
[1]