link.asp

电子商务网络购物系统

<!--#include file="conn.asp" -->
<%
select case Request("menu")

case "link"
link

case "addlink"
addlink

case "dellink"
dellink

case "note"
note

case "addnote"
addnote

case "delnote"
delnote

end select

sub link
%>

<form name="linkform" method="post" action=?menu=addlink>
  <table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center"><font size="5"><b>联盟论坛管理</b></font></td>
</tr><br>

  <tr>
      <TD height="40" align="center" class="smtext"> <a href="menu.asp" target="_self"><font size="1">返回到管理主菜单</font></a> 
      </TD>
    </tr>
  <tr><td align="center">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="26%" class="text" align="right">论坛名称：</td>
            <td width="74%"><input name="name" type="text" value="论坛名称" size="30"></td>
          </tr>
          <tr> 
            <td height="18" class="text" align="right">论坛 URL：</td>
            <td><input name="url" type="text" value="http://" size="30"></td>
          </tr>
          <tr> 
            <td class="text" align="right">图标 URL：</td>
            <td><input name="logo" type="text" value="http://" size="30"></td>
          </tr>
          <tr> 
            <td valign="top" class="text" align="right">论坛简介：</td>
            <td> <textarea name="intro" cols="29" rows="3">简介</textarea></td>
          </tr>
          <tr> 
            <td>&nbsp;</td>
            <td><input type="submit" name="Submit" value="确定"> <input name="reset" type="reset" id="reset" value="清除"></td>
          </tr>
        </table>
      </td></tr>
	  <tr>
      <td align="center" valign="bottom" ><font size="2"><br/>联盟论坛列表 </td>
  </tr>
    <tr>
      <td><br/><%
strSQL="select id,name,intro,logo,url from timeslink order by ID"
rsConn.Open strSQL,adoCon
do while not rsConn.eof
response.write "<a title='"&rsConn("name")&""&chr(10)&""&rsConn("intro")&"' href="&rsConn("url")&" target=_blank><img src="&rsConn("logo")&" border=0 width=88 height=31></a><a href=?menu=dellink&id="&rsConn("id")&">删除</a>&nbsp;"
rsConn.movenext
loop
rsConn.close
end sub

sub addlink
rsConn.Open "timeslink",adoCon,1,3
rsConn.addnew
rsConn("name")=Request("name")
rsConn("logo")=Request("logo")
rsConn("url")=Request("url")
rsConn("intro")=Request("intro")
rsConn.update
rsConn.close
link
end sub

sub dellink
strSQL="delete from timeslink where id="&Request("id")&""
adoCon.execute(strSQL)
link
end sub
%></td>
    </tr>
  </table>
  </form>

  <% 
sub note
%>
<br/>
<form name="noteform" method="post" action=?menu=addnote>
    <table align="center" width="400" border="0" cellspacing="0" cellpadding="0">
      <tr> 
        <td colspan="2" align="center"><font size="4">发布公告<br></font></td>
      </tr>
      <tr>
        <td colspan="2" class="text" align="center" height="50"><a href="menu.asp" target="_self"><font size="1">返回到管理主菜单</font></a></td>
      </tr>
      <tr>
        <td width="38%" class="smtext" align="right">标题：</td>
        <td width="62%"><input name="strtitle" type="text" id="strtitle"></td>
      </tr>
      <tr> 
        <td class="smtext" align="right">内容：</td>
        <td><textarea name="strcontent" rows="4" id="strcontent"></textarea></td>
      </tr>
      <tr> 
        <td></td>
        <td><input name="Submit" type="submit" id="Submit2" value="发送"> <input type="submit" name="reset" value="清除"></td>
      </tr>
    <tr><td colspan="2">

  
    <%
strSQL="select id,title from timesnote order by id"
rsConn.Open strSQL,adoCon
do while not rsConn.eof 
response.Write(""&rsConn("title")&"<a href=?menu=delnote&id="&rsConn("id")&">删除</a><br/><br/>")
rsConn.movenext
loop
rsConn.close

end sub
%>
	</td></tr></table></form>
<%
sub addnote
rsConn.Open "timesnote",adoCon,1,3
rsConn.Addnew
rsConn("title")=Request("strtitle")
rsConn("content")=Request("strcontent")
rsConn("dtm")=now()
rsConn("sender")=""& strUsername &""
rsConn.update
rsConn.close
note
end  sub

sub delnote
strSQL="delete from timesnote where id="&Request("id")&""
adoCon.execute(strSQL)
note
end sub
%>