?? bs_admin_add.asp
字號:
<!--#include file="bsconfig.asp"-->
<!--#include file="inc/md5.asp"-->
<%
'=========================================================
'
'產(chǎn)品名稱: 公司(企業(yè))網(wǎng)站管理系統(tǒng)(簡稱:www.web300.cn)
'版權所有:www.web300.cn
'程序制作:QQ812256@hotmail.com
'聯(lián)系方式:QQ 812256
'Copyright 2006-2008 www.web300.cn - All Rights Reserved.
'
'========================================================
%>
<%
password=replace(trim(Request("pwd1")),"'","")
password=md5(password)
set rs=server.createobject("adodb.recordset")
sqltext="select * from Bs_Admin where UserName='" & request.form("UserName") & "'"'or RealName='" & request.form("realname") & "'and PassWord='" & password & "'"
rs.open sqltext,conn,1,1
'查找數(shù)據(jù)庫,檢查此管理員是否已經(jīng)存在
if rs.recordcount >= 1 then
if rs("UserName")=request.form("UserName") then
%>
<script language='javascript'>alert ("此管理員帳號已經(jīng)存在,請選用其它名稱!"); location='Bs_Admin.asp';</script>
<%
response.end
rs.close
end if
end if
set rs=server.createobject("adodb.recordset")
sqltext="select * from Bs_Admin"
rs.open sqltext,conn,3,3
'添加一個管理員帳號到數(shù)據(jù)庫
rs.addnew
rs("UserName")=request.form("UserName")
rs("RealName")=request.form("RealName")
rs("PassWord")=password
rs.update
Response.Redirect "Bs_Admin.asp"
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -