![]() |
VBScript Sample: vbscript/ado/webaccess/newtb.asp |
|
||||||
|
||||||||
<%@ Language=VBScript %> <HTML> <HEAD> <SCRIPT language=JavaScript> dbms = "<%=Request.QueryString("dbms")%>"; function ChgType(){ if (document.form1.fdType.selectedIndex == 0) { if ( document.form1.fdType.selectedIndex == 12 || document.form1.fdType.selectedIndex == 13 ) { var lstLen = document.form1.listName.length; adoType = document.form1.fdType.options[document.form1.fdType.selectedIndex].text; document.form1.listName.length = lstLen + 1; document.form1.listName.options[lstLen].text = document.form1.fdName.value; document.form1.listType.options[lstLen].text = adoType; if ( document.form1.fdType.selectedIndex == 25 || document.form1.fdType.selectedIndex == 26 || document.form1.fdName.value = ""; function ridField_onClick(){ if ( index < 0 || index >= list.length ) for ( i = index; i < list.length - 1; i++ ) { function listName_onChange(){ document.form1.listType.selectedIndex = NameIdx; function listType_onChange(){ document.form1.listName.selectedIndex = TypeIdx; function listSize_onChange(){ document.form1.listType.selectedIndex = SizeIdx; function listFields_onChange(){ if (tmp2 != "") { function Up_onClick(){ tmp = document.form1.listName.options[selectIdx - 1].text; tmp = document.form1.listType.options[selectIdx - 1].text; tmp = document.form1.listType.options[selectIdx - 1].value; function Down_onClick(){ tmp = document.form1.listName.options[selectIdx + 1].text; tmp = document.form1.listType.options[selectIdx + 1].text; tmp = document.form1.listType.options[selectIdx + 1].value; tmp = document.form1.listSize.options[selectIdx + 1].text; function Buildtb_onClick(){ list = document.form1.listIndex; function createTbSQL(){ Sqlsent = "CREATE TABLE " + tmp + " ("; lstLen = document.form1.listName.length if (i != 0) { if ( adoType == "adChar" || adoType == "adVarChar"
|| adoType == "adWChar" || return Sqlsent; function fieldDataType(adoType){ } else if (dbms == "SQLServer") { //2 var length = document.form1.listIndex.length; document.form1.listFields.selectedIndex = -1; function AddIndexSQL(){ sqlsent = sqlsent + document.form1.idxName.value + " ON " + newTbName
+ " (" + document.form1.idxFields.value; sqlsent = sqlsent.substring(0, sqlsent.length - 1); function ridIndex_onClick(){ list.selectedIndex = -1; function listIndex_onChange(){ pos1 = strValue.indexOf(" INDEX "); pos1 = strValue.indexOf(" ("); document.form1.idxFields.value = strValue.substring(pos1 + 1, pos2) +
","; </SCRIPT>
</HEAD> <TABLE><TR> <TABLE><TR> <TABLE><TR> <TR><TD><font size=1><B>Index Name:</B></font><BR> <TR><TD><font size=1><B>Available Fields:</B></font><BR> <TR><TD><font size=1><B>Indexed Fields:</B><font><BR>
|
||||||||
|
||||||||
Copyright © 1998-2002, Halcyon
Software Inc. All rights reserved.
|