editlink.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=775 border="0" align="center" cellspacing="0" class="td1">
  <tr> 
    <td align="center" valign="middle"> 
<%
if uzhiwu=100 then '是管理员
casptblink="select * from asptblink  order by id desc"
set rlink=server.createobject("adodb.recordset")
rlink.open casptblink,conn,2,3
linkname=request.Form("linkname")
linkurl=request.Form("linkurl")
linklogo=request.Form("logo")
linkalt=request.Form("linkalt")
nologo=request.Form("nologo")
id=request.Form("id")
if id<>"" then
if CInt(id)= -1 then
rlink.addnew
     rlink("linkname")=linkname
	 rlink("linkurl")=linkurl
	 rlink("linklogo")=linklogo
	 rlink("linkalt")=linkalt
	 rlink("nologo")=nologo
rlink.update
response.redirect"editlink.asp"
else 
conn.Execute("update asptblink set linkname='"&linkname&"',linkalt='"&linkalt&"',linkurl='"&linkurl&"',linklogo='"&linklogo&"',nologo='"&nologo&"' where id="&id&"")
response.redirect"editlink.asp"
end if
end if
%>
      <table  border="0" align="center" cellspacing="0">
  <tr> 
    <td><form name="form" method="post" action="editlink.asp">
        填加友情链接：<br>
        站名
              <input type="text" name="linkname" size="8">
        网址
        <input type="text" name="linkurl">
        LOGO 
        <input type="text" name="logo">
        说明
              <input name="linkalt" type="text" size="8">
        <select name="nologo">
          <option value="0">文字链接</option>
          <option value="1">LOGO链接</option>
        </select>
		<input name="id" type="hidden" value="-1">
        <input type="submit" name="Submit" value="填加">
      </form></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
 <% do while not rlink.eof %>
  <tr>
    <td class=tdz12>
	<%
	
	Response.Write ""&rlink("linkname")&"  <a href=dellink.asp?del="&rlink("id")&">[删除友情链接]</a><br>"
	%>
</td>
  </tr>
  <tr>
          <td> 
            <form name="form" method="post" action="editlink.asp">
        站名 
              <input name="linkname" type="text" value="<%=rlink("linkname")%>" size="8">
        网址 
        <input name="linkurl" type="text" value="<%=rlink("linkurl")%>">
        LOGO 
        <input name="logo" type="text" value="<%=rlink("linklogo")%>">
        说明
              <input name="linkalt" type="text" value="<%=rlink("linkalt")%>" size="8">
        <select name="nologo">
          <option value="0">文字链接</option>
          <option value="1">LOGO链接</option>
        </select>
		<input name="id" type="hidden" value="<%=rlink("id")%>">
        <input type="submit" name="Submit" value="修改">
      </form></td>
  </tr>
  <%rlink.MoveNext
Loop
	%>
</table>
<%
else
Response.Write"非管理员不可以操作"
end if
%>
</td></tr></table>
<%
Response.Write""&asptbcopy&""
Response.Flush%>