添加用户模板

<% dim action,add action=trim(request("action")) add=trim(request.QueryString("add")) if add="next" then call addskin2() elseif add="first" then call addskin1() end if if action="saveconfig1" then call saveconfig1() elseif action="saveconfig2" then call saveconfig2() end if sub saveconfig1() dim rs,sql dim temp,addid set rs=server.CreateObject("adodb.recordset") sql="select * from oblog_userskin " rs.open sql,conn,1,3 rs.addnew rs("userskinname")=trim(request("userskinname")) rs("skinauthor")=trim(request("skinauthor")) rs("skinmain")=request("skinmain") 'rs("skinshowlog")=request("skinshowlog") rs.update set rs=conn.execute("select max(id) from oblog_userskin") addid=rs(0) rs.close set rs=nothing 'call closeconn response.Redirect "admin_adduserskin.asp?add=next&id="&addid end sub sub saveconfig2() dim rs,sql,id id=request("id") set rs=server.CreateObject("adodb.recordset") sql="select * from oblog_userskin where id="&id rs.open sql,conn,1,3 rs("skinshowlog")=request("skinshowlog") rs.update rs.close set rs=nothing 'call closeconn response.Write "添加模板成功！" end sub sub addskin1()%>

添加用户模板(第一步)
模板名称： 作者：
添加主模板(模板标记帮助)

<%end sub sub addskin2()%>

添加用户模板(第二步)
添加副模板(模板标记帮助)
">

<%end sub%>