⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 bookmark.asp

📁 这是一个非常好的留言版程序
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/setup.asp"-->
<% 
 dim FromUrl
 if isymzc=0 then '是否可以匿名
	 if UserID="" or UserID=null then
				response.write"<SCRIPT language=JavaScript>alert('对不起您还没登陆,请登陆后再使用!');"
				response.write"javascript:location.href='login.asp?toURL=icollect';</SCRIPT>"
				response.end
	 end if
 end if
 logout=Request.form("logout")
 if logout="y" then
 	Title=Request.form("Title")
 	FromURL=Request.form("FromURL")
 	Intro=Request.form("Intro")
 	Response.Cookies("1zhaiID")=""
 end if
%>
<html>
<head>
<title><%=SiteName%>_设计网摘·网络书签·收藏夹</title>
<meta http-equiv=content-type content="text/html; charset=gb2312">
<link href="css/css.css" rel="stylesheet" type="text/css" />
<style>
<!--
.border1 {
	border-right: #d4d4d4 1px dashed; border-top: #d4d4d4 1px dashed; border-left: #d4d4d4 1px dashed; border-bottom: #d4d4d4 1px dashed
}
body {background-color:#FFFFFF;}
-->
</style>

<script language="javascript">
function selectTag(obj, index)
{
	if (document.all.XSort.value.indexOf(obj.options[index].value) < 0)
	{
		if (obj.options[index].value != "\"0\"")
		{
			document.all.XSort.value += " " + obj.options[index].value;
		}
	}
}
</script>
<script language=javascript>
function checkForm(this_form)
{
	if (this_form.Title.value == '')
    {
		alert("标题不能为空, 请重新输入!");
		this_form.Title.focus();		
		return false;
    }

	if (this_form.FromURL.value == '')
    {
		alert("网址不能为空, 请重新输入!");
		this_form.FromURL.focus();		
		return false;
    }

	str = this_form.Title.value;
	len = str.length;	
	
	var tt= "";
	if (str != '')
	{
		var i=0;
		do
		{
			var c = str.substr(i, 1);
			if (c != " ")
			{
				tt += c;
				
				//return false;
			}
		}while(++i < len);
	}	
	
	var length=this_form.Title.value.length;
	if (this_form.Title.value!="")
	{	
		for(i=0;i<this_form.Title.value.length;i++)
		{
			if(this_form.Title.value.charCodeAt(i)>255)
			{
				length++;
			}
		}
		if (length > 100)
		{
			alert ("标题50个汉字之内,请重新输入");
			this_form.Title.focus();			
			return false;
		}
	}
	
	length=this_form.Intro.value.length;
	if (this_form.Intro.value!="")
	{	
		for(i=0;i<this_form.Intro.value.length;i++)
		{
			if(this_form.Intro.value.charCodeAt(i)>2555)
			{
				length++;
			}
		}
		if (length > 10000)
		{
			alert ("简介200个汉字之内,请重新输入");
			this_form.Intro.focus();						
			return false;
		}
	}
	return true;
}
</script>
<script language="JavaScript">
<!--
var Href,Title,Url,Cento;
<%
if logout<>"y" then 
%>
Href=document.location.href;
var re;
re=new RegExp("#t=(.[^&]*)","ig");
if(re.test(Href)){
	re.exec(Href);
	Title=unescape(RegExp.$1);
}else{
	Title="";
}

re=new RegExp("&u=(.[^&]*)","ig");
if(re.test(Href)){
	re.exec(Href);
	Url=unescape(RegExp.$1);
	re=new RegExp("^(.[^#]*)","ig");
	if(re.test(Url)){
		re.exec(Url);
		Url=RegExp.$1;
	}
}else{
	Url="";
}

re=new RegExp("&c=(.[^&]*)","ig");
if(re.test(Href)){
	re.exec(Href);
	Cento=unescape(RegExp.$1);
}else{
	Cento="";
}
<%
else
%>
Title="<%=Title%>";
Url="<%=FromUrl%>";
Cento="<%=Intro%>";
<%
end if
%>
//-->
</script>
</head>

<body topmargin="0">
<form name="form1" method="POST" action="dzhaiok.asp" onSubmit="return checkForm(this)">
<div align="center" style="border-style:solid; border-color:#B3BDC4; border-width:1px; width:480px;margin-right: auto;
margin-left: auto; padding:0px;">
<table height=20 cellspacing=0 cellpadding=0 width=480 align=center border=0>  
  <tr>
    <td width="15" height="28" valign="middle" bgcolor="#B3BDC4"> </td>
    <td bgcolor="#B3BDC4"><b>D摘网</b>-<font color="#FFFFFF">让我们分享互联网一切是如此的快乐和美妙</font></td>
    <%
      if UserID="" or UserID=null then
      %>
	 <td class='whitetxt' align='right' bgcolor='#B3BDC4'>
	  </td>
      <%
      else
      %>
	 <td class='whitetxt' align='right' bgcolor='#B3BDC4'>
	  </td>
      <%
      end if
      %>    
      <td nowrap width="50" bgcolor="#B3BDC4"></td>
    </tr>
  </table>
<table cellspacing=2 cellpadding=2 width=400 align=center border=0>
	<input type=hidden name=from>
  <tr>
    <td width=392 height=35 colspan="2" align=right valign="middle">
	<div align="center">
	      <%
      if UserID="" or UserID=null then
      %>
		  <table width=350 height=46  border=0 cellpadding=2 cellspacing=0 class=border1 style="border: 1px solid #000000">
	   <tr>
		<td width=45 align=center bgcolor=#fffdec style="font-size: 12px">
		<img src=image/notice.gif width=21 height=22></td>
		<td valign=middle bgcolor=#fffdec style="font-size: 12px">
		<p style="line-height: 150%"><span class="redfont">您是匿名用户;若要永久保存网页,建议您先<br>
		<a href="reg265.asp">注册</a>  已注册用户请 
		<a href="login.asp?toURL=icollect">登录</a></span></td></tr></table>
		<%end if%>
	</div>
	</td>
    </tr>          
  <tr>
    <td align=right width=53 height=35>标题</td>
    <td width="339"><input 
      name=Title id="Title" style="width: 280px" size=40> 
    <span class="redfont">*</span></td></tr>          
  <tr>
    <td align=right>网址</td>
    <td width="339"><input 
      name=FromURL id="FromURL" style="width: 280px" size=40> 
    <span class="redfont">*</span></td></tr>          
  <tr>
    <td valign=top align=right>简介</td>
    <td width="339"><textarea name="Intro" cols=39 rows=4 id="Intro" style="width: 280px"></textarea></td></tr>
  <tr>
    <td align=right> </td>
    <td height=20 width="339">选中被收藏网页的文字,自动加为简介</td></tr>
  <tr>
    <td align=right height=23>图片</td>
    <td width="339"><input 
      name=Img id="Title0" style="width: 280px" size=40></td>
  </tr>
  <tr>
    <td align=right height=23>评分</td>
    <td width="339"><select name="Rank"><option value="5">☆☆☆☆☆</option><option value="4">☆☆☆☆</option><option value="3" selected>☆☆☆</option><option value="2">☆☆</option><option value="1">☆</option>
    </select><font color="#FF0000">提交图片地址以便更多的为您推荐!</font></td>
  </tr>
  <tr>
    <td align=right height=23>分类</td>
    <td width="339">
          <select name="Sort" id="Sort">
          	<%
			set rs=conn.execute("select sortid,SortName from sort order by sortid asc")
			do while not rs.eof 
			%>
            <option value=<%=rs("sortid")%>><%=rs("SortName")%></option>
            <%
            rs.movenext
            loop
            rs.close
            %>
          </select>
        	标签:<input 
      name=XSort id="Title1" style="width: 81; height:21" size=40>
	  <%
      if UserID<>"" or UserID<>null then
      set rs=server.createobject("adodb.recordset")
      sql="select xsort from XSort where UserID='"&UserID&"'"
      rs.open sql,conn,1,1
      %>
		<select class="list1" id="TagSelect" style="WIDTH: 105px" onChange="selectTag(this, this.selectedIndex);" name="TagSelect">
			<option value selected>选择已有标签</option>
			<%do while not rs.eof %>
			<option value="<%=rs(0)%>"><%=rs(0)%></option>
			<%
			rs.movenext
			loop
			rs.close
			%>
		</select>
		<%end if%>
	</td>
  </tr>
  <tr>
    <td valign=bottom align=right></td>
    <td width="339">
    <input type=radio value=1 name=IsPub checked>
    公开(大家都可见)&nbsp;<input 
      type=radio value=0 name=IsPub>
    私有&nbsp;
  </td></tr></table>
    <input name="logout" type="hidden" value="y">
	<script language="JavaScript">
		<!--
		document.form1.Title.value=Title;
		document.form1.FromURL.value=Url;
		document.form1.Intro.value=Cento;
		//-->
	</script>      
<table cellspacing=0 cellpadding=2 width=400 align=center border=0>  
  <tr>
    <td height=35 align=center> 
	  <input name="zhai" type="submit" class="button" id="zhai" value="收藏到<%=SiteName%>"></td>
    </tr>
  <tr align=middle>
    <td bgcolor="#E3E8EA">
      <table class=border1 cellspacing=0 cellpadding=5 width=100% align=center border=0>        
        <tr>
          <td height="40" 
          align=left bgcolor=#E3E8EA style="padding-right: 20px; padding-left: 20px">
            <table width="100%" height=20 
              border=0 align=center cellpadding=0 cellspacing=0>
              <tr>
                <td align=left width=45>
				<img src="<%=weblogo%>" width="88" height="31" border="0" class="picborder"></td>
                <td align="center"><span class=grayscript2>将保存到</span> <a 
                  href="<%=SiteURL%>" 
                  target=_blank><%=SiteURL%></a></td>
              </tr>
            </table></td>
         </tr>
        </table></td>
   </tr>
 </table></div>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -