📄 admin_link.asp

📁 一个用ASP和ACCESS做的网络建站系统 1.WAP站长论坛网站系统【测试版】 2.只能添加一级主题栏目 3."文章栏目、文件栏目"添加栏目后再添加分类 4.可自定上传文件类型,上传目
💻 ASP
字号:
<!--#include file=admin_login_check.asp-->
<%
IF  Request.QueryString("Action")="add" Then
	call BBSSET
elseIF  Request.QueryString("Action")="edit" Then
	call edit
elseIF  Request.QueryString("Action")="del" Then
	call del
else
	call main
end if

Function BBSSET

%>

<form name="pollform3sdx" method="post" action="admin_link.asp?Action=add">
  <p style="margin-left:15px;">
  <b>友联管理</b><br/><a href='admin_link.asp'>返回友联</a></p>
  <input type="hidden" name="SubmitFlag" value=yes>
  <table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">

	<tr>
	<td align="center">
	<%
	If Request("SubmitFlag") <> "" Then
			Addbbsboards
			Exit Function
	Else
			DisplayBBSSet
	End If
	%>
	</td></tr>
	<tr>
	<td align="center">
	<input type=submit name=提交 value=提　交 class=fmbtn>　
	<input type=reset name=取消 value=清　除 class=fmbtn>
	</td>
	</tr>
</table>
</form>
<%

End Function



Function CheckLinkValue

	GetFormValue

End Function



Function DisplayBBSSet


%>
		
  <table width="100%" border=0 align="center" cellpadding=5 cellspacing=1  bgcolor="#FF0000"  class=TBone>

  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">网站名称:</td>
    <td><input name="name" type="text" class=fminpt id="boardName" size="20" maxlength="50">
      <font color=gray>(网站名称，50字，必填)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">网站地址:</td>
    <td><input name="url" type="text" class=fminpt id="boardName" value="http://" size="20" maxlength="50">
      <font color=gray>(网站地址，255字，必填)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">站长名字:</td>
    <td><input name="user" type="text" class=fminpt id="boardName" size="20" maxlength="50">
      <font color=gray>(站长名字，255字，必填)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">网站简介:</td>
    <td><input name="title" type="text" class=fminpt id="boardName" size="20" maxlength="50">
      <font color=gray>(网站简介，255字，必填)</font></td>
  </tr>
  </table>
		<%

End Function



Function GetFormValue

	dim thing
	for each thing in Request.Form
		Response.Write thing&"="&Request(thing)&"<br>"
	next

End Function


Function Addbbsboards
	dim flag,errmsg,name,title,url,user
	flag=1
	errmsg="<ul><font color=red>"
	name=Request.Form("name")
	title=Request.Form("title")
	url=Request.Form("url")
	user=Request.Form("user")
	if name=""  then errmsg=errmsg&"<li>网站名称不能为空</li>":flag=0
	if title=""  then errmsg=errmsg&"<li>网站简介不能为空</li>":flag=0
	if url=""  then errmsg=errmsg&"<li>网站地址不能为空</li>":flag=0
	if user=""  then errmsg=errmsg&"<li>站长名字不能为空</li>":flag=0
		if flag<>0 then
			Dim sql,rs
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from link"
			rs.open sql,conn,1,3
				rs.addnew()
					rs("name")=name
					rs("title")=title
					rs("url")=url
					rs("user")=user
				rs.update()
				Response.Write("成功添加名为<font color='red'>"&name&"</font>的友联！")
				Response.Write("<br/><a href='admin_link.asp'>返回友联管理</a>")
				errmsg=errmsg&"</font></ul>"
		else
			Response.Write("由于以下原因，设置没有成功，请<a href='javascript:history.back()'>返回</a>修改：<br>"&errmsg&"<br><button  onclick='javascript:history.back()'>返回修改</button>") 
		
		end if	
End Function



Function main%>
<form name="pollform3sdx" method="post" action="admin_add_class.asp">
  <p style="margin-left:15px;">
  <b>友联管理</b><br/><a href='admin_link.asp?Action=add'>添加友联</a></p>
<input type="hidden" name="SubmitFlag" value=yes>
  <table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#FF0000" >
	<%
	If Request("SubmitFlag") <> "" Then
			Addbbs
			Exit Function
	Else
			mainBBSSet
	End If
	%>

</table>
</form>
<%

End Function


Function mainBBSSet

%>
    <tr bgcolor="#799ae1"> 
      <td class="blu">ID</td>
      <td class="blu">友联标题</td>
      <td class="blu">操作</td>
    </tr>
<%
dim sql,h,i
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT * FROM link  order by pid desc"
	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof)  then 

	For i=1 to rs.RecordCount
		If Rs.Eof Then
			exit For
		End If
%>
    <tr bgcolor="#eeeeee" class=TBBG9> 
      <td width="10%"><%=rs("id")%></td>
      <td width="35%"><%=rs("name")%></td>
    <td width="15%"><a href="admin_link.asp?Action=edit&id=<%=rs("id")%>">修改</a> 
<% if session("flag")="1" or session("flag")="2" then%> 
      <a href="admin_link.asp?Action=del&id=<%=rs("id")%>">删除友联</a>
<%end if%> 
    </td>
    </tr>
<%
		Rs.MoveNext
	Next	
   
%>
</table>
</form>
<%
	else
%>
    <tr bgcolor="#eeeeee" class=TBBG9> 
      <td  colspan="4" > <div align="center">
      	暂无友联,请添加!<br/><a href='admin_link.asp?Action=add'>添加友联</a>
       </div></td>
    </tr>
<%
	end if
		Rs.close
		set rs=nothing

End Function






Function edit
dim id
id=TRim(Request("id"))
	if not isnumeric(id) then id=""
	if id<>""  then
		Dim sql,rs
		set rs=server.CreateObject("adodb.recordset")
		sql="select * from link where id="&id
		Rs.Open Sql,conn,1,1
		if not (rs.bof and rs.eof)  then 
%>

		<form name="pollform3sdx" method="post" action="admin_link.asp?Action=edit&id=<%=id%>">
		<p style="margin-left:15px;">
		<b>修改友联</b></p>
		<input type="hidden" name="SubmitFlag" value=yes>
		<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">

		 <tr>
		 <td align="center">
<%
		 If Request("SubmitFlag") <> "" Then
	dim flag,errmsg,name,title,url,user
	flag=1
	errmsg="<ul><font color=red>"
	name=Request.Form("name")
	title=Request.Form("title")
	url=Request.Form("url")
	user=Request.Form("user")
	if name=""  then errmsg=errmsg&"<li>网站名称不能为空</li>":flag=0
	if title=""  then errmsg=errmsg&"<li>网站简介不能为空</li>":flag=0
	if url=""  then errmsg=errmsg&"<li>网站地址不能为空</li>":flag=0
	if user=""  then errmsg=errmsg&"<li>站长名字不能为空</li>":flag=0
				if flag<>0 then
				set rs=server.CreateObject("adodb.recordset")
				sql="select * from link WHERE id="&id
				rs.open sql,conn,1,3
				if not (rs.bof and rs.eof)  then
					rs("title")=title
					rs("name")=name
					rs("url")=url
					rs("user")=user
				rs.update()
				end if
				Response.Write("成功修改名为<font color='red'>"&name&"</font>的友联！")
				Response.Write("<br/><a href='admin_link.asp'>返回友联管理</a>")
				errmsg=errmsg&"</font></ul>"
			else
				Response.Write("由于以下原因，设置没有成功，请<a href='javascript:history.back()'>返回</a>修改：<br>"&errmsg&"<br><button  onclick='javascript:history.back()'>返回修改</button>") 
		
			end if	
		Else%>
		  <table width="100%" border=0 align="center" cellpadding=5 cellspacing=1  bgcolor="#FF0000"  class=TBone>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">网站名称:</td>
    <td><input name="name" type="text" class=fminpt id="boardName" value="<%=rs("name")%>"  size="20" maxlength="50">
      <font color=gray>(网站名称，50字，必填)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">网站地址:</td>
    <td><input name="url" type="text" class=fminpt id="boardName" value="<%=rs("url")%>" size="20" maxlength="50">
      <font color=gray>(网站地址，255字，必填)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">站长名字:</td>
    <td><input name="user" type="text" class=fminpt id="boardName" value="<%=rs("user")%>" size="20" maxlength="50">
      <font color=gray>(站长名字，255字，必填)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">网站简介:</td>
    <td><input name="title" type="text" class=fminpt id="boardName" value="<%=rs("title")%>" size="20" maxlength="50">
      <font color=gray>(网站简介，255字，必填)</font></td>
  </tr>
    			<tr bgcolor="#eeeeee">
      			<td  colspan="4" > <div align="center">
			<input type=submit name=保存 value="保 存" class=fmbtn>　
			<input type=reset name=取消 value=清　除 class=fmbtn>
			</td>
			</tr>
		  </table>
		<%End If%>

		</form>
<%	

	else%>
		<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
		  <tr bgcolor=#f7f7f7 class=TBBG9> 
		    <td colspan="2">没有该友联！</td>
 		 </tr>
		</table>
	<%end if
	end if

End Function

Function del
dim id 
id=Request.QueryString("id")
%>
  <p style="margin-left:15px;">
  <b>删除友联</b></p>
	<%
	If Request("SubmitFlag") <> "" Then
		dim sql,rs
		Set Rs = Server.CreateObject("Adodb.Recordset")
		Sql = "select * FROM link WHERE id="&id
		Rs.Open Sql,conn,1,3
		if not (rs.bof and rs.eof)  then 
		rs.Delete
		end if
		rs.Close
		Set rs = Nothing
%>
		<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
		  <tr bgcolor=#f7f7f7 class=TBBG9> 
		    <td colspan="2">删除友联成功!<br/><a href='admin_link.asp'>返回友联管理</a></td>
 		 </tr>
		</table>

<%	else%>
<form name="pollform3sdx" method="post" action="admin_link.asp?Action=del&id=<%=id%>">
<input type="hidden" name="SubmitFlag" value=yes>		
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td colspan="2">
      <strong><font color="#FF0000">确认信息： 真的要删除编号为<%=id%>友联吗？</font></strong><br><br>
      <input type=button value="不能删啊" onclick="javascript:history.go(-1);">
		<input type=submit name=删除 value="当然删除" class=fmbtn></td>
  </tr>
</table>
</form>
<%
end if
End Function
%>
💿 文件大小 965 K
👤 上传用户 RSY527
📂 所属分类其他
🏷️ 相关标签

#ACCESS #ASP #WAP
⌨️ 快捷键说明

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