📄 tables_properties.aspx
字号:
<!--#include file="includes/topnav.aspx"-->
<%
if request("field") <> "" then
Try
d.execute("ALTER TABLE [" & request("Table") & "] DROP COLUMN [" & request("Field") & "]")
Catch e as Exception
d = Nothing
DisplayError (e)
End Try
response.redirect ("tables_properties.aspx?table=" & request("Table"))
end if
' Get the Primary Keys
dr = d.getDataSPA("sp_pkeys '" & request("Table") & "'")
Dim PrimaryKeys as String = ""
While dr.read()
PrimaryKeys = PrimaryKeys & "*" & dr("COLUMN_NAME") & "*"
End While
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function newImage(arg) {
if (document.images) {
rslt = new Image();
rslt.src = arg;
return rslt;
}
}
function changeImages() {
if (document.images && (preloadFlag == true)) {
for (var i=0; i<changeImages.arguments.length; i+=2) {
document[changeImages.arguments[i]].src = changeImages.arguments[i+1];
}
}
}
var preloadFlag = false;
function preloadImages() {
if (document.images) {
LeftNavImage1_over = newImage("images/navbar_button_editTable_ove.gif");
LeftNavImage2_over = newImage("images/navbar_button_RunDark_over.gif");
LeftNavImage3_over = newImage("images/navbar_button_DeleteDark_ov.gif");
LeftNavImage4_over = newImage("images/navbar_button_InsertDark_ov.gif");
preloadFlag = true;
}
}
preloadImages();
// -->
</SCRIPT>
<center>
<br>
<%
With Response
dr = d.GetDataSPA("sp_help '" & request("table") & "'")
dr.read()
Dim TableOwner as String = dr("owner")
Dim CreateDate as String = dr("created_datetime")
.write ("<table class=""TableHeader"" width=""450"" cellspacing=""0"" cellpadding=""2"">")
.write ("<tr><td class=""WindowHeader"" colspan=""2"">")
DrawTitle ("Table Properties", "tables_list.aspx")
.write ("</td></tr>")
.write ("<tr><td class=""TableHeader"" height=""100%"" valign=""top"">")
.write ("<table width=""100%"" class=""MainStyle"" cellpadding=""7"" height=""100%"">")
.write ("<tr><td colspan=""2"">")
.write ("<table width=""100%"" class=""MainStyle"">")
.write ("<tr><Td NOWRAP>")
.write ("<img src=""images/large_icons_tableProps.gif"" align=""ABSMiddle"">")
.write (" ")
.write ("<b>Name:</b> " & request("table"))
.write ("</td><td align=""right"">")
%>
<script language="javascript">
function deleteItem(table) {
if (confirm("Drop This Table?") == true)
{
location.href= 'tables_drop.aspx?table=' + table;
}
}
function confirmDrop(field) {
if (confirm("Drop This Field?") == true)
{
location.href= 'tables_properties.aspx?table=<%= request("table") %>&field=' + field;
}
}
</script>
<a href="javascript:deleteItem('<%= request("table") %>');" ONMOUSEOVER="changeImages('NavBarImage3', 'images/navbar_button_DeleteDark_Ov.gif'); return true; "
ONMOUSEOUT="changeImages('NavBarImage3', 'images/navBar_button_DeleteDark.gif'); return true; ">
<img src="images/navbar_button_DeleteDark.gif" border="0" name="NavBarImage3" alt="Drop Table"></a>
<a href="tables_insert.aspx?table=<%= request("table") %>" ONMOUSEOVER="changeImages('NavBarImage4', 'images/navbar_button_InsertDark_ov.gif'); return true; "
ONMOUSEOUT="changeImages('NavBarImage4', 'images/navBar_button_InsertDark.gif'); return true; ">
<img src="images/navbar_button_InsertDark.gif" border="0" name="NavBarImage4" alt="Insert Data"></a>
<a href="tables_design.aspx?table=<%= request("table") %>" ONMOUSEOVER="changeImages('NavBarImage1', 'images/navbar_button_editTable_ove.gif'); return true; "
ONMOUSEOUT="changeImages('NavBarImage1', 'images/navBar_button_editTable.gif'); return true; ">
<img src="images/navbar_button_EditTable.gif" border="0" name="NavBarImage1" alt="Design Table"></a>
<a href="tables_browse.aspx?table=<%= request("table") %>" ONMOUSEOVER="changeImages('NavBarImage2', 'images/navbar_button_RunDark_Over.gif'); return true; "
ONMOUSEOUT="changeImages('NavBarImage2', 'images/navBar_button_RunDark.gif'); return true; ">
<img src="images/navbar_button_RunDark.gif" border="0" name="NavBarImage2" alt="Browse Table"></a>
<%
.write ("</td></tr>")
.write ("</table>")
.write ("</td></tr>")
.write ("<tr><td colspan=""2"">")
.write ("<hr>")
.write ("<table width=""100%"" class=""MainStyle"" cellpadding=""5"">")
.write ("<tr><td NOWRAP>")
.write ("Owner: ")
.write ("</td><td NOWRAP>")
.write (TableOwner)
.write ("</td></tr>")
.write ("<tr><td NOWRAP>")
.write ("Create date: ")
.write ("</td><td NOWRAP>")
.write (CreateDate)
.write ("</td></tr>")
.write ("</table>")
.write ("<br><hr style=""margin-bottom: 2px;"">")
.write ("</td></tr>")
.write ("<tr><td height=""100%"" valign=""top"">")
.write ("Columns:<br><Br>")
.write ("<div style='width:100%; height:250; overflow:auto; background: #ffffff; border: 1px solid #000000;'>")
dim dr2 as SQLDataReader
dim IdentSeed as Integer
dim IdentIncr as Integer
dr = d.getDataSPA("SP_Columns '" & request("table") & "'")
dr2 = d.getData("Select Ident_Incr('" & request("table") & "') as IDENT_INCR, IDENT_SEED('" & request("table") & "') as IDENT_SEED from " _
& " INFORMATION_SCHEMA.TABLES Where TABLE_NAME='" & request("table") & "'")
if dr2.read() then
IdentSeed = iif(IsDBNull(dr2("Ident_Seed")), -1, dr2("Ident_Seed"))
IdentIncr = iif(IsDBNull(dr2("Ident_Incr")), -1, dr2("Ident_Incr"))
end if
dr2 = nothing
.write ("<table cellpadding=""2"" cellspacing=""0"" width=""100%"">")
.write ("<tr><Td class=""TableHeader"" NOWRAP>")
.write ("Drop")
.write ("</td><Td class=""TableHeader"" NOWRAP>")
.write ("Key")
.write ("</td><td class=""TableHeader"" NOWRAP>")
.write ("ID")
.write ("</td><td class=""TableHeader"" width=""100%"" NOWRAP>")
.write ("Name")
.write ("</td><td class=""TableHeader"" NOWRAP>")
.write ("Data Type")
.write ("</td><td class=""TableHeader"" NOWRAP>")
.write ("Size")
.write ("</td><td class=""TableHeader"" NOWRAP>")
.write ("Nulls")
.write ("</td><td class=""TableHeader"" NOWRAP>")
.write ("Default")
.write ("</td></tr>")
Dim Length as String
Dim Type1 as String
While dr.read()
Select Case lcase(dr("Type_name"))
case "real", "numeric", "decimal" :
length = dr("Length") & "(" & dr("Precision") & "," & dr("Scale") & ")"
case else:
Length = dr("Length")
if Val(Length) > 100000 then
Length="16"
else
Length=Length
end if
End Select
Type1 = dr("Type_Name")
Type1 = replace(Type1, "(", "")
Type1 = replace(Type1, ")", "")
if instr(Type1, " ") then
Type1 = Trim(Left(Type1, Instr(Type1, " ")))
end if
.write ("<tr><td class=""tableGrid"" align=""center"">")
.write ("<a href=""javascript:confirmDrop('" & dr("column_name") & "');"">")
.write ("<img src=""images/drop.gif"" border=""0""></a>")
.write ("<td class=""tableGrid"" NOWRAP align=""center"">")
if InStr(PrimaryKeys, dr("column_name")) = 0 then
.write (" ")
else
.write ("<img src=""images/key.gif"">")
end if
.write ("</td><td class=""tableGrid"" NOWRAP>")
if InStr(dr("Type_Name"), "identity") <> 0 then
.write ("<img src=""images/checkbox.gif"">")
else
.write (" ")
end if
.write ("</td><td class=""tableGrid"" NOWRAP>")
.write (" " & dr("column_name"))
.write ("</td><td class=""tableGrid"" NOWRAP>")
.write (" " & Type1)
.write ("</td><td class=""tableGrid"" NOWRAP>")
.write (" " & Length)
.write ("</td><td class=""tableGrid"" NOWRAP align=""Center"">")
if lcase(dr("Is_Nullable")) = "yes" then
.write ("<img src=""images/checkbox.gif"">")
else
.write (" ")
end if
.write ("</td><td class=""tableGrid"" NOWRAP>")
.write (" " & dr("Column_Def"))
.write ("</td></tr>")
End While
.write ("</table>")
.write ("</div>")
.write ("</td></tr>")
.write ("</table>")
.write ("<br><Br><Br>")
.write ("</td></tr>")
.write ("</table>")
End With
%>
<!--#include file="includes/bottom.aspx"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -