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

📄 mycol_do.asp

📁 一个用ASP和ACCESS做的网络建站系统 1.WAP站长论坛网站系统【测试版】 2.只能添加一级主题栏目 3."文章栏目、文件栏目"添加栏目后再添加分类 4.可自定上传文件类型,上传目
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.2//EN" "http://www.wapforum.org/DTD/wml12.dtd">
<!--#include file="conn.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="must-revalidate" forua="true"/>
<meta http-equiv="Cache-Control" content="no-cache" forua="true"/>
<meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
<meta http-equiv="Expires" content="0" forua="true"/>
<meta http-equiv="Pragma" content="no-cache" forua="true"/>
</head>
	<%if session("name")="" then
	Response.Redirect  "reg.asp"
	end if%>
<%
IF  Request.QueryString("Action")="del" Then
	call del
elseIF  Request.QueryString("Action")="alldel" Then
	call alldel
else
	call main
end if


sub main
	Set Rs1 = Server.CreateObject("Adodb.Recordset")
	Sql1 = "SELECT * FROM config"
	Rs1.Open Sql1,conn,1,1
	if not (rs1.bof and rs1.eof)  then 
%>
	<card id="index" title="添加书签">
		<p align="<%=rs1("const")%>">
<%

		name=Trim(Request("name"))
		url=Trim(Request("url"))
if name<>"" and url<>"" then
	set rs=Server.CreateObject("Adodb.Recordset")
		rs.open "select * from wap_mycol ",conn,1,3
		rs.addnew()	
		rs("name")=Name
		rs("nid")=session("id")
		rs("title")=url

		rs.update

		Rs.close
		set rs=nothing
%>

		恭喜,你已成功添加书签。<br/>
		<a href="<%=utf8(url)%>">返回来源页</a><br/>
		<a href="mycol.asp">我的收藏夹</a><br/>
		<a href="index.asp">返回首页</a>
		</p>
<%else%>
出错啦!请不要非法提交参数.<br/><a href="index.asp">返回首页</a></p>
<%end if%>
<%else%>
<card id="index" title="出错啦"><p>出错啦!系统资料没配置.<br/>
<%end if%>
<%
		Rs1.close
		set rs1=nothing
end sub


sub del
%>
	<card id="index" title="删除书签">
		<p>
<%
		id=Trim(Request("id"))
if id<>"" then
	set rs=Server.CreateObject("Adodb.Recordset")
		rs.open "select * from wap_mycol where id="&id,conn,1,3
		if not (rs.bof and rs.eof)  then
		rs.delete
		end if
		Rs.close
		set rs=nothing
%>

		删除书签成功。<br/>
		<a href="mycol.asp">我的收藏夹</a><br/>
		<a href="index.asp">返回首页</a>
		</p>
<%else%>
出错啦!请不要非法提交参数.<br/><a href="index.asp">返回首页</a></p>
<%end if%>
<%
end sub


sub alldel%>
	<card id="index" title="删除书签">
		<p>
<%
T=Trim(Request("T"))
if T<>"" then
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT * FROM wap_mycol where nid="&session("id")&" order by id desc"
	Rs.Open Sql,conn,1,3
		if not (rs.bof and rs.eof)  then
			For i=1 to rs.RecordCount
				If Rs.Eof Then
					exit For
				End If

			rs.delete
				Rs.MoveNext
			Next

		end if
		Rs.close
		set rs=nothing
%>

		清空收藏夹成功。<br/>
<%else%>
	确定要清空收藏夹吗？<br/>
	<a href="mycol_do.asp?Action=alldel&amp;T=true">是</a>&nbsp;|&nbsp;<a href="mycol.asp">否</a><br/>
<%end if%>
		<a href="mycol.asp">我的收藏夹</a><br/>
		<a href="index.asp">返回首页</a>
		</p>
<%
end sub
%>
</card>
</wml>

⌨️ 快捷键说明

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