system.asp

这是一个ASP平台的制衣管理系统,里面有比较好看FLASH动画,希望大家喜欢.

        strForm = strForm & "          组编号：" & VBCrlf 
        strForm = strForm & "          <input name=""gId"" type=""text"" id=""gId"" size=""2"" maxlength=""2"" value=""" & rs("gId") & """>" & VBCrlf
        strForm = strForm & "        </td>" & VBCrlf
        strForm = strForm & "      </tr>" & VBCrlf
        strForm = strForm & "      <tr>" & VBCrlf
        strForm = strForm & "        <td width=""60"" align=""center"">&nbsp;</td>" & VBCrlf
        strForm = strForm & "        <td align=""center""> <input type=""submit"" name=""Submit"" value="" 提 交 "">" & VBCrlf 
        strForm = strForm & "          &nbsp;&nbsp; <input name=""Reset"" type=""reset"" id=""Reset"" value="" 重 置 "">" & VBCrlf
        strForm = strForm & "        </td>" & VBCrlf
        strForm = strForm & "      </tr>" & VBCrlf
		strForm = strForm & "      </form>" & VBCrlf
        strForm = strForm & "    </table>" & VBCrlf
	End If
	rs.Close
	Set rs = Nothing
	strList = strList & list("group")
End Sub

Sub editClientsType()
    Dim clientsTypeOld
	clientsTypeOld = Trim(Request.QueryString("clientsTypeOld"))
	If clientsTypeOld = "" Then Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
	Dim rs
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select * From baidu_clientsType Where clientsType = '" & clientsTypeOld & "'",conn,3,1
	If rs.RecordCount = 1 Then
	    strForm = strForm & "    <table width=""100%"" border=""0"" cellpadding=""3"" cellspacing=""0"" bgcolor=""#FFFFFF"">" & VBCrlf
        strForm = strForm & "      <form name=""clientsTypeForm"" action=""?action=ClientsType&subAction=edit"" method=""post"">" & VBCrlf
		strForm = strForm & "      <tr>" & VBCrlf
        strForm = strForm & "        <td width=""60"">&nbsp;</td>" & VBCrlf
        strForm = strForm & "        <td>添加客户类型：</td>" & VBCrlf
        strForm = strForm & "      </tr>" & VBCrlf
        strForm = strForm & "      <tr> " & VBCrlf
        strForm = strForm & "        <td width=""60"">&nbsp;</td>" & VBCrlf
        strForm = strForm & "        <td>客户类型：" & VBCrlf
        strForm = strForm & "          <input name=""clientsType"" type=""text"" id=""clientsType"" size=""16"" maxlength=""16"" value=""" & rs("clientsType") & """>" & VBCrlf
        strForm = strForm & "        </td>" & VBCrlf
        strForm = strForm & "      </tr>" & VBCrlf
        strForm = strForm & "      <tr>" & VBCrlf
        strForm = strForm & "        <td width=""60"" align=""center"">&nbsp;</td>" & VBCrlf
        strForm = strForm & "        <td align=""center""> <input type=""submit"" name=""Submit"" value="" 提 交 "">" & VBCrlf 
        strForm = strForm & "          &nbsp;&nbsp; <input name=""Reset"" type=""reset"" id=""Reset"" value="" 重 置 "">" & VBCrlf
        strForm = strForm & "        </td>" & VBCrlf
        strForm = strForm & "      </tr>" & VBCrlf
		strForm = strForm & "      </form>" & VBCrlf
        strForm = strForm & "    </table>" & VBCrlf
	End If
	rs.Close
	Set rs = Nothing
	strList = strList & list("clientsType")
End Sub

Sub editRecordsType()
    Dim recordsTypeOld
	recordsTypeOld = Trim(Request.QueryString("recordsTypeOld"))
	If recordsTypeOld = "" Then Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
	Dim rs
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select * From baidu_recordsType Where recordsType = '" & clientsTypeOld & "'",conn,3,1
	If rs.RecordCount = 1 Then
	    strForm = strForm & "    <table width=""100%"" border=""0"" cellpadding=""3"" cellspacing=""0"" bgcolor=""#FFFFFF"">" & VBCrlf
        strForm = strForm & "      <form name=""recordsTypeForm"" action=""?action=RecordsType&subAction=edit"" method=""post"">" & VBCrlf
		strForm = strForm & "      <tr>" & VBCrlf
        strForm = strForm & "        <td width=""60"">&nbsp;</td>" & VBCrlf
        strForm = strForm & "        <td>添加客户类型：</td>" & VBCrlf
        strForm = strForm & "      </tr>" & VBCrlf
        strForm = strForm & "      <tr> " & VBCrlf
        strForm = strForm & "        <td width=""60"">&nbsp;</td>" & VBCrlf
        strForm = strForm & "        <td>客户类型：" & VBCrlf
        strForm = strForm & "          <input name=""recordsType"" type=""text"" id=""recordsType"" size=""16"" maxlength=""16"" value=""" & rs("recordsType") & """>" & VBCrlf
        strForm = strForm & "        </td>" & VBCrlf
        strForm = strForm & "      </tr>" & VBCrlf
        strForm = strForm & "      <tr>" & VBCrlf
        strForm = strForm & "        <td width=""60"" align=""center"">&nbsp;</td>" & VBCrlf
        strForm = strForm & "        <td align=""center""> <input type=""submit"" name=""Submit"" value="" 提 交 "">" & VBCrlf 
        strForm = strForm & "          &nbsp;&nbsp; <input name=""Reset"" type=""reset"" id=""Reset"" value="" 重 置 "">" & VBCrlf
        strForm = strForm & "        </td>" & VBCrlf
        strForm = strForm & "      </tr>" & VBCrlf
		strForm = strForm & "      </form>" & VBCrlf
        strForm = strForm & "    </table>" & VBCrlf
	End If
	rs.Close
	Set rs = Nothing
	strList = strList & list("recordsType")
End Sub

Sub restoreLevel()
End Sub

Sub restoreGroup()
End Sub

Sub restoreClientsType()
End Sub

Sub restoreRecordsType()
End Sub

Sub deleteLevel()
End Sub

Sub deleteGroup()
End Sub

Sub deleteClientsType()
End Sub

Sub deleteRecordsType()
End Sub

Sub listLevel()
    strForm = myForm("level")
	strList = list("level")
End Sub

Sub listGroup()
    strForm = myForm("group")
	strList = list("group")
End Sub

Sub listClientsType()
    strForm = myForm("clientsType")
	strList = list("clientsType")
End Sub

Sub listRecordsType()
    strForm = myForm("recordsType")
	strList = list("recordsType")
End Sub

Dim rs,intTotalRecords,intTotalPages,intCurrentPage,intPageSize
intCurrentPage = CInt(ABS(Request("pageNum")))
If Not IsNumeric(intCurrentPage) Or intCurrentPage <= 0 Then intCurrentPage = 1
intPageSize = 10

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baidu_user Order By uId",conn,3,1
intTotalRecords = rs.RecordCount
rs.PageSize = intPageSize
intTotalPages = rs.PageCount
If intCurrentPage > intTotalPages Then intCurrentPage = intTotalPages
If intTotalRecords > 0 Then rs.AbsolutePage = intCurrentPage
strCounter = strCounter & "共 " & intTotalRecords & " 条记录 "
strCounter = strCounter & "共 " & intTotalPages & " 页 "
strCounter = strCounter & "当前第 " & intCurrentPage & " 页 "
If intCurrentPage <> 1 And intTotalRecords <> 0 Then
    strCounter = strCounter & "<a href=""?pageNum=1""><<首页</a> "
Else
    strCounter = strCounter & "<<首页 "
End If
If intCurrentPage > 1 Then
    strCounter = strCounter & "<a href=""?pageNum=" & intCurrentPage - 1 & """><上一页</a> "
Else
    strCounter = strCounter & "<上一页 "
End If
If intCurrentPage < intTotalPages Then
    strCounter = strCounter & "<a href=""?pageNum=" & intCurrentPage + 1 & """>下一页></a> "
Else
    strCounter = strCounter & "下一页> "
End If
If intCurrentPage <> intTotalPages Then
    strCounter = strCounter & "<a href=""?pageNum=" & intTotalPages & """>尾页>></a>"
Else
    strCounter = strCounter & "尾页>>"
End If

Dim i
i = 0
Do While Not rs.BOF And Not rs.EOF
    i = i + 1
	strToPrint = strToPrint & "        <tr>" & VBCrlf
	strToPrint = strToPrint & "          <td align=""center"">" & rs("uId") & "</td>" & VBCrlf
	If rs("uBlock") = False Then
	    strToPrint = strToPrint & "          <td>" & rs("uAccount") & "</td>" & VBCrlf
	Else
	    strToPrint = strToPrint & "          <td><font color=""#FF0000"">" & rs("uAccount") & "</font></td>" & VBCrlf
	End If
	strToPrint = strToPrint & "          <td>" & rs("uPassword") & "</td>" & VBCrlf
	strToPrint = strToPrint & "          <td>" & rs("uName") & "</td>" & VBCrlf
	strToPrint = strToPrint & "          <td>" & getGroupName(rs("uGroup")) & "</td>" & VBCrlf
	strToPrint = strToPrint & "          <td>" & getLevelName(rs("uLevel")) & "</td>" & VBCrlf
	If rs("uBlock") = False Then
	    strToPrint = strToPrint & "          <td align=""center"">[<a href=""?action=edit&uId=" & rs("uId") & """>修改</a>] [<a href=""?action=block&uId=" & rs("uId") & """>冻结</a>] [<a href=""?action=delete&uId=" & rs("uId") & """>删除</a>]</td>" & VBCrlf
	Else
	    strToPrint = strToPrint & "          <td align=""center"">[<a href=""?action=edit&uId=" & rs("uId") & """>修改</a>] [<a href=""?action=block&uId=" & rs("uId") & """>解冻</a>] [<a href=""?action=delete&uId=" & rs("uId") & """>删除</a>]</td>" & VBCrlf
	End If
	strToPrint = strToPrint & "        </tr>" & VBCrlf
    If i >= intPageSize Then Exit Do
	rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Author" content="http://www.technet.cn">
<meta name="Date" content="2003-08">
<title>客户资料收集系统</title>
<link href="myStyle.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function checkInput(o)
{
    var oo = eval("document.all." + o);
    var num = oo.length;
    for(var i=0;i<num;i++){
	    if(oo[i].value == ""){
		    alert(oo[i].selfValue + "不能为空。");
			oo[i].focus();
			return false
			break;
		}
	}
}

if (this.location.href == top.location.href){
    top.location.href = "";
}

function selectSystem(j)
{
    var num = 4;
	for(var i=1;i<=num;i++){
	    if(i != j){
		    document.all["block" + i].style.display = "none";
			document.all["block" + (i + 4)].style.display = "none";
		}
		else{
		    document.all["block" + i].style.display = "block";
		    document.all["block" + (i + 4)].style.display = "block";
		}
	}
}
-->
</script>
</head>

<body style="background-color: menu;" onCopy="return false;" onSelectStart="return false;" onCut="return false;" onContextMenu="window.event.returnValue=false;">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr id="oHead" style="display: block;">
    <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td valign="top"><img src="images/null.gif" width="1" height="1">            <table width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF">
              <tr> 
                <td width="60">&nbsp;</td>
                <td>添加用户级别：</td>
              </tr>
              <tr> 
                <td width="60">&nbsp;</td>
                <td>用户级别名称： 
                  <input name="lName" type="text" id="lName5" size="16" maxlength="16">
                  级别编号： 
                  <input name="lId" type="text" id="lId5" size="2" maxlength="2">
                  （1-9，数字越大级别越高，管理员为 9 级。） </td>
              </tr>
              <tr> 
                <td width="60" align="center">&nbsp;</td>
                <td align="center"> <input type="submit" name="Submit" value=" 提 交 "> 
                  &nbsp;&nbsp; <input name="Reset" type="reset" id="Reset5" value=" 重 置 ">                </td>
              </tr>
          </table></td>
        </tr>
        
        <tr id="block2" style="display: none;">
          <td><table width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF">
              <tr> 
                <td width="60">&nbsp;</td>
                <td>添加用户组：</td>
              </tr>
              <tr> 
                <td width="60">&nbsp;</td>
                <td>用户组名称： 
                  <input name="gName" type="text" id="gName2" size="16" maxlength="16">
                  组编号： 
                  <input name="lId2" type="text" id="lId23" size="2" maxlength="2">                </td>
              </tr>
              <tr> 
                <td width="60" align="center">&nbsp;</td>
                <td align="center"> <input type="submit" name="Submit2" value=" 提 交 "> 
                  &nbsp;&nbsp; <input name="Reset2" type="reset" id="Reset23" value=" 重 置 ">                </td>
              </tr>
            </table></td>
        </tr>
        <tr id="block3" style="display: none;">
          <td><table width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF">
              <tr> 
                <td width="60">&nbsp;</td>
                <td>添加客户类型：</td>
              </tr>
              <tr> 
                <td width="60">&nbsp;</td>
                <td>客户类型名称： 
                  <input name="clientsType" type="text" id="clientsType2" size="16" maxlength="16">                </td>
              </tr>
              <tr> 
                <td width="60" align="center">&nbsp;</td>
                <td align="center"> <input type="submit" name="Submit3" value=" 提 交 "> 
                  &nbsp;&nbsp; <input name="Reset3" type="reset" id="Reset33" value=" 重 置 ">                </td>
              </tr>
            </table></td>
        </tr>
        <tr id="block4" style="display: none;">
          <td><table width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF">
              <tr> 
                <td width="60">&nbsp;</td>
                <td>添加拜访记录类型：</td>
              </tr>
              <tr> 
                <td width="60">&nbsp;</td>
                <td>拜访记录名称： 
                  <input name="recordsType" type="text" id="recordsType" size="16" maxlength="16">                </td>
              </tr>
              <tr> 
                <td width="60" align="center">&nbsp;</td>
                <td align="center"> <input type="submit" name="Submit4" value=" 提 交 "> 
                  &nbsp;&nbsp; <input name="Reset4" type="reset" id="Reset43" value=" 重 置 ">                </td>
              </tr>
            </table></td>
        </tr>
      </table>    </td>
  </tr>
  <tr>
    <td colspan="4" align="center" valign="top" id="oHeadBar"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td>[<span onClick="selectSystem(1);" style="cursor: hand;">用户级别</span>] [<span onClick="selectSystem(2);" style="cursor: hand;">用户组</span>] [<span onClick="selectSystem(3);" style="cursor: hand;">客户类型</span>] [<span onClick="selectSystem(4);" style="cursor: hand;">拜访类型</span>]</td>
        </tr>
      </table>      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr id="block5" style="display: block;">
          <td><table width="100%" align="center" border="1" cellpadding="3" cellspacing="0" bordercolor="#DCDCDC" bordercolordark="#FFFFFF">
              <tr> 
                <td width="120" align="center" bgcolor="menu">级别编号</td>
                <td align="center" bgcolor="menu">用户等级名称</td>
                <td width="120" align="center" bgcolor="menu">操作</td>
                <%' = strToPrint %>
              </tr>
            </table>          </td>
        </tr>
        <tr id="block6" style="display: none;">
          <td><table width="100%" align="center" border="1" cellpadding="3" cellspacing="0" bordercolor="#DCDCDC" bordercolordark="#FFFFFF">
              <tr> 
                <td width="120" align="center" bgcolor="menu">用户组编号</td>
                <td align="center" bgcolor="menu">用户组名称</td>
                <td width="120" align="center" bgcolor="menu">操作</td>
                <%' = strToPrint %>
              </tr>
            </table></td>
        </tr>
        <tr id="block7" style="display: none;">
          <td><table width="100%" align="center" border="1" cellpadding="3" cellspacing="0" bordercolor="#DCDCDC" bordercolordark="#FFFFFF">
              <tr> 
                <td align="center" bgcolor="menu">客户类型</td>
                <td width="120" align="center" bgcolor="menu">操作</td>
                <%' = strToPrint %>
              </tr>
            </table></td>
        </tr>
        <tr id="block8" style="display: none;">
          <td><table width="100%" align="center" border="1" cellpadding="3" cellspacing="0" bordercolor="#DCDCDC" bordercolordark="#FFFFFF">
              <tr> 
                <td align="center" bgcolor="menu">拜访类型</td>
                <td width="120" align="center" bgcolor="menu">操作</td>
                <%' = strToPrint %>
              </tr>
            </table></td>
        </tr>
    </table>      </td></td>
  </tr>
  
  <tr>
    <td colspan="4" align="right"><a href="#top">返回顶部<img src="images/arrow_up.gif" alt="返回顶部" width="16" height="16" border="0" align="absmiddle"></a>&nbsp;    </td></td>
  </tr>
</table>
</body>
</html>