📄 admin_dbtools.asp
字号:
<form method="post" name="formSQL" id="formSQL">
<tr>
<td width="45" align="center" nowrap class="tdTitle">SQL</td>
<td nowrap> <textarea name="sSqlString" wrap="VIRTUAL" style="width:630px;height:52px" onChange="clearSubmitForm(this.form)"></textarea>
<input type="Submit" name="Submit" value="Execute" style="height:52px">
<input name="sDbType" type="hidden" id="sDbType"> <input name="sConnType" type="hidden" id="sConnType">
<input name="sDbPath" type="hidden" id="sDbPath"> <input name="sUID" type="hidden" id="sUID">
<input name="sPWD" type="hidden" id="sPWD"> <input name="sTblName" type="hidden" id="sTblName">
<input name="sOper" type="hidden" id="sOper"> <input name="sDbName" type="hidden" id="sDbName">
<input name="sTblType" type="hidden" id="sTblType"> <input name="PageNo" type="hidden" id="PageNo">
</td>
</tr>
<tr>
<td align="center" nowrap class="tdTitle">状态</td>
<td nowrap><input name="sSqlState" type="text" id="sSQLState" style="width:100%" readonly="true"></td>
</tr>
</form>
</table>
<%
Dim rsSql
If Len(sSqlString)>0 Then
Set rsSql = CCDbT.doSql(sSqlString)
End If
If Len(sTblName)=0 And StrComp(Left(sSqlString,6),"select",1)=0 Then
sTblName = Trim(Mid(sSqlString,Instr(1,sSqlString," FROM ",1)+6))
If Instr(sTblName," ")>0 Then sTblName = Mid(sTblName,Instr(sTblName," "))
End If
If Instr(sTblName,"[") Then
sTblName = Left(sTblName,Len(sTblName)-1)
sTblname = Mid(sTblName,2)
End If
%>
<script language="JavaScript">
var oFormSQL = getObjByID("formSQL");
oFormSQL.sDbType.value = oFormLink.sDbType.value;
oFormSQL.sConnType.value = oFormLink.sConnType.value;
oFormSQL.sDbPath.value = oFormLink.sDbPath.value;
oFormSQL.sUID.value = oFormLink.sUID.value;
oFormSQL.sPWD.value = oFormLink.sPWD.value;
oFormSQL.sDbName.value = oFormLink.sDbName.value;
oFormSQL.sTblName.value = "<%=String4Js(Request("sTblName"))%>";
oFormSQL.sTblType.value = "<%=String4Js(Request("sTblType"))%>";
oFormSQL.sSqlString.value = "<%=String4Js(sSqlString)%>"
oFormSQL.sSqlState.value = "<%=CCDbT.GetLastError%>"
oFormSQL.sOper.value = "<%=sOper%>";
</script>
<br>
<%
If CCDbT.isActive Then
sShowBody = "<form name=""formObjList"" id=""formObjList"" method=""post"">"
If Len(sTblName)=0 Then
aObjList = CCDbT.GetDbObject()
For i=0 To UBound(aObjList)
If (i Mod 2)=0 Then sShowBody = sShowBody & "<tr style=""background-Color:#ffffff;color:#000000"">" & vbCrLf
sShowBody = sShowBody & "<td>" & vbCrLf
sShowBody = sShowBody & "<input type=""radio"" name=""objName"" value="""&aObjList(i)(0)&""" objName="""&aObjList(i)(0)&""" objType="""&aObjList(i)(1)&""">" & vbCrLf
sShowBody = sShowBody & aObjList(i)(0) & "<i style=""color:gray""> [ " & aObjList(i)(1) & " ]</i>" & vbCrLf
sShowBody = sShowBody & "</td>" & vbCrLf
If (i Mod 2)=1 Then sShowBody = sShowBody & "</tr>" & vbCrLf
Next
For i=(i Mod 2) To 1 Step -1
sShowBody = sShowBody & "<td style=""background-Color:#ffffff""></td>"
Next
If Right(sShowBody,7)<>"</tr>"&vbCrLf Then sShowBody = sShowBody & "</tr>"&vbCrLf
Else
sShowBody = sShowBody & "<tr style=""background-Color:#ffffff;color:#000000"">" & vbCrLf
sShowBody = sShowBody & "<td style=""width:400"">"
sShowBody = sShowBody & "<input type=""radio"" name=""objName"" value="""&sTblName&""" objName="""&sTblName&""" objType="""&sTblType&""">" & vbCrLf
sShowBody = sShowBody & sTblName & "<i style=""color:gray""> [ " & sTblType & " ]</i>" & vbCrLf
sShowBody = sShowBody & "</td>"
sShowBody = sShowBody & "<td align=center><input type=""button"" class=""inputButton"" name=""btnShowObj"" onClick=""doClick(this)"" value=""显示所有对象""></td>"
sShowBody = sShowBody & "</tr>" & vbCrLf
End If
sShowBody = sShowBody & "<tr>" & vbCrLf & _
"<td colspan=""2"" style=""background-Color:#ffffff"">" & vbCrLf & _
"<input type=""radio"" name=""objName"" style=""display:none"">" & vbCrLf & _
"<input type=""button"" name=""btnSelect"" value=""查看"" class=""inputButton"" onClick=""doClick(this)"">" & vbCrLf & _
"<input type=""button"" name=""btnDelete"" value=""设计"" class=""inputButton"" onClick=""doClick(this)"">" & vbCrLf & _
"<input type=""button"" name=""btnSelect"" value=""删除"" class=""inputButton"" onClick=""doClick(this)"">" & vbCrLf & _
"<input type=""button"" name=""btnSelect"" value=""清空"" class=""inputButton"" onClick=""doClick(this)"">" & vbCrLf & _
"---" & vbCrLf & _
"<input type=""button"" name=""btnSelect"" value=""新建表"" class=""inputButton"" onClick=""doClick(this)"">" & vbCrLf & _
"<input type=""button"" name=""btnSelect"" value=""新建查询"" class=""inputButton"" onClick=""doClick(this)"">" & vbCrLf & _
"</td>" & vbCrLf & _
"</tr>"
sShowBody = sShowBody & "</form>" & vbCrLf
Response.Write(Replace(Replace(sMainTblString,"[title]","对象列表"),"[body]",sShowBody))
Response.Write("<script language=""JavaScript"">" & vbCrLf & _
"var oFormObjList = getObjByID(""formObjList"");" & vbCrLf & _
"for(var i=0;i<oFormObjList.objName.length;i++)" & vbCrLf & _
" if(oFormObjList.objName[i].value=="""&sTblName&""")" & vbCrLf & _
" oFormObjList.objName[i].checked=true;" & vbCrLf & _
"</script>" & vbCrLf)
End If
%>
<%
Dim rsList, sCondition, rsFields
If StrComp(Left(sSqlString,6),"select",1)=0 Then
sShowBody = ""
sPrimaryKey = CCDbT.GetPrimaryKey(sTblName)
Set rsList = CCDbT.doSelect(IIf(Len(sSqlString)=0,"SELECT * FROM ["&sTblName&"]",sSqlString),iPageSize,iPageNo)
Dim sOrder, sOrderBy
sOrderBy = "ASC"
If Instr(1,sSqlString," ORDER BY ",1) Then
sOrder = Trim(Mid(sSqlString,Instr(1,sSqlString," ORDER BY ",1)+10))
If InStr(sOrder," ") Then
sOrderBy = UCase(Trim(Mid(sOrder,InStr(sOrder," "))))
sOrder = Replace(Replace(UCase(Trim(Left(sOrder,InStr(sOrder," ")))),"[",""),"]","")
End If
sSqlString = Left(sSqlString,InStr(1,sSqlString," ORDER BY ",1))
End If
If Not isEmpty(rsList) Then
Response.Write("<script language=Javascript>" & vbCrLf & _
"var sNewRecString = """"" & vbCrLf)
For x=0 To rsList.Fields.Count-1
If rsList.Fields(x).name<>sPrimaryKey Then
Response.Write("+""<tr>\n""" & vbCrLf & _
"+""<td width=\""30%\"" nowrap>"&rsList(x).Name&" <font color=#999999>[ "&GetFieldType(rsList(x).Type)&" ]</font>"&"</td>\n""" & vbCrLf & _
"+""<td>"&IIf(rsList(x).DefinedSize>100,"<textarea name=\"""&rsList(x).Name&"\""></textarea>","<input name=\"""&rsList(x).Name&"\"" size="&rsList(x).DefinedSize&" type=text>")&"</td>\n""" & vbCrLf & _
"+""</tr>\n""" & vbCrLf)
End If
Next
Response.Write("sNewRecString = ""<table border=1><form name=formNewRec id=formNewRec method=post onsubmit=\""doNewRec(this);return false;\"">\n"" + sNewRecString;" & vbCrLf & _
"sNewRecString += ""<tr><td colspan=2 align=right><input type=submit name=submit value=提交></td></tr>\n""" & vbCrLf & _
"sNewRecString += ""<input type=hidden name=tblName value=\"""&sTblName&"\""></form></table>\n""" & vbCrLf & _
"sNewRecString += ""<s""+""cript>""+doNewRec.toString()+""</scrip""+""t>""" & vbCrLf & _
"</script>" & vbCrLf)
'//选择字段
Set rsFields = CCDbT.Conn.Execute("SELECT * FROM ["&sTblName&"]")
sShowBody = sShowBody & "<form name=""formSelField"" id=""formSelField"" method=post onsubmit=""doSelField(this);return false;"">" & vbCrLf & _
"<tr style=""background-Color:#cccccc;color:#000000"">" & vbCrLf & _
"<input type=""hidden"" name=sTblName value="""&sTblName&""" >" & vbCrLf & _
"<td style=""word-break:break-all"" colspan="""&(rsList.Fields.Count+1)&""">" & vbCrLf
For x=0 To rsFields.Fields.Count-1
sShowBody = sShowBody & "<span style=""width:120;height:16px;word-break:keep-all"">"& vbCrLf & _
"<input type=""checkbox"" value="""&rsFields(x).Name&""" name=""fieldName"" "&IIf(Instr(1,sSqlString,"["&rsFields(x).Name&"]",1)>0,"checked","")&">"&rsFields(x).Name&" " & vbCrLf & _
"</span> " & vbCrLf
Next
sShowBody = sShowBody & "<select name=""orderField"">" & vbCrLf
sShowBody = sShowBody & "<option value="""">选择排序字段" & vbCrLf
For x=0 To rsFields.Fields.Count-1
sShowBody = sShowBody & "<OPTION value=""" & UCase(rsFields(x).Name)&""">" & rsFields(x).Name & vbCrLf
Next
sShowBody = sShowBody & "</select>" & vbCrLf & _
"<select name=""orderBy""><option value=""ASC"">升序<option value=""DESC"">绛序" & vbCrLf & _
"<input type=submit name=submit value=""提交""> </td></tr></form>" & vbCrLf & _
"<script language=""JavaScript"">" & vbCrLf & _
" var oForm = getObjByID(""formSelField"");" & vbCrLf
If Len(sOrder)>0 Then sShowBody = sShowBody & " oForm.orderField.value="""&sOrder&"""" & vbCrLf
sShowBody = sShowBody & " oForm.orderBy.value="""&sOrderBy&"""" & vbCrLf
sShowBody = sShowBody & "</script>"
'//列出字段
sShowBody = sShowBody & "<tr style=""background-Color:#cccccc;color:#000000"">" & vbCrLf & _
"<td></td>" & vbCrLf
For x=0 To rsList.Fields.Count-1
sShowBody = sShowBody & "<td>"&rsList(x).Name&"</td>" & vbCrLf
Next
sShowBody = sShowBody & "</tr>" & vbCrLf
For i=1 To iPageSize
If rsList.Eof Then Exit For
sCondition = ""
If Len(sPrimaryKey)>0 Then sCondition = "["&sPrimaryKey&"]=\"""&rsFields(sPrimaryKey).value&"\"""
sShowBody = sShowBody & "<tr style=""background-Color:#ffffff;color:#000000"">" & vbCrLf & _
"<td><input type=button name=btn1 value=删 onClick=""doOper(this)"" tblName="""&sTblName&""" sCondition="""&sCondition&"""></td>" & vbCrLf
For x=0 To rsList.Fields.Count-1
sShowBody = sShowBody & "<td>"&Left(rsList(x).value&"",200)&"</td>" & vbCrLf
Next
sShowBody = sShowBody & "</tr>" & vbCrLf
rsList.MoveNext()
Next
sShowBody = sShowBody & "<tr style=""background-Color:#cccccc;color:#000000"">" & vbCrLf
sShowBody = sShowBody & "<form name=""Pager"" id=""Pager"" method=""post"" onSubmit=""return false;"">" & vbCrLf
sShowBody = sShowBody & "<td colspan="""&(rsList.Fields.Count+1)&""" nowrap align=right>" & vbCrLf
sShowBody = sShowBody & " 第 "&CCDbT.PageNo&" 页 / 共 "&CCDbT.PageCount&" 页;"
sShowBody = sShowBody & " 共 "&(CCDbT.RecCount)&" 条记录。"
sShowBody = sShowBody & " <input type=""hidden"" value="""&(CCDbT.PageNo)&""" name=""PageNo"">"
sShowBody = sShowBody & " 跳转到 <input type=""text"" name=""gotoPage"" value="""&CCDbT.PageNo&""" style=""width:30px;text-align:center"">"
sShowBody = sShowBody & " <input name=""go"" value=""Go"" type=""button"" onClick=""changePage(this,0)"">"
sShowBody = sShowBody & " <input type=""button"" value=""|< "" name=""btnPage"" onClick=""changePage(this,1)"" onload=""if(parseInt(this.form.PageNo.value)==1) this.disabled=true;"">"
sShowBody = sShowBody & " <input type=""button"" value="" < "" name=""btnPage"" onClick=""changePage(this,2)"">"
sShowBody = sShowBody & " <input type=""button"" value="" > "" name=""btnPage"" onClick=""changePage(this,3)"">"
sShowBody = sShowBody & " <input type=""button"" value="" >|"" name=""btnPage"" onClick=""changePage(this,4)"">"
sShowBody = sShowBody & " "
sShowBody = sShowBody & " <input type=""button"" value=""新记录"" name=""btnPage"" onClick=""doOper(this)"">"
sShowBody = sShowBody & "</td>" & vbCrLf
sShowBody = sShowBody & "</form>" & vbCrLf
sShowBody = sShowBody & "</tr>" & vbCrLf
Response.Write("<br>"&Replace(Replace(sMainTblString,"[title]","查看对象 [ "&sTblType&": "&sTblName&" ]"),"[body]",sShowBody))
Response.Write("<script language=javascript>" & vbCrLf & _
"var oPager = getObjByID(""Pager"");" & vbCrLf & _
"if(parseInt(oPager.PageNo.value)<=1){" & vbCrLf & _
"oPager.btnPage[0].disabled=true;" & vbCrLf & _
"oPager.btnPage[1].disabled=true;" & vbCrLf & _
"}" & vbCrLf & _
"if(parseInt(oPager.PageNo.value)>=parseInt("""&CCDbT.PageCount&""")){" & vbCrLf & _
"oPager.btnPage[2].disabled=true;" & vbCrLf & _
"oPager.btnPage[3].disabled=true;" & vbCrLf & _
"}" & vbCrLf & _
"</script>")
End If
End If
Set rsFields = Nothing
%>
<%
Dim sPrimaryKey, rsField, x
Dim sFldName, bFldIsNull, sFldType, sFldDefault, sFldDescription, sFldAttrib, iFldSize, bFldIsAuto
If sOper="Design" Then
sSqlString = "SELECT * FROM [" & sTblName & "]"
Set rsSql = Server.CreateObject("ADODB.Recordset")
rsSql.Open sSqlString, CCDbT.Conn, 1, 3
sPrimaryKey = CCDbT.GetPrimaryKey(sTblName)
sShowBody = "<form name=""formDesign"" id=""formDesign"" method=""post"">" & vbCrLf
sShowBody = sShowBody & "<tr style=""background-Color:#999999;color:#000000"">" & vbCrLf & _
"<td>字段名</td>" & vbCrLf & _
"<td align=""center"">类型</td>" & vbCrLf & _
"<td align=""center"">宽度</td>" & vbCrLf & _
"<td align=""center"">空值</td>" & vbCrLf & _
"<td align=""center"">主键</td>" & vbCrLf & _
"<td align=""center"">自增</td>" & vbCrLf & _
"<td align=""center"">默认值</td>" & vbCrLf & _
"<td align=""center"">描述</td>" & vbCrLf & _
"<td align=""center"">操作</td>" & vbCrLf & _
"</tr>" & vbCrLf
For i=0 To rsSql.Fields.Count-1
sFldName = rsSql(i).Name
sFldType = rsSql(i).Type
iFldSize = rsSql(i).DefinedSize
sFldAttrib = rsSql(i).Attributes
bFldIsAuto = rsSql(i).Properties("ISAUTOINCREMENT")
Set rsField = CCDbT.GetColumnInfo(sTblName,rsSql(i).Name)
If Not rsField.Eof Then
bFldIsNull = rsField("IS_NULLABLE")
sFldDefault = String4Js(rsField("COLUMN_DEFAULT"))
sFldDescription = String4Js(rsField("DESCRIPTION"))
Else
bFldIsNull = False
sFldDefault = ""
sFldDescription = ""
End If
' For x=0 To rsField.Fields.Count-1
' If Len(rsField(x).Value)>0 Then
' Response.Write(rsField(x).Name)
' Response.Write(" = ")
' Response.Write(rsField(x).Value)
' Response.Write("<br>")
' End If
' Next
' Response.Write("<br>")
Set rsField = Nothing
sShowBody = sShowBody & "<form name=""formStru"" id=""formStru"" method=""post"">" & vbCrLf & _
"<tr style=""background-Color:#ffffff;color:#000000"">" & vbCrLf & _
"<td width=""180"">" & vbCrLf & _
"<input type=""text"" readonly=""true"" name=""fieldName"" class=""inputText0Border"" value="""&rsSql(i).Name&""">" & vbCrLf & _
"</td>" & vbCrLf & _
"<td width=""130"">" & vbCrLf & _
"<input type=""text"" name=""fieldType"" class=""inputText"" onFocus=""showFieldType(this)"" value="""&GetFieldType(sFldType)&""" readonly=""true"">" & vbCrLf & _
"</td>" & vbCrLf & _
"<td width=""40"">" & vbCrLf & _
"<input type=""text"" name=""fieldSize"" class=""inputText"" value="""&iFldSize&""">" & vbCrLf & _
"</td>" & vbCrLf & _
"<td align=""center"" width=""30"">" & vbCrLf & _
"<input type=""checkbox"" name=""fieldNull"" class=""inputText"" "&IIf((bFldIsNull)<>0,"checked","")&">" & vbCrLf & _
"</td>" & vbCrLf & _
"<td align=""center"" width=""30"">" & vbCrLf & _
IIf(rsSql(i).Name=sPrimaryKey,"√","") & vbCrLf & _
"</td>" & vbCrLf & _
"<td align=""center"" width=""30"">" & vbCrLf & _
IIf(bFldIsAuto,"√","") & vbCrLf & _
"</td>" & vbCrLf & _
"<td align=""center"">" & vbCrLf & _
"<input type=""text"" style=""text-align:center;"" name=""fieldDefault"" readonly=""true"" class=""inputText0Border"" value="""&Replace(sFldDefault,"\""","""")&""">" & vbCrLf & _
"</td>" & vbCrLf & _
"<td align=""center"" width=""30"">" & vbCrLf & _
"<input type=""button"" value=""@"" title="""&sFldDescription&""" onClick=""showDetial(this)"" FldName="""&sFldName&""" "&IIf(Len(sFldDescription)<1,"Disabled","")&">" & vbCrLf & _
"</td>" & vbCrLf & _
"<td align=""center"" width=""130"">" & vbCrLf & _
"<input type=""button"" name=""ModiField"" value=""修改"" onClick=""doOper(this,'"&sTblName&"')"">" & vbCrLf & _
"<input type=""button"" name=""deleteField"" value=""删除"" onClick=""doOper(this,'"&sTblName&"')"">" & vbCrLf & _
"<input type=""button"" name=""NewField"" value=""新增"" onClick=""doOper(this,'"&sTblName&"')"">" & vbCrLf & _
"</td>" & vbCrLf & vbCrLf & _
"</tr>" & vbCrLf & vbCrLf & _
"</form>"
Next
sShowBody = sShowBody & "</form>"
Response.Write("<br>"&Replace(Replace(sMainTblString,"[title]","设计对象"),"[body]",sShowBody))
End If
response.write kong&ender()
%>
<script language="JavaScript">
var CCNS_program = "COCOONDBTOOLS";
var CCNS_version = "Final Release Build 1121";
</script>
</body>
</html>
<% Set CCDbT = Nothing %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -