save_add_admin.asp

一个最新版的VOD网站程序

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

<%
dim user,pass,pass1,meno,admin,ip,ipaddr

user     =    Request.Item ("user")
pass     =    Request.Item ("pass")
pass1    =    Request.Item ("pass1")

'Response.Write userid
'Response.End 

if user="" then
Response.Write("<script language=""JavaScript"">alert(""用户名不能为空！"");history.go(-1);</script>")
Response.End 
end if
if pass="" or pass1="" then
Response.Write("<script language=""JavaScript"">alert(""密码不能为空！"");history.go(-1);</script>")
Response.End 
end if

if pass<>pass1 then
Response.Write("<script language=""JavaScript"">alert(""密码前后不一致！"");history.go(-1);</script>")
Response.End 
end if

sql="select * from admin where adminname like '"&user&"';" 
Set rs= Server.CreateObject("ADODB.Recordset") 
'response.Write sql
'Response.End            
rs.open sql,conn,1,1            
if rs.eof then   
CALL SAVE()
else 
Response.Write("<script language=""JavaScript"">alert(""用户名已存在，请重新选择"");history.go(-1);</script>")
Response.End 
end if
rs.Close 
'CALL jilu() 
Response.Write "管理员信息成功添加了！"
function save()
Set InsertCursor = Server.CreateObject("ADODB.RecordSet")
sql = "admin"
InsertCursor.Open sql, Conn, 3, 3
'if InsertCursor.BOF and InsertCursor.EOF then
InsertCursor.addnew 
		InsertCursor("adminname") =user
		InsertCursor("adminpass") =pass
		InsertCursor.Update
        InsertCursor.Close()
        'end if
end function

%>