📄 admin_main.asp

📁 一个做得非常精美的进存销系统,可惜某些功能上做了限制．
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->

<HTML>
<HEAD>
<TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<SCRIPT language=JavaScript src="Image/js.js"></SCRIPT>
<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<script language="JavaScript">
function change(obj,i) {
he=parseInt(obj.style.height);
if (he>=80&&he<=400)
   obj.style.height=he+i+'px';
else 
   obj.style.height='80px';
}

function chk(theForm){
if (theForm.message.value == ""){
                alert("请输入个人简历!");
                theForm.message.focus();
                return (false);
        } 
}
</Script>
<BODY text=#000000>
<%
DIm mo,username,mone,ismone,id
DIm whatlevel
whatlevel  = Manage_Level(adl) 
If whatlevel<>"管理员" Then
Set mo = Conn.Execute("Select ID,User_Name,Mone,isMone From [HQ_User] Where User_Name='"&adu&"' and PassWord='"&adp&"' and Levels='"&adl&"'")
id = mo(0)
username = mo(1)
mone = mo(2)
ismone = mo(3)
Call EditMone
End if
%>

<TABLE class=tableBorder cellSpacing=0 cellPadding=0 width="98%" align=center 
border=0>
  <TBODY>
    <TR> 
      <TH class=tableHeaderText colSpan=2 height=22>系 统 信 息</TH>
    <TR> 
      <TD class=forumRow colSpan=2 height=22>&nbsp;本系统由 


gdsspt.com

 
        开发授权给商业企业使用，当前使用版本为 <font color="#FF0000">商品进存销</font> Access数据库</TD>
    </TR>
    <TR> 
      <TD class=forumRow width="50%" 
      height=23>&nbsp;&nbsp;服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</TD>
      <TD class=forumRow width="50%">&nbsp;&nbsp;脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></TD>
    </TR>
    <TR> 
      <TD class=forumRow width="50%" height=23>&nbsp;&nbsp;站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></TD>
      <TD class=forumRow width="50%">&nbsp;&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<P></P>
<P></P>
<TABLE class=tableBorder cellSpacing=0 cellPadding=0 width="98%" align=center 
border=0>
  <TBODY>
  <TR>
      <TH class=tableHeaderText colSpan=2 height=25>开 发 信 息</TH>
  <TR>
  <TR>
    <TD class=forumRow width="20%" height=23>&nbsp;&nbsp;产品开发</TD>
      <TD class=forumRow width="80%">&nbsp; gdsspt.com Name:JaManaGe(商品进存销)</TD>
    </TR>
  <TR>
    <TD class=forumRow width="20%" height=23>&nbsp;&nbsp;产品负责</TD>
      <TD class=forumRow width="80%">&nbsp;&nbsp;<FONT 
      color=blue>系统开发:Jingan QQ:23638564 Everyday QQ:298068635 Email:</FONT><a href="mailto:kpggdf@163.com">kpggdf@163.com</a></TD>
    </TR>
  <TR>
    <TD class=forumRow width="20%" height=23>&nbsp;&nbsp;关于我们</TD>
      <TD class=forumRow width="80%">&nbsp;&nbsp;<a href="http://www.gdsspt.com">http://www.gdsspt.com</a></TD>
    </TR></TBODY></TABLE>
<P></P>
<TABLE class=tableBorder cellSpacing=0 cellPadding=0 width="98%" align=center 
border=0>
  <TBODY>
    <TR> 
      <TH class=tableHeaderText colSpan=2 height=25>服 务 信 息</TH>
    <TR> 
      <TD class=forumRow width="20%" height=23>&nbsp;&nbsp;网站开发</TD>
      <TD class=forumRow width="80%">&nbsp; gdsspt.com提供程序制作，网站制作服务，有意者请联系：QQ23638564</TD>
    </TR>
    <TR> 
      <TD class=forumRow width="20%" height=23>&nbsp;&nbsp;商业版</TD>
      <TD class=forumRow width="80%">&nbsp;&nbsp;<FONT 
      color=blue>商品进存销商业服务版提供全面的技术在线支持。</FONT></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE align=center>
  <TBODY>
  <TR>
    <TD><BR>
        Copyright (c) 2004 <A href="http://www.gdsspt.com" 
      target=_blank><FONT face=Verdana, size=1 sans-serif Helvetica, 
      Arial,><B>gdsspt<FONT color=#cc0000>.Com</FONT></B></FONT></A>. All Rights 
        Reserved .<BR>
        <BR><BR></TD></TR></TBODY></TABLE></BODY></HTML>

<%Sub EditMone%>
<form name="form1" method="post" action="Mone_Edit.asp?id=<%=id%>" onSubmit="return chk(this)">
  <TABLE class=tableBorder cellSpacing=1 cellPadding=2 width="98%" align=center border=0>
    <TBODY>
      <TR> 
        <TH class=tableHeaderText colSpan=3 height=22>个人资料修改</TH>
      <TR> 
        <TD class=forumRow height=10><div align="right">姓名：</div></TD>
        <TD height=10 colspan="2" class=forumRow>&nbsp;<%=username%> <input type="hidden" name="whatlevel" value="<%=whatlevel%>"></TD>
      </TR>
      <TR> 
        <TD class=forumRow height=11><div align="right">级别：</div></TD>
        <TD height=11 colspan="2" class=forumRow>&nbsp;<%=whatlevel%></TD>
      </TR>
      <TR> 
        <TD width="32%" height=23 rowspan="2" class=forumRow><div align="right">个人简历：</div></TD>
        <%If ismone=0 Then%>
        <TD colspan="2" class=forumRow><textarea name="message" cols="50" rows="10" id="message"><%=mone%></textarea></TD>
      </TR>
      <TR> 
        <TD width="33%" class=forumRow>&nbsp;</TD>
        <td width="35%" class=forumrow><a href="javascript:change(document.all.message,-50)"><img src="Image/minus.gif" alt="缩小文本框" width="20" height="20" border="0"></a> 
          <a href="javascript:change(document.all.message,50)"><img src="Image/plus.gif" alt="放大文本框" width="20" height="20" border="0"></a></td>
        <%
Else
Response.Write "<tr><td>" & mone & "</td></tr>"
End if
%>
      </TR>
      <TR> 
        <TD height=23 colspan="3" class=forumRow><div align="center"> 
            <%If ismone=0 Then%>
            <input type="submit" name="Submit" value="修 改">
            <font color="#FF0000">(只能修改一次,修改后只有管理员才能再修改)</font> 
            <%Else%>
            <font color="#FF0000">(你的资料已修改,不能再修改!)</font> 
            <%End if%>
          </div></TD>
      </TR>
    </TBODY>
  </TABLE>
</form>
<%End Sub%>
<P></P>
</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -