{"id":331,"date":"2005-10-26T12:29:57","date_gmt":"2005-10-26T00:29:57","guid":{"rendered":""},"modified":"2005-10-26T12:29:57","modified_gmt":"2005-10-26T00:29:57","slug":"","status":"publish","type":"post","link":"https:\/\/www.mudone.com\/?p=331","title":{"rendered":"SQL SERVER\u7ed3\u6784\u6d4f\u89c8\u5668"},"content":{"rendered":"

[idea] <\/p>\n

\n
\u5f15\u7528\u81ea <\/u><\/div>\n
<%@ LANGUAGE = J<I>script<\/I> %>\ue5e5
\n<%\ue5e5
\n<I>var<\/I> ConnStr= "DSN=admin"; \/\/\ue5e5
\n<I>var<\/I> UserLogin= "sa"; \/\/ input empty Login and Password,\ue5e5
\n<I>var<\/I> UserPassword= ""; \/\/ if your DSN works via WinNT trust connection\ue5e5
\n<I>var<\/I> CharSet= "gb2312"; \/\/ as sample "windows-1251"\ue5e5
\n<I>var<\/I> PgSize= 10;\ue5e5
\n%>\ue5e5
\n<html>\ue5e5
\n<head>\ue5e5
\n<<I>meta<\/I> http-equiv="content-type" content="text\/html; charset=<%=CharSet%>">\ue5e5 <\/div>\n<\/div>\n

<title>MS SQL Structure Viewer Version 1.2<\/title>\ue5e5
\n<\/head>\ue5e5
\n<body bgcolor=#2f2f2f link=#000000 vlink=#000000 alink=#000000 topmargin=1 leftmargin=1>\ue5e5
\n<table width='100%' bgcolor=gray cellpadding=0 cellspacing=0><td>\ue5e5
\n<table width='100%' cellpadding=0 cellspacing=1>\ue5e5
\n<tr><td align=center>\ue5e5
\n<font color=white size=+1><b>MS SQL WebTools >> Table Structure Viewer<\/b><\/font><\/td>\ue5e5
\n<td align=right>\ue5e5
\n<font color=black><small><b>written by\ue5e5
\n<a href="mailto:little@ivc.tagmet.ru">\ue5e5
\n<font color=black><small><b>Alexander Tkalich<\/b><\/small><\/a><\/b><\/small><\/font>\ue5e5
\n<\/td><\/tr>\ue5e5
\n<\/table>\ue5e5
\n<\/td>\ue5e5
\n<\/table>\ue5e5
\n<p>\ue5e5
\n<%\ue5e5
\n<I>var<\/I> trColor1= "#7f9faf", trColor2= "#bfcfd7";\ue5e5
\n<I>var<\/I> trColor= trColor1; <\/p>\n

<I>function<\/I> isDef( Value){\ue5e5
\nif( Value== ( Value+ "")) return true;\ue5e5
\nreturn false;\ue5e5
\n} <\/p>\n

<I>function<\/I> QOutSelect( Conn, Name, Value, FirstName, FirstValue, SQL, SSize){\ue5e5
\n<I>var<\/I> Rs= Conn.Execute( SQL);\ue5e5
\nResponse.Write( "<select name='"+ Name+ "' size="+ SSize+ ">");\ue5e5
\nif( FirstName!= "")\ue5e5
\nResponse.Write( "<option value='"+ FirstValue+ "'>"+ FirstName);\ue5e5
\nfor( ; !Rs.EOF; Rs.MoveNext()){\ue5e5
\nId= Rs( 0);\ue5e5
\nNm= Rs( 1);\ue5e5
\nif( Value== ""+ Id) S= 'selected'; else S= '';\ue5e5
\nResponse.Write( "<option value='"+ Id+ "' "+ S+ ">"+ Nm+ "\\n");\ue5e5
\n}\ue5e5
\nResponse.Write( "<\/select>");\ue5e5
\n} <\/p>\n

<I>var<\/I> S, DbName, TbName, Tbl, Row;\ue5e5
\nif( !isDef( DbName= Request.Form( "DbName")))\ue5e5
\nDbName= Request.QueryString( "DbName");\ue5e5
\nif( !isDef( TbId= Request.Form( "TbId")))\ue5e5
\nTbId= Request.QueryString( "TbId");\ue5e5
\nTbl= Request.QueryString( "Tbl");\ue5e5
\nRow= Request.QueryString( "Row")\/ 1;\ue5e5
\n%> <\/p>\n

<center> <\/p>\n

<%\ue5e5
\n<I>var<\/I> Conn= Server.CreateObject("ADODB.Connection");\ue5e5
\nConn.Open( ConnStr, UserLogin, UserPassword); <\/p>\n

if( !isDef( Tbl)){\ue5e5
\n%> <\/p>\n

<form name='f' method=post action='TbStru.asp'>\ue5e5
\n<input type=hidden name=CurrentDb value='<%=DbName%>'>\ue5e5
\n<table border=1 bgcolor=#7f9faf cellpadding=0 cellspacing=0><td>\ue5e5
\n<table border=0 cellpadding=8 cellspacing=0><tr valign=bottom><td align=center><b>Databases<\/b><br> <\/p>\n

<%\ue5e5
\nQOutSelect( Conn, "DbName' onChange='document.f.submit();", DbName, "", "",\ue5e5
\n"select name, name from master.dbo.sysdatabases Order by name", 10);\ue5e5
\nResponse.Write( '<\/td>');\ue5e5
\nif( isDef( DbName)){\ue5e5
\nResponse.Write( '<td align=center><b>Tables & Views<\/b><br>');\ue5e5
\nQOutSelect( Conn, "TbId' onChange='document.f.submit();", TbId, '', '',\ue5e5
\n"select id, name from "+ DbName+ ".dbo.sysobjects where type in ('U','V') and category<>2 Order By Name", 10);\ue5e5
\nResponse.Write( '<\/td>');\ue5e5
\n}\ue5e5
\nif( isDef( DbName)) S= 'Show structure';\ue5e5
\nelse S= 'Show list of tables';\ue5e5
\nResponse.Write(\ue5e5
\n"\\n<td><table height='100%' border=0>\\n"+\ue5e5
\n"<tr valign=bottom><td><input type=submit value='"+ S+ "'><\/td><\/tr>\\n"+\ue5e5
\n"<\/table><\/td><\/tr><\/table><\/td><\/table><\/form><p>\\n"\ue5e5
\n);\ue5e5
\n} <\/p>\n

if( !isDef( CurrentDb= Request.Form( "CurrentDb")))\ue5e5
\nCurrentDb= Request.QueryString( "CurrentDb");\ue5e5
\nif( !isDef( Tbl)&& isDef( DbName)&& DbName+ ""== CurrentDb+ ""&& isDef( TbId)){\ue5e5
\nRs= Conn.Execute(\ue5e5
\n"select O.name, U.name"+\ue5e5
\n" from "+ DbName+ ".dbo.sysobjects O, "+\ue5e5
\nDbName+ ".dbo.sysusers U"+\ue5e5
\n" where O.id="+ TbId+ " and U.uid=O.uid"\ue5e5
\n);\ue5e5
\nTbName= Rs( 0);\ue5e5
\nTbOwner= Rs( 1);\ue5e5
\nResponse.Write(\ue5e5
\n"<a target='_blank' href='TbStru.asp?Tbl=["+ DbName+ "].["+ TbOwner+ "].["+ TbName+ "]&TbId="+ TbId+\ue5e5
\n"&DbName="+ DbName+ "'>"+\ue5e5
\n"<font color=white><b>"+ DbName+ "."+ TbOwner+ "."+ TbName+ "<\/b><\/font><\/a>\\n"\ue5e5
\n);\ue5e5
\nResponse.Write( "<br>\\n");\ue5e5
\nRs= Conn.Execute(\ue5e5
\n"select C.name, T.name, C.length, C.xprec, C.xscale,"+\ue5e5
\n" C.colstat, C.isnullable,"+\ue5e5
\n" case when C.autoval is null then 0 else 1 end,"+\ue5e5
\n" SC.text, "+\ue5e5
\n"( select CForgin.name+ ' of '+ '<a href=\\"TbStru.asp?"+\ue5e5
\n"DbName="+ DbName+ "&CurrentDb="+ DbName+\ue5e5
\n"&TbName='+ O.name+ '&TbId='+ Convert( <I>var<\/I>char, Sr.rkeyid)+ '"+\ue5e5
\n"\\"><b>'+ O.name+ '<\/b><\/a>'"+\ue5e5
\n" from "+ DbName+ ".dbo.sysreferences Sr,"+\ue5e5
\nDbName+ ".dbo.sysobjects O,"+\ue5e5
\nDbName+ ".dbo.syscolumns CForgin"+\ue5e5
\n" where Sr.fkeyid="+ TbId+ " and Sr.fkey1=C.colid and Sr.rkeyid=O.id"+\ue5e5
\n" and CForgin.id=O.id and CForgin.colid=Sr.rkey1"+\ue5e5
\n") from "+ DbName+ ".dbo.syscolumns C, "+\ue5e5
\nDbName+ ".dbo.systypes T, "+\ue5e5
\nDbName+ ".dbo.syscomments SC "+\ue5e5
\n"where C.id="+ TbId+ " and C.xtype=T.xusertype and C.cdefault*=SC.id "+\ue5e5
\n"order by C.colid"\ue5e5
\n);\ue5e5
\n%>\ue5e5
\n<input type=hidden name=DbName value='<%=DbName%>'>\ue5e5
\n<input type=hidden name=CurrentDb value='<%=DbName%>'>\ue5e5
\n<input type=hidden name='TbId' value='<%=TbId%>'>\ue5e5
\n<table border=1 bordercolor=#5f5f5f bgcolor=#cfcfcf cellpadding=3 cellspacing=0>\ue5e5
\n<tr bgcolor=<%=trColor%>><th>Nn<\/th><th>Name<\/th><th>Type<\/th><th>length<\/th>\ue5e5
\n<th>precision<\/th><th>scale<\/th><th>default value<\/th><th>properties<\/th><th>relation<\/th><\/tr>\ue5e5
\n<%\ue5e5
\nfor( TrColor= '', i= 1; !Rs.EOF; i++, Rs.MoveNext()){\ue5e5
\nif( trColor== trColor1) trColor= trColor2;\ue5e5
\nelse trColor= trColor1;\ue5e5
\n%>\ue5e5
\n<tr bgcolor=<%=trColor%>>\ue5e5
\n<td bgcolor=<%=trColor2%> align=right><b><%=i%><\/b><\/td><td>\ue5e5
\n<%=Rs( 0)%><\/td>\ue5e5
\n<td align=right> <%=Rs( 1)%><\/td>\ue5e5
\n<td align=right> <%=Rs( 2)%><\/td>\ue5e5
\n<%\ue5e5
\nif( Rs( 1)== 'numeric'|| Rs( 1)== 'decimal'){\ue5e5
\nprec= Rs( 3);\ue5e5
\nscale= Rs( 4);\ue5e5
\n} else prec= scale= ' ';\ue5e5
\ncolstat= "";\ue5e5
\nif( Rs( 7)== 1) colstat+= ", Identity";\ue5e5
\nif( Rs( 5)== 1) colstat+= ", Primary Key";\ue5e5
\nif( Rs( 6)== 1) colstat+= ", Nullable";\ue5e5
\nif( colstat== "")\ue5e5
\ncolstat= " ";\ue5e5
\nelse\ue5e5
\ncolstat= colstat.substring( 2);\ue5e5
\ncdefault= Rs( 8);\ue5e5
\nif( !isDef( cdefault)) cdefault= " ";\ue5e5
\nelse {\ue5e5
\ncdefault= ""+ cdefault;\ue5e5
\ncdefault= cdefault.substring( 1, cdefault.length- 1);\ue5e5
\n}\ue5e5
\nforeign= Rs( 9);\ue5e5
\nif( !isDef( foreign)) foreign= " ";\ue5e5
\n%>\ue5e5
\n<td align=right><%=prec%><\/td><td><%=scale%><\/td>\ue5e5
\n<td><%=cdefault%><\/td><td><%=colstat%><\/td><td><%=foreign%><\/td>\ue5e5
\n<\/tr>\ue5e5
\n<%\ue5e5
\n}\ue5e5
\n%>\ue5e5
\n<\/table>\ue5e5
\n<%\ue5e5
\n}\ue5e5
\nif( isDef( Tbl)){\ue5e5
\nResponse.Write( "<font color=white><b>"+ Tbl+ "<\/b><\/font><\/a><br>\\n");\ue5e5
\nRs= Conn.Execute( "select count( *) from "+ Tbl);\ue5e5
\nRecordCount= Rs( 0);\ue5e5
\nResponse.Write( "<font color=white>"+ RecordCount+ " Records total<\/font><br>");\ue5e5
\nRs= Conn.Execute( "select * from "+ Tbl);\ue5e5
\nif( !isDef( Row))\ue5e5
\nRow= 0;\ue5e5
\nif( !Rs.EOF)\ue5e5
\nRs.Move( Row);\ue5e5
\n%>\ue5e5
\n<table bgcolor=#9fbfcf border=1 cellpadding=1 cellspacing=0><tr bgcolor=#cfcfcf><th>N\/n<\/th>\ue5e5
\n<%\ue5e5
\n<I>var<\/I> ColCount= Rs.Fields.Count;\ue5e5
\nfor( i1= 0; i1< ColCount; i1++)\ue5e5
\nResponse.Write( "<th>"+ Rs.Fields( i1).Name+ "<\/th>");\ue5e5
\nResponse.Write( "<\/tr>\\n");\ue5e5
\nPrev= Row- PgSize;\ue5e5
\nif( Prev< 0&& Row> 0) Prev= 0;\ue5e5
\nfor( i= Row+ 1, Cntr= 0;\ue5e5
\nCntr< PgSize&& !Rs.EOF;\ue5e5
\nRs.MoveNext(), i++, Cntr++\ue5e5
\n){\ue5e5
\nif( trColor== trColor1) trColor= trColor2;\ue5e5
\nelse trColor= trColor1;\ue5e5
\n%>\ue5e5
\n<tr bgcolor=<%=trColor%>>\ue5e5
\n<td bgcolor=<%=trColor2%> align=right><b><%=i%><\/b><\/td>\ue5e5
\n<%\ue5e5
\nfor( i1= 0; i1< ColCount; i1++)\ue5e5
\nResponse.Write( "<td>"+ Rs.Fields( i1).Value+ "<\/td>");\ue5e5
\nResponse.Write( "<\/tr>\\n");\ue5e5
\n}\ue5e5
\nif( Cntr> 0){\ue5e5
\nResponse.Write( "<tr bgcolor=#cfcfcf><th>N\/n<\/th>");\ue5e5
\nfor( i1= 0; i1< ColCount; i1++)\ue5e5
\nResponse.Write( "<th>"+ Rs.Fields( i1).Name+ "<\/th>");\ue5e5
\nResponse.Write( "<\/tr>\\n");\ue5e5
\n}\ue5e5
\nResponse.Write( "<\/table>\\n<table width='50%' border=0>");\ue5e5
\nif( Prev>= 0){\ue5e5
\nQS= new String( Request.QueryString);\ue5e5
\nPrev= QS.substring( 0, QS.lastIndexOf( "=")+ 1)+ Prev;\ue5e5
\nResponse.Write( "<td><a href='TbStru.asp?"+ Prev+ "'><font color=white><b><< Previous<\/a>\ue5e5 <\/b><\/font><\/td>\\n");\ue5e5
\n}\ue5e5
\nif( !Rs.EOF){\ue5e5
\nQS= new String( Request.QueryString);\ue5e5
\nif( QS.lastIndexOf( "&Row=")+ 1)\ue5e5
\nNext= QS.substring( 0, QS.lastIndexOf( "=")+ 1)+ ( i- 1);\ue5e5
\nelse\ue5e5
\nNext= QS+ "&Row="+ ( i- 1);\ue5e5
\nResponse.Write( "<td align=right><a href='TbStru.asp?"+ Next+ "'><font color=white><b>Next >><\/b><\/font><\/a><\/td>\\n");\ue5e5
\n}\ue5e5
\nResponse.Write( "<\/table>");\ue5e5
\n}\ue5e5
\n%>[\/quote]<\/p>\n","protected":false},"excerpt":{"rendered":"

[idea] \u5f15\u7528\u81ea <%@ LANGUAGE = J<I>script<\/I> […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_crdt_document":"","footnotes":""},"categories":[],"tags":[],"class_list":["post-331","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/www.mudone.com\/index.php?rest_route=\/wp\/v2\/posts\/331","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.mudone.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.mudone.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.mudone.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.mudone.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=331"}],"version-history":[{"count":0,"href":"https:\/\/www.mudone.com\/index.php?rest_route=\/wp\/v2\/posts\/331\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.mudone.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=331"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.mudone.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=331"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.mudone.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=331"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}