一个订单管理页面

最近做项目，中间设计到用户在线提交订单；本来客户的要求很简单，可能被我做复杂了，结果确实我只用一个页面就完成了所有的功能，贴出来献丑了；为了赶时间，还没有集成分页功能，所以无论在公用页面读取现有的项目的时候，或者还是在个人页面读取现有的数据，都没有分页，而是采用了select top 10 * title From table的方法……等有时间了，再集成分页吧

主要代码如下：

<!--#include file="Inc/Const.asp"-->

      <table width="485" height="400" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="12">&nbsp;</td>
          <td width="459" valign="top"><br>
    
<%
Dim Action,Action1
Action=Request("Action")

Select Case Action
 Case "Reg" 
  Call Reg()
 Case "SaveReg"
  Call SaveReg()
 Case "Login"
  Call Login()
 Case "ChkLogin"
  Call ChkLogin()  
 Case "AddOrder"
  Call AddOrder()
 Case "SaveOrder"
  Call SaveOrder()
 Case "Success"
  Call Success() 
 Case "ModyOrder"
  Call ModyOrder()
 Case "SaveMody"
  Call SaveMody() 
 Case "DelOrder"
  Call DelOrder()
 Case "LoginOut"
  Call LoginOut()
 Case "ShowOrder"
  Call ShowOrder()  
 Case Else
  Call Main()
End Select

'++++++++++++++++++++++++++++主函数开始

Sub Main()
%>
      
  <%  '++++++++++++++++++++++主函数开始%>
 <table width="400" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="f5f5f5" style="border-collapse:collapse">
              <tr class="table_row_1">
            <td height="30"><font color="FF6633">所有订单如下：</font></td>
   </tr>
    <%sql="select top 8 OrderComName,OrderClass,OrderId From [Order] order by Orderid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
   response.write "<p align='center'><font color=red> 对不起，没有找到任何订单</font></p>"
else
  do while not rs.eof%>
     <tr class="table_row_1">
                <td height="30"><a href="Order.asp?OrderId=<%=Rs("OrderId")%>&Action=ShowOrder"><%=rs("OrderComName")&"-----"&rs("OrderClass")%></a></td>
      </tr>
   <%Rs.movenext
   loop
   rs.close
   set rs=nothing
   end If
   %>
     </table>
  <p>&nbsp;</p>
  <table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="20%"> 
                  <form name="Main1" method="post" action="?">
                    <div align="center">
                      <input type="submit" name="Main1" value="管理我的订单" class="button">
                      <input type="hidden" name="Action" value="Login">
                    </div>
                  </form></td>
                <td><form name="Main2" method="post" action="?">
                    <div align="center">
                      <input type="submit" name="Main2" value="新用户注册" class="button">
                      <input type="hidden" name="Action" value="Reg">
                    </div>
                  </form></td>
  </tr>
</table>
 
<br><%
End Sub

'++++++++++++++++++++++++++++主函数结束




'++++++++++++++++++++++++++++用户注册函数开始
Sub Reg()
 %>
 <form name="reg" method="post" action="?">
              <table width="400" border="0" align="center" cellpadding="5" cellspacing="0">
                <tr class="table_row_1"> 
                <td colspan="2"><div align="center"><strong><font color="#FF6633">用 
                      户 注 册</font></strong></div></td>
              </tr>
              <tr class="table_row_1"> 
                  <td width="200"><div align="right">用户名：&nbsp;&nbsp;</div></td>
                <td><input name="UserName" type="text" class="editbox" id="UserName" size="16"></td>
              </tr>
              <tr class="table_row_1"> 
                <td><div align="right">密&nbsp;&nbsp;码：&nbsp;&nbsp;</div></td>
                <td><input name="Password" type="password" class="editbox" id="Password" size="16"></td>
              </tr>
              <tr class="table_row_1"> 
                <td colspan="2"><div align="center">
                      <input type="hidden" name="Action" value="SaveReg">
       <input type="submit" name="SubmitReg" value="提交" class="button">&nbsp;&nbsp;&nbsp;&nbsp;
                      <input type="Reset" name="ResetReg" value="取消" class="button">
                    </div></td>
              </tr>
            </table>
</form>
 <%
End Sub
'++++++++++++++++++++++++++++用户注册函数结束




'++++++++++++++++++++++++++保存注册信息开始
Sub SaveReg()
 UserName=Trim(Request.Form("UserName"))
 Password=Trim(Request.Form("Password"))
 
 If UserName="" Or Len(UserName)=0 or Len(UserName)>16 or UserName="Admin" or UserName="admin" Then
  ErrorMsg1=true
 Else
  ErrorMsg1=False 
 End If 
 If Password="" Or Len(Password)=0 or Len(Password)<6 Or Len(Password)>16 then
  ErrorMsg2=true
 Else
  ErrorMsg2=False 
 End If 
 If ErrorMsg1=True or ErrorMsg2=True then
  Response.Write("<li>用户名长度必须大于0，小于20</li>")
  Response.Write("<li>密码不能为空，长度必须大于6，小于16</li>")
  Response.Write("<p align='center'><a href='#' OnClick='vbscript:history.back()'>【返回】</a></p>")
 End If 
 
 If (ErrorMag1=false and ErrorMsg2=false) Then
  Set RsReg=Server.CreateObject("Adodb.Recordset")
  SqlReg="Select * From [User] Where Username='"&UserName&"' "
  RsReg.Open sqlReg,Conn,1,3
   If Not (RsReg.Eof or RsReg.Bof) Then
     Response.Write("对不起，你的用户名已经被他人使用!")
  Response.Write("<p align='center'><a href='#' OnClick='vbscript:history.back()'>【返回】</a></p>")
  Response.End()
   Else  
    RsReg.AddNew
    RsReg("UserName")=UserName
    RsReg("Password")=Password
    RsReg.Update
   End If
  RsReg.Close
  Set RsReg=Nothing 
 Session("UserName")=UserName
 Call Success()
 End If 
 
End Sub
'++++++++++++++++++++++++++保存注册信息完毕


 

'++++++++++++++++++++++++++登陆开始
Sub Login()
%>
  <form name="Login" method="post" action="?"> 
           <table width="400" border="0" align="center" cellpadding="5" cellspacing="0">
                <tr class="table_row_1"> 
                <td colspan="2"><div align="center"><strong><font color="#FF6633">用 
                      户 等 陆</font></strong></div></td>
              </tr>
              <tr class="table_row_1"> 
                <td width="200"><div align="right">用户名：&nbsp;&nbsp;</div></td>
                <td><input name="UserName" type="text" class="editbox" id="UserName" size="16"></td>
              </tr>
              <tr class="table_row_1"> 
                <td><div align="right">密码：&nbsp;&nbsp;</div></td>
                <td><input name="Password" type="password" class="editbox" id="Password" size="16"></td>
              </tr>
              <tr class="table_row_1"> 
                <td colspan="2"> <div align="center">
                    <input name="Action" type="hidden" id="Action" value="ChkLogin">
                    <input name="SubmitLogin" type="submit" class="button" id="SubmitLogin" value="提交">
                    &nbsp;&nbsp;&nbsp;&nbsp; 
                    <input name="Resetlogin" type="Reset" class="button" id="Resetlogin" value="取消">
                  </div></td>
              </tr>
            </table>
  </form>
<%
End Sub
'++++++++++++++++++++++++++登陆结束




 

'++++++++++++++++++++++++++检查登陆开始

Sub ChkLogin()

UserName=Request.Form("UserName")
PassWord=Request.Form("PassWord")

Set RsChk=Server.CreateObject("Adodb.RecordSet")
SqlChk="Select UserName,PassWord From [User] Where UserName='"&UserName&"' And Password='"&PassWord&"'"
RsChk.Open SqlChk,Conn,1,1
If RsChk.Eof Or Bof Then
 Response.Write("<li>用户名不存在</li>")
 Response.Write("<li>用户名与密码不一致，拥护密码错误</li>")
 Response.Write("<p align='center'><a href='#' OnClick='vbscript:history.back()'>【返回】</a></p>")
 Response.End()
Else
 Session("UserName")=UserName
  Call Success()
End If  
End Sub
'++++++++++++++++++++++++++检查登陆结束




'++++++++++++++++++++++++++++用户注册成功或登陆成功函数开始

Sub Success()
If Session("UserName")="" Then
  Call Login
Else 
%>
            <table width="480" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td valign="top"> <table width="400" border="2" align="center" cellpadding="5" cellspacing="0" bordercolor="#F5F5F5" style="border-collapse:collapse">
                    <tr class="table_row_1"> 
                      <td height="30"> <div align="center"><strong><font color="#FF6633">用户面板：欢迎您<%=Session("UserName")%></font></strong></div></td>
                      <td><div align="center"><a href="Order.asp?Action=AddOrder">增加订单</a></div></td>
                      <td><div align="center"><a href="Order.asp?Action=LoginOut">注销登陆</a></div></td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td valign="top"> <%Call UserMain()%> </td>
              </tr>
            </table> 
            <%
End If   
End Sub
'++++++++++++++++++++++++++++用户注册或登陆成功函数结束


 



 '++++++++++++++++++++++用户主函数开始
Sub UserMain()
If Session("UserName")="" Then
  Call Login
Else 
 %>
 <br>
            <table width="400" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#F5F5F5" style="Border-Collapse:Collapse">
              <tr class="table_row_1"> 
                <td height="30" colspan="3"><font color="FF6633">您的订单如下</font></td>
              </tr>
              <%sql="select top 8 OrderId,OrderComName,OrderClass,IsCheck From [Order] Where OrderUserName='"&Session("UserName")&"' order by Orderid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
   response.write "<div align='center'><font color=red> 对不起 <strong>"&Session("UserName")&"</strong>，没有找到您的任何订单</font></div>"
else
  do while not rs.eof%>
              <tr class="table_row_1"> 
                <td height="30">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a Href="Order.asp?OrderId=<%=rs("OrderId")%>&Action=ShowOrder"><%=rs("OrderComName")&"-----"&rs("OrderClass")%></a></td>
                <td width="40"><%tmpIsChk=Cint(rs("IsCheck"))
   If tmpIsChk=1 then
      Response.Write("<font color='#FF6633'><strong>已审核</strong></font>")
   ElseIf tmpIsChk=0 Then
     Response.Write("<font color='#FF6633'><strong>未审核</strong></font>") 
   End If%></td>
                <td width="60"><a href="Order.asp?Action=ModyOrder&OrderId=<%=rs("OrderId")%>">修改</a> 
                  <a href="Order.asp?Action=DelOrder&OrderId=<%=rs("OrderId")%>">删除</a></td>
              </tr>
              <%Rs.movenext
   loop
   rs.close
   set rs=nothing
   end If
   %>
            </table>


<%
End If
End Sub
 '++++++++++++++++++++++用户主函数结束
 
 
 

'++++++++++++++++++++++++++++增加订单函数开始
Sub AddOrder()
If Session("UserName")="" Then
  Call Login
Else 
%>
    
            <table width="400" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#f7f7f7">
              <form name="AddOrder" action="?" method="post">
                <tr bgcolor="#FFFFFF"> 
                  <td colspan="2">网站类型：
                    <select name="OrderClass">
                      <option value="自己定制" selected>自己定制</option>
       <option value="企业入门型" onMouseOver="">企业入门型</option>
       <option value="企业宣传型">企业宣传型</option>
                      <option value="企业产品展示型">企业产品展示型</option>
                      <option value="企业电子商务型">企业电子商务型</option>
                      <option value="企业门户">企业门户</option>
                    </select> <br> <br>
                    公司名称： 
                    <input name="OrderComName" type="text" class="editbox" size="30"> 
                    <br> <br>
                    网站建设目的：<br> <textarea name="OrderAim" cols="60" rows="4" ></textarea> 
                    <br> <br>
                    设计要求：<br> <textarea name="OrderRequest" cols="60" rows="4" ></textarea> 
                    <br> <br>
                    网站内容简要介绍：<br> <textarea name="OrderIntro" cols="60" rows="6" ></textarea> 
                    <br> <br>
                    网站需要的功能模块：<br>
                    （需要特殊功能的也请在这里写下功能的描述） 
                    <textarea name="OrderModule" cols="60" rows="5" ></textarea></td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                  <td width="40">&nbsp; </td>
                  <td><input type="hidden" name="Action" value="SaveOrder">
      <input type="submit" name="Submit" value="提交" class="button"> 
                    &nbsp;&nbsp;&nbsp;&nbsp; <input type="Reset" name="Submit2" value="取消" class="button"> 
                  </td>
                </tr>
              </form>
            </table>
   
<%
End IF
End Sub
'++++++++++++++++++++++++++++增加订单函数结束



 

'++++++++++++++++++++++++++++保存订单函数开始
Sub SaveOrder()

If Session("UserName")="" Then
  Call Login
Else 
Dim OrderClass,OrderBillNo,OrderUserName,OrderComName,OrderAim,OrderRequest,OrderIntro,OrderModule
OrderBillNo="DW-"&Year(Date)&Right("00"&Month(Date),2)&Right("00"&Day(Date),2)&Right("00"&Hour(Time),2)&Right("00"&Minute(Time),2)&Right("00"&Second(Time),2)

OrderClass=Trim(Request.form("OrderClass"))
OrderComName=Trim(Request.form("OrderComName"))
OrderAim=Trim(Request.form("OrderAim"))
OrderRequest=Trim(Request.form("OrderRequest"))
OrderIntro=Trim(Request.form("OrderIntro"))
OrderModule=Trim(Request.form("OrderModule"))

Set RsSvOrder=Server.CreateObject("Adodb.RecordSet")
SqlSvOrder="Select * From [Order]"
RsSvOrder.Open SqlSvOrder,Conn,1,3
RsSvOrder.AddNew
RsSvOrder("OrderClass")=OrderClass
RsSvOrder("OrderComName")=OrderComName
RsSvOrder("OrderBillNo")=OrderBillNo
RsSvOrder("OrderUserName")=Session("UserName")
RsSvOrder("OrderAim")=OrderAim
RsSvOrder("OrderRequest")=OrderRequest
RsSvOrder("OrderIntro")=OrderIntro
RsSvOrder("OrderModule")=OrderModule
RsSvOrder.Update
RsSvOrder.Close
Set RsSvOrder=Nothing
Call Success()
End If
End Sub
'++++++++++++++++++++++++++++保存订单函数结束



 

'++++++++++++++++++++++++++++修改订单函数开始
Sub ModyOrder()

If Session("UserName")="" Then
  Call Login
Else 
Set RsM=Server.CreateObject("Adodb.Recordset")
SqlM="Select * From [Order] Where OrderId="&Request("OrderId")
RsM.Open SqlM,Conn,1,1
%>
            <table width="400" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#f7f7f7">
              <form name="AddOrder" action="?" method="post">
                <tr bgcolor="#FFFFFF"> 
                  <td colspan="2">网站类型：
                    <select name="OrderClass">
                      <option value="自己定制" selected>自己定制</option>
       <option value="企业入门型" onMouseOver="">企业入门型</option>
       <option value="企业宣传型">企业宣传型</option>
                      <option value="企业产品展示型">企业产品展示型</option>
                      <option value="企业电子商务型">企业电子商务型</option>
                      <option value="企业门户">企业门户</option>
                    </select> <br> <br>
                    公司名称： 
                    <input name="OrderComName" type="text" class="editbox" size="30" value="<%=RsM("OrderComName")%>"> 
                    <br> <br>
                    网站建设目的：<br> 
                    <textarea name="OrderAim" cols="60" rows="4"><%=RsM("OrderAim")%></textarea> 
                    <br> <br>
                    设计要求：<br> <textarea name="OrderRequest" cols="60" rows="4"><%=RsM("OrderRequest")%></textarea> 
                    <br> <br>
                    网站内容简要介绍：<br> <textarea name="OrderIntro" cols="60" rows="6"><%=RsM("OrderIntro")%></textarea> 
                    <br> <br>
                    网站需要的功能模块：<br>
                    （需要特殊功能的也请在这里写下功能的描述） 
                    <textarea name="OrderModule" cols="60" rows="5"><%=RsM("OrderModule")%></textarea></td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                  <td width="40">&nbsp; </td>
                  <td><input type="hidden" name="Action" value="SaveMody">
      <input type="hidden" name="OrderId" value="<%=RsM("OrderId")%>">
      <input type="submit" name="Submit" value="提交" class="button"> 
                    &nbsp;&nbsp;&nbsp;&nbsp; <input type="Reset" name="Submit2" value="取消" class="button"> 
                  </td>
                </tr>
              </form>
            </table>

<%
RsM.Close
Set RsM=Nothing
End If
End Sub
'++++++++++++++++++++++++++++修改订单函数结束



 

'++++++++++++++++++++++++++++保存订单修改函数开始
Sub SaveMody()

If Session("UserName")="" Then
  Call Login
Else 
Dim OrderClass,OrderBillNo,OrderUserName,OrderComName,OrderAim,OrderRequest,OrderIntro,OrderModule
OrderClass=Trim(Request.form("OrderClass"))
OrderComName=Trim(Request.form("OrderComName"))
OrderAim=Trim(Request.form("OrderAim"))
OrderRequest=Trim(Request.form("OrderRequest"))
OrderIntro=Trim(Request.form("OrderIntro"))
OrderModule=Trim(Request.form("OrderModule"))

Set RsSvOrder=Server.CreateObject("Adodb.RecordSet")
SqlSvOrder="Select * From [Order] Where OrderId="&Request.Form("OrderId") 
RsSvOrder.Open SqlSvOrder,Conn,1,3
RsSvOrder("OrderClass")=OrderClass
RsSvOrder("OrderComName")=OrderComName
RsSvOrder("OrderAim")=OrderAim
RsSvOrder("OrderRequest")=OrderRequest
RsSvOrder("OrderIntro")=OrderIntro
RsSvOrder("OrderModule")=OrderModule
RsSvOrder.Update
RsSvOrder.Close
Set RsSvOrder=Nothing
Call Success()

End If

End Sub
'++++++++++++++++++++++++++++保存订单修改函数结束



 

'++++++++++++++++++++++++++++删除订单函数开始
Sub DelOrder
 If Session("UserName")="" Then
  Call Login
 Else 
  Set RsDel=Conn.Execute("Delete * From [Order] Where OrderId="&Request("OrderId"))
  Call Success
 End If
End Sub
'++++++++++++++++++++++++++++删除订单函数结束



 

'++++++++++++++++++++++++++++显示订单函数开始
Sub ShowOrder()

Set Rs=Server.CreateObject("Adodb.Recordset")
Sql="Select * From [Order] Where OrderId="&Request("OrderId")
Rs.Open Sql,Conn,1,1
%>
<table width="90%" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="F5F5F5" style="Border-Collapse:Collapse">
              <tr class="table_row_1"> 
                <td height="30" colspan="2" bgcolor="#cccccc"> <div align="center"><strong><font color="#ff6633">显 
                    示 项 目</font></strong></div></td>
              </tr>
              <tr class="table_row_1"> 
                <td width="20%" height="24" align="center">公司名称</td>
                <td><%=rs("OrderComname")%></td>
              </tr>
              <tr class="table_row_1"> 
                <td height="24" align="center">添加人</td>
                <td><%=rs("OrderUserName")%></td>
              </tr>
              <tr class="table_row_1"> 
                <td height="24" align="center">项目类型</td>
                <td><%=rs("OrderClass")%></td>
              </tr>
              <tr class="table_row_1"> 
                <td height="24" align="center">建站目的</td>
                <td ><%=rs("OrderAim")%></td>
              </tr>
              <tr class="table_row_1"> 
                <td height="24" align="center">建站要求</td>
                <td ><%=rs("OrderRequest")%></td>
              </tr>
              <tr class="table_row_1"> 
                <td height="24" align="center">项目简介</td>
                <td><%=rs("OrderIntro")%></td>
              </tr>
              <tr class="table_row_1"> 
                <td height="24" align="center">项目模块</td>
                <td><%=rs("OrderModule")%></td>
              </tr>
              <%If Session("UserName")<>"" Then%>
     <tr class="table_row_1">
                <td height="24" align="center">备注</td>
                <td>如果你想确认订单，请记住你订单的唯一<br>
                  账单号码为：<font color="#ff0000"><%=Rs("OrderBillNo")%></font><br>
                  <br>
                  帐单号码的作用：1 确认客户的利益不受到侵犯;<br>
                  2 确认订单的重要依据:我们将根据你提供的订单<br>
                  项目内容与帐单号码进行确认，只有在两者一致<br>
                  的情况下我们才能最后确认。</td>
              </tr>
              <%End IF%>
     <%
 Set Rs=Server.Createobject("Adodb.Recordset")
    sql="select OrderID,OrderComName from [Order] where isCheck=0 order by OrderId desc"
    Rs.CursorLocation=3
    Rs.Open Sql,Conn,1
   ArticleCount=Rs.RecordCount
 PageSize=20
    Dim Css
    Page=Request.QueryString("Page")
    If Page="" Or Page<1 Then 
        Page=1
    Else
        Page=Cint(Page)
    End If 
 I=1
 If ArticleCount Mod Cint(PageSize)=0 Then
     PageCount= ArticleCount  Cint(PageSize)
 Else
     PageCount= ArticleCount  Cint(PageSize)+1
   End If

   If Not (Rs.Bof And Rs.Eof) Then
    Rs.Movefirst
    If Page > PageCount Then Page = PageCount
    If Page<1 Then Page=1
    Rs.Move (Page-1) * Cint(PageSize)

  do while not rs.eof And I<=PageSize
  I=I+1
        If I Mod 2=0 Then 
           Css="Table_row_1"
        Else
           Css="Table_row_2"
        End If
  %>
              <%
  rs.movenext
  loop
  End If
  rs.close
  set rs=nothing
  %>
            </table>
<p align="center">
  <input name="goback" type="button" id="goback" onClick="Vbscript:history.back()" value="后 退" class="button">
</p>

<%
End Sub
'++++++++++++++++++++++++++++显示订单函数结束





'++++++++++++++++++++++++++++注销函数开始
Sub LoginOut()
 Session("UserName")=""
 Call Main()
End Sub
'++++++++++++++++++++++++++++注销函数结束
%>   
   </td>
          <td width="14">&nbsp;</td>
        </tr>
      </table>

所有的函数结束,等有了时间,把他们全部转换成纯asp的文件,另外就是觉得多次操作数据库也不方便,准备把读取数据库编译成com+,不过还不知道怎么做,得努力找找资料

转载于:https://www.cnblogs.com/yang_sy/archive/2004/08/31/38068.html