configsave.asp

计算器源码

<!--#include file="conn.asp"-->
<% 
   dim rs3 
   dim sql3
    
   set rs3=server.CreateObject("adodb.recordset")
       sql3="select * from admin"
	   rs3.open sql3,conn,3,2
   admin=left(trim(request.Form("admin")),14)
   password=left(trim(request.Form("password")),14)
   logo=request.Form("logo")
   guestbookname=left(trim(request.Form("guestbookname")),14)
   sitehomepage=request.Form("sitehomepage")
   pagesize=request.Form("pagesize")
if admin="" or password="" then
admin="admin"
password="admin"
end if
if logo="" then
logo="logo/logo1.gif"
end if
if guestbookname="" then
guestbookname="蓝水晶" 
end if
if sitehomepage="" then
sitehomepage="#"
end if
if pagesize="" then
pagesize="10"
end if
   
   rs3("admin")=admin
   rs3("password")=password
   rs3("logo")=logo
   rs3("guestbookname")=guestbookname
   rs3("sitehomepage")=sitehomepage
   rs3("pagesize")=pagesize
   rs3.update
   rs3.close
set rs3=nothing
   conn.close
set conn=nothing
   response.redirect "index.asp"
   response.End
%>