📄 testmm.asp
字号:
<%
strcon="DSN=dbsample4;UID=shipping;PWD=;" '这里你可以更换任意数据库连接
Set oRs = Server.CreateObject("ADODB.Recordset")
strsql="select * from depart "
oRs.Open strsql,strcon,1,1
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript">
<!--
function addin()
{
var i = 0;
for (i; i < selectallusers.length; i++)
{
if (selectallusers[i].selected == true)
{
if (isinlist(selectallusers[i].value) == false)
{
var oOption = document.createElement("OPTION");
oOption.text = selectallusers[i].value;
oOption.value = selectallusers[i].value;
selectusers.add(oOption);
}
}
}
}
function isinlist(name)
{
var i = 0;
for (i; i < selectusers.length; i++)
{
if (selectusers[i].value == name)
{
return true;
}
}
return false;
}
function GetObjID(ObjName)
{ for ( var ObjID=0; ObjID < document.GradJobReg.elements.length; ObjID++ )
if (document.GradJobReg.elements[ObjID].name == ObjName )
{ return(ObjID);
break;
}
return(-1);
}
function ChangeOption(ObjName, DesName)
{
//GET OBJECT VALUE, ID OF DESTINATION OBJECT
ObjID = GetObjID(ObjName);
DesObjID = GetObjID(DesName);
//CLEAR OLD OPTIONS
document.GradJobReg.elements[DesObjID].length= 0;
//Add NEW OPTIONS
if ( ObjID != -1 && DesObjID != -1 )
{ CatValue = document.GradJobReg.elements[ObjID].value.substring(0, 2);
if ( CatValue == "00" )
document.GradJobReg.elements[DesObjID].length=0;
else
{ //PARSING
if ( ObjName == "AreaCat")
var tt = document.GradJobReg.AreaCode.value;
else
var tt = document.GradJobReg.FuncCode.value;
var SubCategory = tt.split(";");
//GENERATE OPTIONS
j=0;
for (var i=0; i< SubCategory.length; i++ )
{ pp = SubCategory[i].split(",");
if ( pp[0].substring(0,2) == CatValue && pp[0].substring(2,4) != "00" )
{ document.GradJobReg.elements[DesObjID].options[j]= new Option( pp[1], pp[0]);
j++;
}//if
}//for
}//if
}//if
}//function
//下面是右边的选项功能
// Fill the selcted item list with the items already present in parent.
function fillInitialDestList () {
var destList = document.GradJobReg.destList;
var srcList = self.opener.window.document.GradJobReg.parentList;
for (var count = destList.options.length - 1; count >= 0; count--) {
destList.options[count] = null;
}
for (var i = 0; i < srcList.options.length; i++) {
if (srcList.options[i] != null)
destList.options[i] = new Option (srcList.options[i].text);
}
}
// Add the selected items from the source to destination list
function addSrcToDestList () {
destList = window.document.forms[0].destList;
srcList = window.document.forms[0].selectallusers;
var len = destList.length;
for (var i = 0; i < srcList.length; i++) {
if ((srcList.options[i] != null) && (srcList.options[i].selected)) {
//Check if this value already exist in the destList or not
//if not then add it otherwise do not add it.
var found = false;
for (var count = 0; count < len; count++) {
if (destList.options[count] != null) {
if (srcList.options[i].text == destList.options[count].text) {
found = true;
break;
}
}
}
if (found != true) {
destList.options[len] = new Option (srcList.options[i].text);
len++;
}
}
}
}
// Deletes from the destination list.
function deleteFromDestList () {
var destList = window.document.forms[0].destList;
var len = destList.options.length;
for (var i = (len-1); i >= 0; i--) {
if ((destList.options[i] != null) && (destList.options[i].selected == true)) {
destList.options[i] = null;
}
}
}
//-->
</script>
</head>
<body>
<p>
<form name="GradJobReg" method="Post">
<%
strcon="DSN=dbsample4;UID=shipping;PWD=;" '这里你可以更换任意数据库连接
Set oRs = Server.CreateObject("ADODB.Recordset")
strsql="select * from depart "
oRs.Open strsql,strcon,1,1
FuncCode=""
Set Rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from depart",strcon,1,1
do while not rs.EOF
FuncCode=FuncCode&rs("ID")&","&rs("depart")&";"
Set Rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open "select * from cust where depart='"&rs("depart")&"' order by ID",strcon,1,1
do while not rs1.EOF
FuncCode=FuncCode&rs1("depart")&","&rs1("Name")&";"
rs1.MoveNext
loop
rs1.close
rs.MoveNext
loop
rs.close
%>
<INPUT TYPE="HIDDEN" NAME="FuncCode" VALUE="<%=FuncCode%>">
<select name="courses" style="width:80" LANGUAGE="javascript" onchange="JavaScript:ChangeOption(this.name, 'selectallusers')">
<option value=1>公共信息</option>
<%
Do while not oRs.EOF
if Request.Form("courses") = oRs("depart") then 'if this is the selected one then display as selected
Response.Write "<OPTION VALUE = '" & oRS ("depart") & "' SELECTED>"
Response.Write oRs("depart") & "</Option>"
oRs.MoveNext
else
Response.Write "<OPTION VALUE = '" & oRs ("depart") & "'>"
Response.Write oRs("depart") & "</Option>"
oRs.MoveNext
end if
loop
%>
</select>
</p>
The following was selected :
<p>
<select name="selectallusers" size="10" style="width:100" multiple>
<option value=''><--------------------</option>
</select>
<input name="button2" type="button" onClick="javascript:addSrcToDestList()" value=" 添加-->> ">
<input name="button" type="button" onClick="javascript:deleteFromDestList()" value=" <<--删除 ">
</p>
<p>
<select name="destList" size="10" style="width:100" >
<option value=1>地址1</option>
</select>
</form>
</p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -