📄 link_info_add.asp

📁 多多网店系统v3.01 完全免费可用版-功能简介: 支持多模板皮肤色切换[8套] 支持按商品特性[推荐商品/特价商品/新品分类]浏览支持按商品类别浏览支持单件商品用支付宝交易按钮直接支付订

💻 ASP

字号:

<!--#include file="admin_check.asp"-->
<%dim dbpath
dbpath="../"
%>
<!--#include file="../Conn.asp"-->
<!--#include file="../include/MyRequest.asp"-->
<%
action=my_request("action",0)
if action="save" then
   call save()
end if

sub save()
    link_info_type=my_request("link_info_type",1)
    if link_info_type=0 then link_info_detail=my_request("link_info_title",0)
    if link_info_type=1 then link_info_detail=my_request("link_info_LogoPic",0)
    link_info_url=my_request("link_info_url",0)
    link_info_IndexShow=my_request("link_info_IndexShow",1)
    ErrMsg=""
    if link_info_type="" then
    	FoundErr=True
	    ErrMsg=ErrMsg & "<li>类型不能为空！</li>"
    end if
    if link_info_url="" or link_info_url="http://" then
    	FoundErr=True
	    ErrMsg=ErrMsg & "<li>链接网址不能为空！</li>"
    end if
    if FoundErr<>True then
        Set rs= Server.CreateObject("ADODB.Recordset")
        sql="select * from link_info"
        rs.open sql,conn,1,3
        rs.addnew
        rs("link_info_type")=link_info_type
        rs("link_info_url")=link_info_url
        rs("link_info_detail")=link_info_detail
        rs("link_info_IndexShow")=link_info_IndexShow
        rs.update
        rs.close
        set rs=nothing
        call ok("您已成功添加了一条友情链接信息！","link_info_list.asp")
    else
        call WriteErrMsg(ErrMsg)
    end if
end sub
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>友情链接-添加</title>
<link rel="stylesheet" type="text/css" href="style.css">
<script src="Editor/edit.js" type="text/javascript"></script>
<script language = "JavaScript">  
function showlist(dd)
{
  if(dd=="a")
  {
   linkimg.style.display="none";
   linkimg2.style.display="";
  }
  else
  {
   linkimg.style.display="";
   linkimg2.style.display="none";
  }
}
</script>
</head>

<body>

<table cellspacing="1" cellpadding="4" width="100%" class="tableborder">
<tbody class="altbg2">
<form name="form1" action="link_info_add.asp" method="post">
<input type="hidden" name="action" value="save"> 
	<tr>
		<td colspan="2" class="header">友情链接-添加</td>
	</tr>
	<tr>
		<td>链接类型：</td>
		<td>
		<input type="radio" value="0" name="link_info_type" checked onClick='showlist("a");'>文字链接&nbsp; 
		<input type="radio" value="1" name="link_info_type" onClick='showlist("b");'>图标链接</td>
	</tr>
	<tr id="linkimg2" style='display:""'>
		<td>链接文字：</td>
		<td>
		    <input type="text" name="link_info_title" size="40"></td>
	</tr>
	<tr id="linkimg" style='display:none'>
		<td>链接图标：</td>
		<td><input type="text" name="link_info_LogoPic" size="40">
		        <input type="button" value="&gt;&gt;点此上传图标" name="action" onclick="javascript:openWin('Njj_Pic_Upload.asp?Fname=link_info_LogoPic','upload','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=yes,width=400,height=100')">
		</td>
	</tr>
	<tr>
		<td>链接网址：</td>
		<td>
		    <input type="text" name="link_info_url" size="40" value="http://"></td>
	</tr>
	<tr>
		<td>是否-首页显示：</td>
		<td>
		<input type="radio" value="0" name="link_info_IndexShow" checked>是&nbsp;&nbsp;&nbsp;
		<input type="radio" value="1" name="link_info_IndexShow">否</td>
	</tr>
	<tr>
		<td>　</td>
		<td>
		   <input type="submit" value="  提  交  " name="Submit1">&nbsp; 
		   <input type="reset" value="重置" name="B2">
		</td>
	</tr>
</form>
</tbody>
</table>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -