[e-mail]

安全性好,适用于展示和进行资源下载的个人和大型网站使用!

<!--#include file="inc/conn.asp"-->
<%
call checkadmin("skin")
Dim s_name,s_inc,s_index,s_news,s_art,s_pic,s_dj,s_down,s_book,s_other,s_user,s_link
Select Case request.querystring("go")
Case "skin_out"

set rs=server.createobject("adodb.recordset")
	rs.open "select * from [YCMS_skin]",conn,1,1
    s_name=rs("skin_name")
	s_inc=rs("skin_inc")
    s_index=rs("skin_index")
	s_news=rs("skin_news")
	s_art=rs("skin_art")
	s_pic=rs("skin_pic")
	s_dj=rs("skin_dj")
	s_down=rs("skin_down")
	s_book=rs("skin_book")
	s_other=rs("skin_other")
	s_user=rs("skin_user")
	s_link=rs("skin_link")
	rs.close
set rs=Nothing

set skinconn=server.CreateObject("ADODB.Connection")
	skinconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(request.Form("database"))
set rs=Server.CreateObject("adodb.recordset")
	rs.open "select * from [YCMS_skin]",skinconn,1,3
	rs.addnew
rs("skin_name")=s_name
rs("skin_inc")=s_inc
rs("skin_index")=s_index
rs("skin_news")=s_news
rs("skin_art")=s_art
rs("skin_pic")=s_pic
rs("skin_dj")=s_dj
rs("skin_down")=s_down
rs("skin_book")=s_book
rs("skin_other")=s_other
rs("skin_user")=s_user
rs("skin_link")=s_link
	rs.update
	rs.close
set rs=nothing
	skinconn.close
set skinconn=Nothing
	response.write"<script>alert('鐨