addcss.asp

可以做论坛

<%@ Language=VBScript %> 
<% Response.Buffer = True %>
<!--#include file="top.asp"-->
<!--#include file="gongneng.asp"-->
<!--#include file="admingongneng.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="sysinfo.asp"-->

<table width="99%" border="0" align="center" cellspacing="0" class="120b">
  <tr> 
    <td align="center" valign="middle"> 
<%
if uzhiwu=100 then '是管理员
casptblink="select * from css"
set rlink=server.createobject("adodb.recordset")
rlink.open casptblink,conn,2,3
css=request.Form("css")
cssname=request.Form("cssname")
id=request.form("id")
if id<>"" then
if CInt(id)=0 then
rlink.addnew
     rlink("css")=css
	 rlink("cssname")=cssname
	 rlink.update	
response.redirect"addcss.asp"
else
conn.Execute("update css set css='"&css&"',cssname='"&cssname&"' where idc="&id&"")
response.redirect"addcss.asp"
end if
end if
%>
      <table  border="0" align="center" cellspacing="0" >
        <tr> 
          <td><form name="form" method="post" action="addcss.asp">
              填加样式：<br>
              填加样式名称 
              <input type="text" name="cssname" size="10">
              文件名（不带后缀名） 
              <input type="text" name="css">
              <input name="id" type="hidden" value="0">
              <input type="submit" name="Submit" value="填加">
            </form></td>
        </tr>
      </table><br>
	  <% do while not rlink.eof %>
      <table  border="0" cellspacing="0">
        <tr>
          <td><form name="form" method="post" action="addcss.asp">
              样式名称
              <input name="cssname" type="text" value="<%=rlink("cssname")%>" size="10">
              文件名（不带后缀名） 
              <input name="css" type="text" value="<%=rlink("css")%>">
              <input name="id" type="hidden" value="<%=rlink("idc")%>">
              <input type="submit" name="Submit2" value="修改">
              <a href="system.asp?css=<%=rlink("css")%>" target="_self">使用</a> 
            </form></td>
        </tr>
      </table>
	  <%rlink.MoveNext
Loop
	%>
      <%
else
Response.Write"非管理员不可以操作"
end if
%>
</td></tr></table>
<%
Response.Write"<table width=99% border=0 align=center cellspacing=0 class=tableguang1><tr> <td class=biaotibg>&nbsp;</td></tr></table>"
Response.Write""&asptbcopy&""
Response.Flush%>