lianaddsmall.asp

admin/admin.asp是WAP的后台管理登陆页面

<%
  if session("flag")="" then
      response.redirect "adminlogin.asp"
	  response.end
  end if
%>
<%if session("flag")>1 then
response.write"<SCRIPT language=JavaScript>alert('对不起，你没有这个权限！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if%>
<!--#include file="conn.asp"-->
<link rel="stylesheet" type="text/css" href="style.css">
<table width="80%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" valign="top"> <br>
      <a href="lianManage.asp"><strong>管 理 友 情 链 接</strong></a> <br> <form name="form2" method="post" action="liansmallsave.asp" >
        <table width="350" border="0" align="center" cellpadding="0" cellspacing="2" class="border">
          <tr bgcolor="#999999" class="title"> 
            <td height="25" colspan="2" align="center"><strong>添加小类链接</strong></td>
          </tr>
<tr class="tdbg"> 
            <td width="126" height="22" bgcolor="#C0C0C0"><strong>小类序号：</strong></td>
            <td bgcolor="#E3E3E3"> <input name="nclasstop" type="text" size="10" maxlength="2"></td>
          </tr>
          <tr class="tdbg"> 
            <td width="126" height="22" bgcolor="#C0C0C0"><strong>所属大类：</strong></td>
            <td width="218" bgcolor="#E3E3E3"> 
<%
  set rs=server.createobject("adodb.recordset")
  sql="select * from Aclass where id="&request("id")
  rs.open sql,conn,3,3
  %> <select name="classid">                      
        <option selected value="<%=rs("id")%>"><%=rs("class")%></option>
    </select></td>
          </tr>
          <tr class="tdbg"> 
            <td width="126" height="22" bgcolor="#C0C0C0"><strong>链接名称：</strong></td>
            <td bgcolor="#E3E3E3"> <input name="nclass" type="text" size="20" maxlength="30"></td>
          </tr>
<tr class="tdbg"> 
            <td width="126" height="22" bgcolor="#C0C0C0"><strong>链接地址：</strong></td>
            <td bgcolor="#E3E3E3"><textarea rows="5" name="nclassurl" cols="25" class="smallarea">
</textarea></td>
          </tr>
<tr bgcolor="#FFFFFF"> 
      <td width="30%" height="22" align="right">换行方式：</td>
      <td width="70%" height="22"> 
        <select name="nclassbr" class="input">
<option value=1>使用换行</option> 
<option value=2>使用空格</option>
</select>
</td>
</tr>
          <tr class="tdbg"> 
            <td height="22" align="center" bgcolor="#C0C0C0">&nbsp; </td>
            <td height="22" align="center" bgcolor="#E3E3E3"> <div align="left"> 
                <input name="nclasson" type="hidden"  value="1">
                <input name="types" type="hidden"  value="addnclass">
                <input name="Add" type="submit" value=" 添 加 ">
              </div></td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>