friendlinkadd.asp

东旭网络问卷调查系统 v2.4 很好用的大家试试看

<!--#include file="../Include/Config.asp"-->
<link rel="stylesheet" href="../Css/Admin.css" type="text/css" />
<script language="JavaScript" src="../Js/Form.js"></script>
<%
dim action,Link_info,Link_name,Link_imgurl,Link_url,sql
action=request.QueryString("action")
if action="add" then
Link_info=request.Form("Link_info")
Link_name=request.Form("Link_name")
Link_imgurl=request.Form("Link_imgurl")
Link_url=request.Form("Link_url")
sql="select * from FriendLink"
rs.open sql,conn,1,3
rs.addnew
rs("Link_info")=Link_info
rs("Link_name")=Link_name
rs("Link_imgurl")=Link_imgurl
rs("Link_url")=Link_url
rs("Link_state")="True"
rs("Link_addtime")=now()
rs.update
rs.close
call ShowAlert("添加成功","FriendLinkAdmin.asp")
else
%>
<form method="post" name="form1" action="?action=add" onsubmit="return CheckAdminRegForm();">
<table width="585" border="0" cellspacing="0" cellpadding="0" class="table">
  <tr>
    <th>友情链接添加</th>
    <th>&nbsp;</th>
    <th>&nbsp;</th>
  </tr>
  <tr>
    <td width="115">链接地址:</td>
    <td width="208"><input type="text" name="Link_url" size="30"></td>
    <td width="261">*必填项目，请以http://开关</td>
  </tr>
  <tr>
    <td>链接名称:</td>
    <td><input type="text" name="Link_name" size="15"/></td>
    <td>*必填项目</td>
  </tr>
  <tr>
    <td>网站LOGO地址:</td>
    <td><input name="Link_imgurl" size="30"/></td>
    <td>*必填项目</td>
  </tr>
  <tr>
    <td>链接备注:</td>
    <td><textarea name="Link_info" cols="40" rows="4"></textarea></td>
    <td>*链接备注备注</td>
  </tr> <tr>
    <td>&nbsp;</td>
    <td><div id="button"><input name="submit"  type="submit"value="添加"/><input name="reset" type="reset" value="重置"/></div></td>
    <td>&nbsp;</td>
  </tr>
</table>
</form>
<%end if%>