save_baseinf.asp

一个不错的个人商务网站的源码

<%
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/my_request.asp" -->
<!--#include file="../comm/my_lib.asp" -->
<%
dim r(27),rs,sql,istaobao,isebay,ispaipai,i,k
for i=0 to 27
r(i)=my_request("s"&i,0)
next

if r(13)="" or isnull(r(13)) then
r(13)=0
end if

if r(14)="" or isnull(r(14)) then
r(14)=0
end if

if r(15)="" or isnull(r(15)) then
r(15)=0
end if

istaobao=r(16)&"‖"&r(17)&"‖"&r(18)
isebay=r(19)&"‖"&r(20)&"‖"&r(21)
ispaipai=r(22)&"‖"&r(23)&"‖"&r(24)

response.write istaobao
sql="select Sweb_name,Surl,Slogo,Small_name,Sphone,Sfax,Semail,Saddress,Sqq,Smsn,Staobao,Sisopen,Stitleclose,Sistaobao,Sisebay,Sispaipai,Svtaobao,Svebay,Svpaipai,Saboutus,Sbeian,Sisbuy from system_setup where id=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
for k=0 to 15
rs(k)=r(k)
next
rs(16)=istaobao
rs(17)=isebay
rs(18)=ispaipai
rs(19)=leach(r(25))
rs(20)=r(26)
rs(21)=r(27)
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "AdminBase.asp"
%>