admin.asp

来自「修正的自由领域投票系统2.0 支持文件上传」· ASP 代码 · 共 84 行

ASP
84 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="const.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>管理员登录</title>
</head>
<body><%Function getcode1()
	Dim test
	On Error Resume Next
	Set test=Server.CreateObject("Adodb.Stream")
	Set test=Nothing
	If Err Then
		Dim zNum
		Randomize timer
		zNum = cint(8999*Rnd+1000)
		Session("GetCode") = zNum
		getcode1= Session("GetCode")		
	Else
		getcode1= "<img src=""getcode.asp"">"		
	End If
End Function
%>
<div align="center"><form name="winstepsform" method="post" action="che_adminlogin.asp" autocomplete=off>
      <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="300" height="165" bordercolorlight="#DBDBDB" bordercolordark="#000000" >
        <tr> 
          <td width="100%" height="165" valign="top"><table width="367" height="22" border="1" cellpadding="0" cellspacing="0" bordercolor="#99FF99" bordercolorlight="#FFFFFF" bordercolordark="#A0A0A0" bgcolor="#FFCCCC" style="border-collapse: collapse">
              <tr> 
                <th height="25" width="365" valign="middle" align="center" bgcolor="#33CC00" ><font color = white ><b><%=schoolvote%>后台管理系统</b></font></th>
              </tr>
              <tr> 
                <td height="100" width="365" valign="top"> <table border="0" cellspacing="5" cellpadding="4" width="95%" align="center">
                    <tr> 
                      <td><fieldset>
                        <legend>管理登录</legend>
                        <br>
                        <table border="0" cellspacing="0" cellpadding="0" width="95%" align="center" >
                          <tr > 
                            <td align=center>用户名：</td>
                            <td>
							  <div align="left">
							    <input name="admin" id="admin" size="15" maxlength="50" style="font-weight: 700">
					        </div></td>
                          </tr>
                          <tr> 
                            <td align=center>密　码：</td>
                            <td>
							  <div align="left">
							    <input name="password" type="password" id="password" size="15" maxlength="50" style="font-weight: 700">
					        </div></td>
                          </tr>
                          <tr> 
                            <td align=center>附加码：</td>
                            <td><div align="left">
                              <input name="mofei"  id="mofei" size="15" maxlength="10" style="font-weight: 700">   
                              <%=getcode1()%></div></td>
                          </tr>
                        </table>
                        <br>
                      </fieldset></td>
                    </tr>
                    <tr> 
                      <td> <table border="0" cellspacing="0" cellpadding="0" width="95%" align="center">
                          <tr> 
                            <td width="100%" colspan="4" align="right"><input name="action2" type="hidden" id="action22" value="chklogin"> 
                              <input name="submit" type="submit" class="buttons" value="登录"> 
                              &nbsp;&nbsp; <input type="button" name="Submit22" value="取消"  onClick="javascript:window.location.href='./index.asp'"> 
                            </td>
                          </tr>
                      </table></td>
                    </tr>
                    <tr> 
                      <td></td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table>
 </form></div>
</body>
</html>

admin.asp - 源码说明

本页面展示了「修正的自由领域投票系统2.0 支持文件上传」中的 admin.asp 源码文件，采用 ASP 编程语言编写，共 84 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与2.0相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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