📄 style.asp

📁 BBS论坛的开发和设计
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
    <tr bgcolor="#FFFFFF"> 
      <td valign="top">表格尾部内容(支持html代码)<br>
        此处表格指文章列表和论坛首页版块列表表格</td>
      <td valign="top"> <textarea name="table_Bottom" cols="52" rows="6" id="table_Bottom"></textarea> 
      </td>
    </tr>
    <tr bgcolor="#F5F5F5"> 
      <td valign="top">页面尾部内容(支持html代码)<br>
        此处内容显示在页面尾部</td>
      <td valign="top"> <textarea name="BottomString" cols="52" rows="8" id="textarea2"></textarea></td>
    </tr>
    <tr bgcolor="#F5F5F5">
      <td valign="top">版权信息显示在尾部内容上方?<br>
        选择否则版权信息显示在页面尾部内容下方 </td>
      <td valign="top"><input name="Copyright_Bottom" type="radio" value="1" checked>
        是&nbsp;&nbsp; <input name="Copyright_Bottom" type="radio" value="0">
        否</td>
    </tr>
  </table>

<div align="center"><br>
    <input name="Submit" type="button" class="form1" value="添加此风格" onClick="javascript:submit()">
  </div>
</form>
<br>
<%
End Sub
'=========================
Sub Edit()
	styleid = request.QueryString("styleid")
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select * from JBB_style where styleid="& styleid,conn,1,1
	if not rs.eof then
	stylename = rtrim(rs("stylename"))
%>
<form name="form1" method="post" action="?action=SaveEdit&styleid=<%=styleid%>">
  <table width="580" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2"><strong>修改风格样式</strong></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="188">风格名称</td>
      <td width="388"> <%
	 	if styleid = 1 then
	  		response.Write(stylename)
	 	 %> <input name="StyleName" type="hidden" id="StyleName3" value="<%=stylename%>"> 
        <%
		else
		%> <input name="StyleName" type="text" id="StyleName3" value="<%=stylename%>"> 
        <%
		End if
		%> <input name="styleid" type="hidden" id="styleid" value="<%=styleid%>"> 
      </td>
    </tr>
    <%
	if styleid <> 1 then
	%>
    <tr bgcolor="#F5F5F5"> 
      <td valign="top">是否使用自定义图片?<br>
        选择否使用论坛默认风格图片<br> </td>
      <td valign="top"> <input type="radio" name="img_path" value="1" <%if rs("img_path") then response.write"checked" end if%>>
        是&nbsp;&nbsp; <input name="img_path" type="radio" value="0" <%if not(rs("img_path")) then response.write"checked" end if%>>
        否<br>
        选择是请将自定义图片上传到:<font color="#FF0000">论坛目录/Skin/<%=styleid%>/img/</font>,中</td>
    </tr>
    <%end if%>
    <tr bgcolor="#FFFFFF"> 
      <td valign="top">CSS文件格式<br>
        书写参考:<br> <font color="#FF0000">.table</font>'主体表格<br> <font color="#FF0000">.table-title</font>'标题表格<br> 
        <font color="#FF0000">.table-light</font>'深色表格<br> <font color="#FF0000">.table-dark</font>' 
        浅色表格<br> <font color="#FF0000">.table-noColor</font>'没颜色的表格<br>
        <font color="#FF0000">.Menu-table</font>'菜单表格<br>
        <font color="#FF0000">.path-table</font>'页面路径表格<br> </td>
      <td valign="top"> <%
		if Cint(styleid) = 1 then
			Css_path = "Default"
		else
			Css_path = styleid
		End if
		if testFso <> true then
			response.write "<br><br>&nbsp;&nbsp;您的空间不支持FSO,请手动建立/编辑<font color=""#FF0000"">论坛目录/Skin/"&Css_path&"/</font>下的<font color=""#FF0000"">style.css</font>文件"
		else
			'-------------------------
			set fso = Server.Createobject("Scripting.FileSystemObject")
			path = server.MapPath("../Skin/"&Css_path&"/style.css")
			'打开文件
			set file = fso.opentextfile(path, 1,true)
			If Not File.AtEndOfStream Then
       			CssStr= CssStr&file.ReadAll
			End If
			file.close
			set file = nothing
			set fso = nothing
			FolderSub("../Skin/"&Css_path)
			FolderSub("../Skin/"&Css_path&"/img")
			'response.write CssStr
			'response.write"以下为默认风格的Css文件，您需要对其修改<br>"
		%> <textarea name="CssStr" cols="52" rows="18" id="textarea4"><%=server.htmlEncode(CssStr)%></textarea> 
        <%
		End if
		%> </td>
    </tr>
    <tr bgcolor="#F5F5F5"> 
      <td valign="top">页面头部内容(支持html代码)<br>
        此处内容显示在页面顶部</td>
      <td valign="top"> <textarea name="TopString" cols="52" rows="12" id="textarea6"><%=rtrim(rs("TopString"))%></textarea></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td valign="top">论坛菜单显示在页面头部上方?<br>
        选择否则菜单显示在页面头部内容下方 </td>
      <td valign="top"><input type="radio" name="Menu_top" value="1" <%if rs("Menu_top") then response.write"checked" end if%>>
        是&nbsp;&nbsp; <input name="Menu_top" type="radio" value="0" <%if not(rs("Menu_top")) then response.write"checked" end if%>>
        否</td>
    </tr>
    <tr bgcolor="#F5F5F5"> 
      <td valign="top">表格头部内容(支持html代码)<br>
        此处表格指文章列表和论坛首页版块列表表格</td>
      <td valign="top"> <textarea name="table_Top" cols="52" rows="6" id="textarea7"><%=rtrim(rs("table_Top"))%></textarea></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td valign="top" bgcolor="#FFFFFF">表格尾部内容(支持html代码)<br>
        此处表格指文章列表和论坛首页版块列表表格</td>
      <td valign="top"> <textarea name="table_Bottom" cols="52" rows="6" id="textarea8"><%=rtrim(rs("table_Bottom"))%></textarea> 
      </td>
    </tr>
    <tr bgcolor="#F5F5F5"> 
      <td valign="top">页面尾部内容(支持html代码)<br>
        此处内容显示在页面尾部</td>
      <td valign="top"> <textarea name="BottomString" cols="52" rows="8" id="textarea9"><%=rtrim(rs("BottomString"))%></textarea></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td valign="top">版权信息显示在尾部内容上方?<br>
        选择否则版权信息显示在页面尾部内容下方 </td>
      <td valign="top"> 
        <input name="Copyright_Bottom" type="radio" value="1" <%if rs("Copyright_Bottom") then response.write"checked" end if%>>
        是&nbsp;&nbsp; <input name="Copyright_Bottom" type="radio" value="0" <%if not(rs("Copyright_Bottom")) then response.write"checked" end if%>>
        否</td>
    </tr>
  </table>
  <div align="center"><br>
    <input name="Submit" type="button" class="form1" value="确定修改" onClick="javascript:submit()">
  </div>
</form>
<br>
<%
	End if
	rs.close
	set rs = Nothing
End Sub
'=========================
Sub list()
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select styleid,stylename from JBB_style order By styleid asc",conn,1,1
	if Not(rs.eof and rs.bof) then
%>
<br>
<table width="319" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
  <tr bgcolor="#EFEFE7"> 
    <td width="212"><strong>风格名称</strong></td>
    <td width="92"> 
      <div align="center"><strong>管理</strong></div></td>
  </tr>
  <%
	for i = 1 to rs.recordCount
	%>
  <tr bgcolor="#FFFFFF"> 
    <td><%=rtrim(rs(1))%></td>
    <td> <%
	if rs(0) <> 1 then
	%>
      [<a href="?action=Edit&styleid=<%=rs("styleid")%>">编辑</a>][<a href="?action=Del&styleid=<%=rs("styleid")%>">删除</a>] 
      <%
	else
	%>
      [<a href="?action=Edit&styleid=<%=rs("styleid")%>">编辑</a>] 
      <%
	End if
	%></td>
  </tr>
  <%
	rs.MoveNext
	Next
	%>
</table>
<br>

<%
	End if
	rs.close
	set rs = Nothing
End Sub
set conn = nothing
%>
</body>
</html>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -