savezl.asp

好！由此可以引申出另一快速恢复多系统启动选单的方法：就是利用Ghost克隆工具

<!--#include file="conn.asp"-->
<%
dim user
user=request.form("user")
if session(user&"gzl")<>"true" then
response.redirect "error.asp?errorid=1"
end if

dim sql
dim rs
dim shenfen
dim password1
dim password2
dim pagename
dim url
dim currenttype
dim name
dim email
dim pic
dim note
dim i

shenfen=request.form("shenfen")
password1=request.form("text2")
password2=request.form("text3")
pagename=request.form("text4")
url=request.form("text5")
currenttype=request.form("select")
name=request.form("text6")
email=request.form("text7")
pic=request.form("text8")
note=request.form("text9")

if password1<>password2 then
 response.redirect "error.asp?errorid=2"
end if
if len(password1)>8 then
 response.redirect "error.asp?errorid=3"
end if 
if len(pagename)>8 then
 response.redirect "error.asp?errorid=4"
end if 

for i=1 to request.form.count
if request.form(i)="" then
 response.redirect "error.asp?errorid=5"
end if
next

if len(note)>100 then
 response.redirect "error.asp?errorid=14"
end if 

set rs=server.createobject("adodb.recordset")
if shenfen="dsmember" then
  sql="select * from lm where pass=false and username='" & user & "'" 
elseif shenfen="member" then
  sql="select * from lm where pass=true and username='" & user & "'" 
end if
rs.open sql,conn,1,3
rs("password")=password1
rs("pagename")=pagename
rs("url")=url
rs("type")=currenttype
rs("name")=name
rs("email")=email
rs("pic")=pic
rs("note")=note
rs.update
response.redirect "index.asp"
rs.close
%>