help.asp

网站源码

<%@ codepage = 936 LCID = 2052 %>
<% if Session("exemple_status") <> "login" then response.redirect "login.asp" %>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="db.asp"-->

<%
response.buffer = true

'get action
a=request.form("a")

'get fields from form

x_id = Request.Form("x_id")
x_user_id = Request.Form("x_user_id")
x_user_pwd = Request.Form("x_user_pwd")
x_lev = Request.Form("x_lev")

' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str

Select Case a
	Case "A": ' Add

		' Open record
		strsql = "SELECT * FROM [admin] WHERE 0 = 1"

		set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open strsql, conn, 1, 2

		rs.AddNew

		
tmpFld = Trim(x_user_id)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("user_id") = tmpFld
tmpFld = Trim(x_user_pwd)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("user_pwd") = tmpFld
tmpFld = x_lev
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("lev") = cInt(tmpFld)

		rs.Update
		rs.Close
		Set rs = Nothing
		conn.Close
		Set conn = Nothing
		Response.Clear
		Response.Redirect "adminlist.asp"
End Select
%>


<!--#include file="header.asp"-->

<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#336699"><tr>
                <td>&nbsp; </td>
              </tr></table>
            <table width="100%" height="310" border="0" cellpadding="0" cellspacing="0">
              <tr>
    <td><table width="73%" height="185" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td height="53"> <fieldset>
                        <legend><font color="#003399"><strong><img src="images/infoicon.gif" width="20" height="20"> 
                        </strong>欢迎登录 <font color="#FF0000"><strong><%= company %></strong></font> 网站管理后台!!!!</font></legend>
                        <table width="97%" height="267" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td height="42"><br>
<br>
·现在时间是: <strong><%= now() %></strong><br><br>

                              ·登录的帐号是:<%= session("u_id") %> 权限为:<strong>   <font color="#FF0000"><% if session("lev")=1 then Response.Write("系统管理员") else Response.Write("普通用户") %>
                           </font></strong></td>
                          </tr>
                          <tr> 
                            <td height="100">
<p class="font"><font color="#003399">·使用时注意事项:<br>
                                &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1.请确认你的登录是网管授权,未经授权的登录将视为非法登录<br>
                                &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 2.本程序的改动,将直接关系前台网站页面的内容.<br>
                                &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;3.管理员有开放帐户的能力,是本站的最高权限,请注意保管好自已的密码.</font> 
                              </p></td>
                          </tr>
                          <tr>
                            <td><font color="#003399">·</font><font color="#FF0000">如果使用过程中有什么问题,请拨技术支持电话:[phone]</font></td>
                          </tr>
                        </table>
                        </fieldset></td>
                    </tr>
                  </table></td>
  </tr>
</table>
<!--#include file="footer.asp"-->