www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/admin/dbybq.asp
<!--#include file="hs.asp"-->
<%
connstr1="../imgs/dbt/dbt.mdb"
set conn1=server.createobject("adodb.connection")
conn1.connectionstring="Provider = Microsoft.jet.OLEDB.4.0 ; Data Source = "& Server.Mappath ( ""& connstr1 &"" )
conn1.open
dbt="select*from dbts"
set dbts1=conn1.execute(dbt)
%>
<%
sqlyl="select ltdb,ltbq from zwltpz where ltbh='"<bh&"'"
set yl=conn.execute(sqlyl)
ltdbdm=yl("ltdb")
ltbqdm=yl("ltbq")
yl.close
set yl=nothing
%>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
</head>
<script language=vbscript>
<!--
sub mbsc
if bd1.ltdb.value=empty or bd1.ltbq.value=empty then
window.alert"顶部设置和版权信息必须填写!"
exit sub
end if
bd1.submit
end sub
sub zdy
if bd2.ltdb1.value=empty or bd2.ltbq1.value=empty then
window.alert"顶部设置和版权信息必须填写!"
exit sub
end if
bd2.submit
end sub
-->
</script>
<body topmargin=0>
<div align="center">
<table cellpadding="0" cellspacing="0" width="475" height="454" style="border: 1px solid #000000">
<tr>
<td height="55">
<p align="center"><font color="#FF0000"><span style="font-size: 20px">
<b>顶部代码与版权设置</b></span></font></p>
<p align="center"><a href="dbybq.asp?act=sc">模板生成</a>
<a href="dbybq.asp?act=dy">自定义</a> <a target="_blank" href="../dbbq.asp">
<font color="#008000">状态预览</font></a></td>
</tr>
<%if request("act")="sc" then%>
<form action="dbybq.asp"method=post name=bd1>
<input type=hidden name="tj" value="db">
<tr>
<td height="295"><span style="font-size: 12px"> 顶部图片:<select size="1" name="D1">
<%do while not dbts1.eof%>
<option selected value="<%=dbts1("id")%>"><%=dbts1("id")%></option>
<%
dbts1.movenext
loop
dbts1.close
set dbts1=nothing
conn1.close
set conn1=nothing
%>
</select> <a target="_blank" href="dbt.asp">预览</a></span><p>
<span style="font-size: 12px"> 顶部文字:<textarea rows="5" name="ltdb" cols="51"><%=ltdbdm%></textarea></span></p>
<p><span style="font-size: 12px"> 底部版权:<textarea rows="5" name="ltbq" cols="51"><%=ltbqdm%></textarea></span></p>
<p><span style="font-size: 12px"> <input type="button" value="提 交" name="B1" onclick="mbsc"></span></td>
</tr>
</form>
<%end if%>
<%if request("act")="dy" then%>
<form action="dbybq.asp"method=post name=bd2>
<input type=hidden name="tj1" value="bq">
<tr>
<td height="245"><span style="font-size: 12px"> 顶部代码:<textarea rows="5" name="ltdb1" cols="51"><%=ltdbdm%></textarea></span><p>
<span style="font-size: 12px"> 底部版权:<textarea rows="5" name="ltbq1" cols="51"><%=ltbqdm%></textarea></span></p>
<p><span style="font-size: 12px"> <input type="button" value="提 交" name="B2" onclick="zdy"></span></td>
</tr>
</form>
<%end if%>
</table>
</div>
</body>
<%
'处理顶部与版权的添加
if request("tj")<>empty then
D1="imgs/dbt/" & request("D1") &".jpg"
ltdb=scriptgl(request("ltdb"))
ltbq=scriptgl(request("ltbq"))
'生成顶部代码
ltdb="<td align=center background=" & D1 & " height=0><span style=visibility: hidden><b><font color=#800000 style=font-size:40px; text-transform: uppercase>"& ltdb &"</font></b></span></td>"
ltbq="<td align=center>"& ltbq &"</td>"
sqlsc="update zwltpz set ltdb='"<db&"',ltbq='"<bq&"' where ltbh='"<bh&"'"
conn.execute(sqlsc)
end if
if request("tj1")<>empty then
ltdb=scriptgl(request("ltdb1"))
ltbq=scriptgl(request("ltbq1"))
sqldy="update zwltpz set ltdb='"<db&"',ltbq='"<bq&"' where ltbh='"<bh&"'"
conn.execute(sqldy)
end if
dbclose
%>