index.asp

源码!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

			FormValue_DimStr+=(i==ArrField.length-1)?FormValue_frontprefix + ArrField[i]+"\n":FormValue_frontprefix + ArrField[i]+", ";
			ResultStr+=FormValue_blank + FormValue_frontprefix + AddSpace(ArrField[i], n) +" = ";
			ResultStr+=FormValue_frontCode + FormValue_afterprefix + ArrField[i] + FormValue_afterCode +"\n";
		}
		ResultStr=FormValue_DimStr + ResultStr +"\n\n";
	}
	
	//==================================================================生成提交表单
	if(document.getElementById("GetForm").checked){
		IsNochoice=false;
		var GetForm_blank=document.getElementById("GetForm_blank").value;
		var GetForm_Tr=document.getElementById("GetForm_Tr").value;
		var GetForm_TdTitle=document.getElementById("GetForm_TdTitle").value;
		var GetForm_TdContent=document.getElementById("GetForm_TdContent").value;
		var GetForm_Num=parseInt(document.getElementById("GetForm_Num").value);
		var GetForm_frontprefix=document.getElementById("GetForm_frontprefix").value;
		var GetForm_Input=document.getElementById("GetForm_Input").value;
		var GetForm_Dimprefix=document.getElementById("GetForm_Dimprefix").value;
		
		if(GetForm_Num==""){
			alert("Set单行项数");
			document.getElementById("GetForm_Num").focus();
			return false;
		}
		var GetForm_IsGetvalue=(document.getElementById("GetForm_IsGetvalue").checked)?1:0;
		GetForm_Tr=(GetForm_Tr=="")?"<tr>\n":"<tr "+ GetForm_Tr +">\n";
		GetForm_TdTitle=(GetForm_TdTitle=="")?"<td>":"<td "+ GetForm_TdTitle +">";
		GetForm_TdContent=(GetForm_TdContent=="")?"<td>":"<td "+ GetForm_TdContent +">";
		ResultStr+=GetForm_blank +"<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n"
		for(i=0; i<ArrField.length; i++){
			if(i==0) ResultStr+=GetForm_blank +"  "+ GetForm_Tr;
			
			
			ResultStr+=GetForm_blank + "    ";
			ResultStr+=GetForm_TdTitle + "</td>\n";
			ResultStr+=GetForm_blank + "    ";
			ResultStr+=GetForm_TdContent + "<input name=\""+ GetForm_frontprefix + ArrField[i] +"\" id=\""+ GetForm_frontprefix + ArrField[i] +"\" "+ GetForm_Input +" ";
			if(GetForm_IsGetvalue==1) ResultStr+="value=\"\<\%="+ GetForm_Dimprefix + ArrField[i] +"\%\>\" ";
			ResultStr+="\/></td>\n"
			
			
		
			
			
			
			
			
			
			if((i+1) % GetForm_Num==0&&i!=ArrField.length-1) ResultStr+=GetForm_blank + "  </tr>\n"+ GetForm_blank + "  "+ GetForm_Tr;
			if((i+1) % GetForm_Num==0&&i==ArrField.length-1) ResultStr+=GetForm_blank + "  </tr>\n";
			if((i+1) % GetForm_Num!=0&&i==ArrField.length-1){
				for(j=1; j<GetForm_Num-i % GetForm_Num; j++){
					ResultStr+=GetForm_blank + "    <td></td><td></td>\n"
					if(j==GetForm_Num-i % GetForm_Num-1) ResultStr+=GetForm_blank +"  "+"</tr>\n";
				}
			}
		
		
		
		}
		ResultStr+=GetForm_blank + "</table>\n\n";		
	}	
	
	
	
	//==================================================================增加数据表值
	if(document.getElementById("AddTableValue").checked){
		IsNochoice=false;
		var AddTableValue_blank=document.getElementById("AddTableValue_blank").value;
		var AddTableValue_Set=document.getElementById("AddTableValue_Set").value;
		var AddTableValue_frontprefix=document.getElementById("AddTableValue_frontprefix").value;
		if(AddTableValue_Set==""){
			alert("Set对象不能为空");
			document.getElementById("AddTableValue_Set").focus();
			return false;
		}
		
		var AddTableValue_DimStr=AddTableValue_blank +"Dim ";
		var ResultStrb=AddTableValue_blank +"Dim "+ AddTableValue_Set +"\n";
		ResultStrb+=AddTableValue_blank;
		ResultStrb+="Set "+ AddTableValue_Set +"=Server.CreateObject(\"Adodb.ReCordSet\")\n";
		ResultStrb+=AddTableValue_blank + SpaceStr + AddTableValue_Set +".Open \"Select * from ["+ ChoiceTable +"] \", Conn, 1, 3\n";		ResultStrb+=AddTableValue_blank + SpaceStr + AddTableValue_Set +".Addnew()\n";
		for(i=0; i<ArrField.length; i++){
			AddTableValue_DimStr+=(i==ArrField.length-1)?AddTableValue_frontprefix + ArrField[i]+"\n":AddTableValue_frontprefix + ArrField[i]+", ";
			
			
			
			ResultStrb+=AddTableValue_blank + SpaceStr + SpaceStr;
			ResultStrb+=AddSpace(AddTableValue_Set +"(\""+ ArrField[i] +"\")",AddTableValue_Set.length+4+n);
			ResultStrb+=" = "+ AddTableValue_frontprefix + ArrField[i] +"\n";
			
			// + AddTableValue_frontprefix;
		//ResultStrb+=AddSpace(ArrField[i], n) +" = "+ AddTableValue_Set +"(\""+ ArrField[i] +"\")\n"
			
			
			
			
			
		}
			ResultStrb+=AddTableValue_blank + SpaceStr + AddTableValue_Set +".Update()\n";
			ResultStrb+=AddTableValue_blank + SpaceStr + AddTableValue_Set +".Close\n";
			ResultStrb+=AddTableValue_blank + "Set "+ AddTableValue_Set +"=Nothing\n";
		
		
		
		
		
		
		ResultStr+=AddTableValue_DimStr + ResultStrb +"\n\n";
		
		
	}
	
	
	
	
	
	
	
	
	
	
	
	//==================================================================取得数据表值
	if(document.getElementById("GetTableValue").checked){
		IsNochoice=false;
		var GetTableValue_blank=document.getElementById("GetTableValue_blank").value;
		var GetTableValue_Set=document.getElementById("GetTableValue_Set").value;
		var GetTableValue_frontprefix=document.getElementById("GetTableValue_frontprefix").value;
		if(GetTableValue_Set==""){
			alert("Set对象不能为空");
			document.getElementById("GetTableValue_Set").focus();
			return false;
		}
		var GetTableValue_SetType=(document.getElementById("GetTableValue_SetType1").checked)?1:2;
		var GetTableValue_DimStr=GetTableValue_blank +"Dim ";
		var ResultStra=GetTableValue_blank +"Dim "+ GetTableValue_Set +"\n";
		
		ResultStra+=GetTableValue_blank;
		if(GetTableValue_SetType==1){
			ResultStra+="Set "+ GetTableValue_Set +"=Conn.Execute(\"Select * from ["+ ChoiceTable +"] \")\n"
			ResultStra+=GetTableValue_blank + SpaceStr +"If Not "+ GetTableValue_Set +".eof Then\n";
			
			for(i=0; i<ArrField.length; i++){
				GetTableValue_DimStr+=(i==ArrField.length-1)?GetTableValue_frontprefix + ArrField[i]+"\n":GetTableValue_frontprefix + ArrField[i]+", ";
				ResultStra+=GetTableValue_blank + SpaceStr + SpaceStr + GetTableValue_frontprefix;
				ResultStra+=AddSpace(ArrField[i], n) +" = "+ GetTableValue_Set +"(\""+ ArrField[i] +"\")\n"
			}
			ResultStra+=GetTableValue_blank + SpaceStr +"End If\n";
			ResultStra+=GetTableValue_blank + "Set "+ GetTableValue_Set +"=Nothing\n";
		}else{
			ResultStra+="Set "+ GetTableValue_Set +"=Server.CreateObject(\"Adodb.ReCordSet\")\n";
			ResultStra+=GetTableValue_blank + SpaceStr + GetTableValue_Set +".Open \"Select * from ["+ ChoiceTable +"] \", Conn, 1, 1\n";
			ResultStra+=GetTableValue_blank + SpaceStr + SpaceStr +"If Not "+ GetTableValue_Set +".eof Then\n";
		
			for(i=0; i<ArrField.length; i++){
				GetTableValue_DimStr+=(i==ArrField.length-1)?GetTableValue_frontprefix + ArrField[i]+"\n":GetTableValue_frontprefix + ArrField[i]+", ";
				ResultStra+=GetTableValue_blank + SpaceStr + SpaceStr + SpaceStr + GetTableValue_frontprefix;
				ResultStra+=AddSpace(ArrField[i], n) +" = "+ GetTableValue_Set +"(\""+ ArrField[i] +"\")\n"
			}
			ResultStra+=GetTableValue_blank + SpaceStr + SpaceStr +"End If\n";
			ResultStra+=GetTableValue_blank + SpaceStr + GetTableValue_Set +".Close\n";
			ResultStra+=GetTableValue_blank + "Set "+ GetTableValue_Set +"=Nothing\n";
		}
	
		ResultStr+=GetTableValue_DimStr + ResultStra +"\n\n";
	}	





	if(IsNochoice==true){
		alert("没有选择任何项");
		return false;
	}	
	ObjForm.Result.value=ResultStr;
}







function AddSpace(str, Num){
	if(str.length>=Num) return str;
	var SpaceStr="";
	for(var i=0; i<Num-str.length; i++){
		SpaceStr+=" ";
	}
	str+=SpaceStr;
	return str;
}



































function initialize(){
	var TableStr="";
	for(var i=0; i<ArrTables.length; i++){
	
		TableStr+="<label for=\"Table"+ i +"\"><input name=\"Table\" id=\"Table"+ i +"\"  type=\"radio\" value=\""+ ArrTables[i][0] +"\" onclick=\"Getfield("+ i +")\" />"+ ArrTables[i][0] +"</label>";
	}
	if(TableStr!="") document.getElementById("TableList").innerHTML=TableStr;
}	



function Getfield(e){
	if(!ArrTables[e]) return;
	var Fieldstr="";
	var ArrField=ArrTables[e][1].split(",");
	for(var i=0; i<ArrField.length; i++){
		Fieldstr+="<label for=\"Field"+ i +"\"><input name=\"Field\" id=\"Field"+ i +"\"  type=\"checkbox\" checked value=\""+ ArrField[i] +"\" />"+ ArrField[i] +"</label>";
	}
	if(Fieldstr!="") document.getElementById("FieldList").innerHTML=Fieldstr;
}













initialize();


function changeItem(o, ItemId){
	if(!document.getElementById(ItemId)) return;
	var Itemobj=document.getElementById(ItemId);
	if(o.checked){
		Itemobj.style.display="block";
	}else{
		Itemobj.style.display="none";
	}
}


function copycode(obj) {
	var rng = document.body.createTextRange();
	rng.moveToElementText(obj);
	rng.scrollIntoView();
	rng.select();
	rng.execCommand("Copy");
	rng.collapse(false);
}









//-->
</script>		
<%
Set conn=nothing
end if

Sub rps_error(str,lei,local)
	response.Write("<script language=""javascript"">")
	response.Write("<!--"& vbcrlf)
	response.Write("window.alert("""& str &""");")
    if lei=1 then
    	response.Write("window.opener=null; ")
    	response.Write("window.close(); ")
    elseif lei=2 then
     	response.Write("window.history.back(); ")
    elseif lei=3 then
    	response.Write("window.location.href ="""& local &"""; ")
    end if
	response.Write("//-->"& vbcrlf)
	response.Write("</script>") 
end Sub
%>
</body>
</html>