当前位置：首页 -> 技术开发 -> ASP专区 -> ASP操作Access数据库的程序。（转）

ASP操作Access数据库的程序。（转）

时间： 2021-07-31 作者：daque

<%'--- define dsn names in array'--- enter one or more dsn name in the database_list arraydatabase_list=array("test","test1")'--- enable deleting table? -- carefull!!strenabledeletetable = false'---- end declaration'---- do not change code below this line ---------------------------------------------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")if not dsn_name = "" then set con = server.createobject("adodb.connection") con.provider = "sqloledb" if dsn_name = "test" thenconstr = "data source =127.0.0.1;initial catalog=test;user id=test;password=1111" elseconstr = "data source =127.0.0.1;initial catalog=test1;user id=test1;password=1111" end if con.open constrend iftable_name = request("tablename")if request("addnewtable")<>"" thenif request("newtablename") <> "" thensql = "create table " & request("newtablename") & " (fldauto counter)"con.execute(sql)end ifend ifif request("addnewfield")<>"" thenif request("newfieldname") <> "" thensql = "alter table " & table_name & " add " & request("newfieldname") & " " & request("newfieldtype") & " null"con.execute(sql)end ifend ifif request("deletetable")<>"" thensql = "drop table " & request("tablename")con.execute(sql)end ifif request("deletecolumn")<>"" thenfor each item in request("deletecol")sql = "alter table " & request("tablename") & " drop " & itemcon.execute(sql)nextend if'----- file name--------------------------------------------------------file = request.servervariables("script_name")file = strreverse(file)pos = instr(file,"/")file = left(file, pos-1)file = strreverse(file)%><%response.write "<!doctype html public ""-//w3c//dtd html 3.2 final//en"">"response.write "<html><head><title>database control</title></head>"response.write "<body bgcolor=""#ffffff""><br><br><center>"'------------------------------------------------------------response.write "<form action=""" & file & """ method=post>"response.write "<b><font face=verdana size=3 color=""#008080""><u>total database control</u></font></b><br><br>"response.write "<font face=verdana,arial size=2><b>database name: </b></font>"response.write "<select name=""databasename"">"for i = 0 to ubound(database_list)if database_list(i) = request("databasename") thenresponse.write "<option value=""" & database_list(i) & """ selected>" & database_list(i)elseresponse.write "<option value=""" & database_list(i) & """>" & database_list(i)end ifnextresponse.write "</select> "response.write "<input type=submit name=godatabase value=go>"response.write "<hr></form>"'-------------------------------------------------------------response.write "<form action=""" & file & "?databasename=" & server.urlencode(dsn_name) & """ method=post>"if dsn_name<>"" thenset table = con.openschema (20)response.write "<font face=verdana,arial size=2>table names in " & dsn_name & ": </font><select name=tablename>"while not table.eoftblname = table("table_name")if left(tblname,4) <> "msys" and left(tblname,3) <> "sys" and left(tblname,4) <> "rtbl" thenif tblname = table_name thenresponse.write "<option value=""" & tblname & """ selected>" & tblnameelseresponse.write "<option value=""" & tblname & """>" & tblnameend ifend iftable.movenextwendresponse.write "</select>"response.write "<input type=submit name=table value=go>"if strenabledeletetable = true thenresponse.write "<input type=submit name=deletetable value=delete>"end ifresponse.write "</form>"response.write "<form action=""" & file & "?databasename=" & server.urlencode(dsn_name) & """ method=post>"response.write "<table><tr>"response.write "<td colspan=2><font face=verdana,arial size=2 color=""#ff0000"">add new table into " & dsn_name & "</font></td>"response.write "</tr><tr>"response.write "<th><font face=verdana,arial size=2>table name:</font></th>"response.write "<td><input type=text name=newtablename></td>"response.write "</tr><tr>"response.write "<td colspan=2 align=center><input type=submit name=addnewtable value=""add new table""></td></tr>"response.write "</form><hr>"end ifif table_name <> "" and request("deletetable")="" thenresponse.write "<form action=""" & file & "?databasename=" & server.urlencode(dsn_name) & "&tablename=" & table_name & """ method=post>"response.write "<table border=2 align=center cellpadding=2 cellspacing=2>"response.write "<tr>"response.write "<th colspan=4 align=left><font face=verdana,arial size=3 color=teal>" & table_name & "</font></th>"response.write "</tr><tr><th><font face=verdana,arial size=2>field name</font></th>"response.write "<th><font face=verdana,arial size=2>field size</font></th>"response.write "<th><font face=verdana,arial size=2>field datatype</font></th>"response.write "<th><font face=verdana,arial size=2>delete</font></th></tr>"sql = "select * from " & table_nameset rs = con.execute(sql)for each fldname in rs.fieldsresponse.write "<tr>"response.write "<td><font face=verdana,arial size=2 color=""#000000"">" & fldname.name & "</font></td>"response.write "<td><font face=verdana,arial size=2 color=""#000000"">" & fldname.definedsize & "</font></td>"response.write "<td><font face=verdana,arial size=2 color=""#000000"">" & gettypename(fldname.type) & "</font></td>"response.write "<td align=center><input type=checkbox name=deletecol value=""" & fldname.name & """></td>"response.write "</tr>"nextresponse.write "<tr><td colspan=4 align=center><input type=submit name=deletecolumn value=""delete selected column""></td></tr>"response.write ""response.write "<table><tr>"response.write "<td colspan=2><font face=verdana,arial size=2 color=""#ff0000"">add new field into " & table_name & "</font></td>"response.write "</tr><tr>"response.write "<th><font face=verdana,arial size=2>field name:</font></th>"response.write "<td><input type=text name=""newfieldname""></td>"response.write "</tr><tr>"response.write "<th><font face=verdana,arial size=2>field type:</font></th>"response.write "<td><select name=""newfieldtype"">"for i = 0 to ubound(field_value)response.write "<option value=""" & field_value(i) & """>" & field_display(i)nextresponse.write "</select></td></tr>"response.write "<tr><td colspan=2 align=center><input type=submit name=addnewfield value=""add new field""></td></tr>"response.write "</form>"end ifresponse.write "</center></body></html>"function gettypename(id)select case idcase "3"gettypename = "number"case "200"gettypename = "text"case "129"gettypename = "text"case "201"gettypename = "memo"case "6"gettypename = "currency"case "11"gettypename = "yes/no"case "5"gettypename = "number"case "7", "133","134","135"gettypename = "date/time"case elsegettypename = idend selectend functionsub selectdatatype(it)response.write "<select name=editcolname>"for i = 0 to ubound(field_value)if field_display(i) = it thenresponse.write "<option value=""" & field_value(i) & """ selected>" & field_display(i)elseresponse.write "<option value=""" & field_value(i) & """>" & field_display(i)end ifnextresponse.write "</select>"end sub%>

ASP操作Access数据库的程序。（转）

相关推荐

推荐下载

热门阅览

最新排行