admin_loadskin.asp

品泡女人香XI8.NET文章管理系统的源码

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/DvADChar.asp" -->
<%Head()%>
<script language="JavaScript">
<!--
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall'){
	e.checked = form.chkall.checked;
	}
   }
  }
//-->
</script>
<table border="0" cellspacing="1" cellpadding="5" align=center width="95%" class="tableBorder">
<tr>
<th colspan="3" align="center" ID="TableTitleLink"><a href=?>论坛模版导出功能</a> | <a href=?action=load>论坛模版导入功能</a></th>
</tr>
<tr>
<td class="forumrow">
注意<br>
１，确认模版数据库名正确；<br>
２，如模版数据库放在skin目录下，即填写：Skins/Dv_skin.mdb；<br>
３，模版数据库内备份的表名为Dv_Style,请不要更改；<br>
４，模版数据包括论坛ＣＳＳ设置，与及所有论坛图片设置．
</td>
</tr>
</table><br>
<%
Dim admin_flag
Dim skid,sname,act,mdbname,StyleConn,SucMsg
admin_flag=",21,"
If not Dvbbs.master or instr(","&session("flag")&",",admin_flag)=0 Then
	Errmsg=ErrMsg + "<BR><li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登录</a>后进入。<br><li>您没有管理本页面的权限。"
	dvbbs_error()
Else
	If Request("action")="inputskin" Then
		Call inputskin()
	ElseIf Request("action")="loadskin" Then
		Call loadskin()
	ElseIf Request("action")="load" Then
		Call load()
	ElseIf Request("action")="rename" Then
		Call rename()
	ElseIf Request("action")="savenm" Then
		Call savenm()
	ElseIf Request("action")="CreatMdb" Then
		Call CreateStyleMdb()
	ElseIf Request("action")="DelFields" Then
		Call DelFields()
	Else
		Call MAIN()
	End If
End If
If Errmsg<>"" Then dvbbs_error()
If IsObject(StyleConn) Then
	StyleConn.close
	Set StyleConn=Nothing
End IF
Call Footer()

Sub MAIN()
If Request("action")="loadthis" Then
    sname="导入"
    act="loadskin"
    mdbname=Dvbbs.Checkstr(trim(Request.form("skinmdb")))
    If mdbname="" Then
		Errmsg=ErrMsg + "<li>请填写导出模版保存的表名"
		Exit Sub
	End If
Else
	sname="导出"
	act="inputskin"
End If
%>
<table border="0" cellspacing="1" cellpadding="5" align=center width="95%" class="tableBorder">
<tr><th width="100%" colspan="4"><%=sname%>论坛模版列表</th></tr>
<tr>
<td width="10%"  align="center" class="forumrow">序号</td>
<td width="65%"  align="center" class="forumrow">模版名称</td>
<td width="20%"  align="center" class="forumrow">操作</td>
<td width="5%"  align="center" class="forumrow">选择</td>
</tr>
<form action="?action=<%=act%>" method=post name=even>
<%
If act="loadskin" Then
	SkinConnection(mdbname)
	set Rs=StyleConn.Execute("select id,StyleName from Dv_Style order by id ")
Else
	set Rs=Dvbbs.Execute("select id,StyleName from Dv_Style order by id ")
End If
	do while not Rs.eof
%>
<tr>
	<td class="forumrow"><%=Rs("id")%></td>
	<td class="forumrow"><%=Rs("StyleName")%></td>
	<td class="forumrow" align=center>
	<a href="?action=rename&act=<%=act%>&skid=<%=Rs("id")%>&mdbname=<%=mdbname%>" >改名</a>
	<%If act<>"loadskin" Then
	Response.Write " | <a href=""admin_template.asp?action=manage&mostyle=编 辑&StyleID="&Rs("id")&""" >编辑</a>"
	End If %>
	</td>
	<td class="forumrow" align=center><input type="checkbox" name="skid" value="<%=Rs("id")%>"></td>
</tr>
<%	Rs.movenext
	loop
	Rs.close:Set Rs=Nothing
%>
<tr>
<td colspan="4" align=center class="forumRowHighlight">
<%=sname%>的数据库：<input type="text" name="skinmdb" size="30" value="Skins/Dv_skin.mdb">
<input type="submit" name="submit" value="<%=sname%>">
<input type=submit name=Submit value=删除  onclick="{if(confirm('注意：所删除的模版将不能恢复！')){this.document.even.submit();return true;}return false;}">  <input type=checkbox name=chkall value=on onclick="CheckAll(this.form)">全选</td>
</tr>
</form>
</table>
<% 
End Sub

Sub SkinConnection(mdbname)
On Error Resume Next 
	Set StyleConn = Server.CreateObject("ADODB.Connection")
	StyleConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdbname)
	If Err.Number ="-2147467259"  Then 
		Errmsg=ErrMsg + "<li>"&mdbname&"数据库不存在。"
		Dvbbs_error()
		Response.end
	End If
End Sub

Sub inputskin()
Dim TempRs
	skid=Dvbbs.checkstr(Request("skid"))
   	mdbname=Dvbbs.Checkstr(Trim(Request.form("skinmdb")))
If skid="" or Isnull(skid) or Not IsNumeric(Replace(Replace(skid,",","")," ","")) Then
	Errmsg=ErrMsg + "<li>您还未选取要导出的模版，或参数有错误！"
	Exit Sub
End If
If mdbname="" Then
	Errmsg=ErrMsg + "<li>请请填写导出模版数据库名"
	Exit Sub
End If

If Request("submit")="删除" Then
	If instr(","&skid&",",","&Dvbbs.cachedata(17,0)&",") Then 
		Errmsg=ErrMsg + "<BR><li>本模板是默认模版，不允许删除。"
		Exit Sub
	End If
	Set Rs=Dvbbs.Execute("select Count(*) From [Dv_Board] Where sid in ("&skid&")")
	If Rs(0)>0 Then
		Set Rs=Nothing 
		Errmsg=ErrMsg + "<BR><li>本模板尚有分论坛在使用，不能删除。"
		Dvbbs_error()
	End If
	Set rs=Nothing 
	Dvbbs.Execute("Delete From [Dv_Style] Where ID in ("&skid&")")
	Dv_suc("成功删除模板。")
	Dvbbs.DelCahe("Templateslist")
	'删除该模板所有页面缓存
	Set Rs=Dvbbs.Execute("Select Top 0 * From [Dv_Style]")
	For i=2 to Rs.Fields.Count-1
		Dvbbs.DelCahe(Rs(i).Name&skid)	
	Next
	Dvbbs.DelCahe("BbsListTop"&skid)
	Set Rs=Nothing
Else
	SkinConnection(mdbname)
	ChkSkinMDB()
	If Errmsg<>"" Then Exit Sub
	set Rs=Dvbbs.Execute("select * from Dv_Style where id in ("&skid&") order by id ")
	If Rs.EOF Or Rs.BOF Then
		Errmsg=ErrMsg + "<BR><li>无法取出源模版数据"
		Dvbbs_error()
		Exit Sub
	End If
	Dim InsertName,InsertValue
	Do while not Rs.eof
	InsertName=""
	InsertValue=""
	For i = 1 to Rs.Fields.Count-1
		InsertName=InsertName & Rs(i).Name
		InsertValue=InsertValue & "'" & Dvbbs.checkStr(Rs(i)) & "'"
		If i<> Rs.Fields.Count-1 Then 
			InsertName	= InsertName & ","
			InsertValue	= InsertValue & ","
		End If
	Next
	StyleConn.Execute("insert into [Dv_Style] ("&InsertName&") values ("&InsertValue&") ")
	'StyleConn.Execute("Update [Dv_Style] set "&SQLSTR&" where ID="&SkinMdbID)
	Rs.movenext
	loop
	Rs.close
	set Rs=nothing
	Dv_suc(SucMsg&"<li>数据导出成功！")
End If
End Sub

Sub Load()
%>
<form action="?action=loadthis" method=post>
<table border="0"  cellspacing="1" cellpadding="5" height="1" align=center width="95%" class="tableBorder">
<tr><th colspan="2">导入模版数据</th></tr>
<tr>
<td width="20%" class="forumrow">导入模版数据库名：</td>
<td width="80%" class="forumrow"><input type="text" name="skinmdb" size="30" value="Skins/Dv_skin.mdb"></td>
</tr>
<tr><th colspan="2"><input type="submit" name="submit" value="下一步"></th></tr>
</table></form>
<%
End Sub

Sub loadskin()
Dim tRs
skid=Dvbbs.checkstr(Request("skid"))
mdbname=Dvbbs.Checkstr(trim(Request.form("skinmdb")))
If skid="" or isnull(skid) or Not Isnumeric(Replace(Replace(skid,",","")," ","")) Then
	Errmsg=ErrMsg + "<BR><li>您还未选取要导入的模版"
	Exit Sub
End If
If mdbname="" Then
	Errmsg=ErrMsg + "<BR><li>请填写导入模版数据库名"
	Exit Sub
End If
SkinConnection(mdbname)
If Request("submit")="删除" Then
	StyleConn.Execute("Delete from Dv_Style where id in ("&skid&")")
	Dv_suc("删除成功。")
Else
ChkSkinMDB()
if Errmsg<>"" Then Exit Sub
Dim InsertName,InsertValue
Set TRs=StyleConn.Execute(" select * from Dv_Style where id in ("&skid&")  order by id ")
Do while not TRs.eof
InsertName=""
InsertValue=""
	For i = 1 to TRs.Fields.Count-1
		InsertName=InsertName & TRs(i).Name
		InsertValue=InsertValue & "'" & Dvbbs.checkStr(TRs(i)) & "'"
		If i<> TRs.Fields.Count-1 Then 
			InsertName	= InsertName & ","
			InsertValue	= InsertValue & ","
		End If
	Next
Dvbbs.Execute("insert into [Dv_Style] ("&InsertName&") values ("&InsertValue&") ")
TRs.movenext
loop
TRs.close
set Rs=nothing
set TRs=nothing
Dv_suc("数据导入成功！")
Dvbbs.DelCahe("Templateslist")
End If

End Sub

'模板改名
Sub rename()
Dim sRs