save_xiugai_pass.asp

一个最新版的VOD网站程序

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

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

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

CALL savedata()
'CALL jilu() 
Response.Write "密码信息成功修改了！请记住您的新密码("&pass&")"

function saveData()
		'on error resume next
		dim cmdTemp
		dim InsertCursor
		dim dataconn
		Set InsertCursor = Server.CreateObject("ADODB.Recordset")
		sql = "SELECT * FROM admin WHERE adminname like '" &user&"'"
		InsertCursor.Open sql,conn , 1, 3
		if not InsertCursor.eof then 
		InsertCursor("adminname") =user
		InsertCursor("adminpass") =pass
				
		InsertCursor.Update
		InsertCursor.close
		set InsertCursor=nothing
		else 
		Response.End 
		end if
	
end function
%>