www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\admin_link.asp

    <!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/DvADChar.asp" -->
<%
	Head()
	dim admin_flag
	admin_flag=",13,"
	if not Mybbs.master or instr(","&session("flag")&",",admin_flag)=0 then
		Errmsg=ErrMsg + "<BR><li>本页面为管理员专用,请<a href=admin_index.asp target=_top>登录</a>后进入。<br><li>您没有管理本页面的权限。"
		dvbbs_error()
	else
		dim body
		dim readme,Tlink
		call main()
		set rs=nothing
		Footer()
	end if

Sub main()
Select Case request("action")
	Case "saveall"
		Call saveall()
	Case "add" 
		Call addlink()
	Case "edit"
		Call editlink()
	Case "savenew"
		Call savenew()
	Case "savedit"
		Call savedit()
	Case "del"
		Call del()
	Case "orders"
		Call orders()
	Case "updatorders"
		Call updateorders()
	Case Else
		call linkinfo()
End Select 
Response.Write body
End Sub

Sub addlink()
	Response.Write "<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3""  align=center class=""tableBorder"">"
	Response.Write "<form action=""admin_link.asp?action=savenew"" method = post> <tr>"
	Response.Write "<th width=""100%"" colspan=2 height=25>添加联盟论坛 </th>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" height=25 class=forumrow>论坛名称 </td>"
	Response.Write "<td width=""60%"" height=25 class=forumrow>"
	Response.Write "<input type=""text"" name=""name"" size=40>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" height=25 class=forumrow>连接URL </td>"
	Response.Write "<td width=""60%"" class=forumrow>"
	Response.Write "<input type=""text"" name=""url"" size=40>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" height=25 class=forumrow>连接LOGO地址 </td>"
	Response.Write "<td width=""60%"" class=forumrow>"
	Response.Write "<input type=""text"" name=""logo"" size=40>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" height=25 class=forumrow>论坛简介 </td>"
	Response.Write "<td width=""60%"" class=forumrow>"
	Response.Write "<input type=""text"" name=""readme"" size=40>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" height=25 class=forumrow>在首页是文字连接还是LOGO连接 </td>"
	Response.Write "<td width=""60%"" class=forumrow>"
	Response.Write "文字连接<input type=""radio"" name=""islogo"" value=0 checked>&nbsp;&nbsp;LOGO连接<input type=""radio"" name=""islogo"" value=1>"
	Response.Write "&nbsp;&nbsp;<Input type=""submit"" name=""Submit"" value=""添 加"">"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "</form>"
	Response.Write "</table>"
End Sub

sub editlink()
	set rs= server.createobject ("adodb.recordset")
	sql = "select * from dv_bbslink where id="&Request("id")
	rs.open sql,conn,1,1
	Response.Write "<table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
	Response.Write "<form action=""admin_link.asp?action=savedit"" method=post>"
	Response.Write "<input type=hidden name=id value="
	Response.Write Request("id")
	Response.Write "><tr> <th width=""100%"" colspan=2 height=25>编辑联盟论坛</th>"
	Response.Write "</tr><tr> "
	Response.Write "<td width=""40%"" class=forumrow>"
	Response.Write "论坛名称: </td>"
	Response.Write "<td width=""60%"" class=forumrow>"
	Response.Write "<input type=""text"" name=""name"" size=40 value="
	Response.Write server.htmlencode(rs("boardname"))
	Response.Write ">"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" class=forumrow>"
	Response.Write "连接URL: </td>"
	Response.Write "<td width=""60%"" class=forumrow>"
	Response.Write "<input type=""text"" name=""url"" size=40 value="
	Response.Write server.htmlencode(rs("url"))
	Response.Write ">"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" class=forumrow>"
	Response.Write "连接LOGO地址: </td>"
	Response.Write "<td width=""60%"" class=forumrow>"
	Response.Write "<input type=""text"" name=""logo"" size=40 value="""
	If Rs("logo")<>"" or Not IsNull(Rs("logo")) Then Response.Write server.htmlencode(rs("logo"))
	Response.Write """>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" class=forumrow>"
	Response.Write "论坛简介: </td>"
	Response.Write "<td width=""60%"" class=forumrow>"
	Response.Write "<input type=""text"" name=""readme"" size=40 value="
	If Rs("logo")<>"" or Not IsNull(Rs("logo")) Then Response.Write server.htmlencode(rs("readme"))
	Response.Write ">"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" height=25 class=forumrow>在首页是文字连接还是LOGO连接 </td>"
	Response.Write "<td width=""60%"" class=forumrow>"
	Response.Write "文字连接<input type=""radio"" name=""islogo"" value=0 "
	If rs("islogo")=0 Then
	 	Response.Write " checked"
	End If
	Response.Write ">&nbsp;&nbsp;LOGO连接<input type=""radio"" name=""islogo"" value=1 "
	If rs("islogo")=1 Then
		Response.Write " checked"
	End If 
	Response.Write ">"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td height=""15"" colspan=""2"" class=forumrow>"
	Response.Write "<div align=""center"">"
	Response.Write "<input type=""submit"" name=""Submit"" value=""修 改"">"
	Response.Write "</div>"
	Response.Write "</td>"
	Response.Write "</tr></form>"
	Response.Write "</table>"
	Rs.Close
	Set Rs=Nothing
End Sub

Sub linkinfo()
	Dim i 
	i=0
	addlink()
	Set rs= server.createobject ("adodb.recordset")
	sql = " select * from dv_bbslink order by id"
	rs.open sql,conn,1,1       
	Response.Write "<br><table width=""95%"" border=""0"" cellspacing=""1"" cellpadding=""3""  align=center class=""tableBorder"">"
	Response.Write "<form action=""admin_link.asp?action=saveall"" method = post>"
	Response.Write "<tr>"
	Response.Write "<th height=""22"" colspan=4>联盟论坛列表批量修改 </th>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td height=""22"" colspan=4 class=forumrowhighlight><b>注意事项:</b><li>你可以编辑所有友情链接信息然后一次性提交。<li>其中序号部分可以按照你的需要修改,不能有重复。<li>其他内容尽量避免使用单引号,以免破坏页面代码执行。</td>"
	Response.Write "</tr>"
	If rs.eof and rs.bof Then
		Response.Write "<tr><td height=""25"" colspan=4 align=""center"" class=forumrowhighlight>尚未添加友情论坛</td></tr>"
	Else
		
	Do While Not Rs.EOF
	Response.Write "<tr align=left>"
    Response.Write "<td height=25 class=forumrow>"
    Response.Write "<B>序号:</B> <input type=""text"" name=""id"" size=4 value="
	Response.Write Rs("id")
	Response.Write "></td>"
	Response.Write "<td class=forumrow>"
	Response.Write "<B>名称:</B><input type=""text"" name=""boardname"&i&""" size=30 value="
	Response.Write server.htmlencode(Rs("boardname")&"")
	Response.Write "></td>"
	Response.Write "<td class=forumrow>"
	Response.Write "<B> URL:</B><input type=""text"" name=""url"&i&""" size=35 value="
	Response.Write server.htmlencode(Rs("url")&"")
	Response.Write "></td>"
	Response.Write "<td class=forumrow ><a href=""admin_link.asp?action=orders&id="
	Response.Write Rs("id")
	Response.Write """>排序</a>  <a href=""admin_link.asp?action=edit&id="
	Response.Write Rs("id")
	Response.Write """>编辑</a>  <a href=""admin_link.asp?action=del&id="
	Response.Write Rs("id")
	Response.Write """>删除</a></td>"
	Response.Write "</tr><tr>"
	Response.Write "<td class=forumrow ><b>是否图片</b><br>"
	Response.Write "是<input type=""radio"" name=""islogo"&i&""" value=""1"" "
	If Rs("islogo")=1 Then	
		Response.Write " checked"
	End If
	Response.Write ">"
	
	Response.Write "否<input type=""radio"" name=""islogo"&i&""" value=""0"" "
	If Rs("islogo")=0 Then	
		Response.Write " checked"
	End If
	Response.Write ">"
	Response.Write "</td><td class=forumrow >"
	Response.Write "<b>logo:</b>"
	Response.Write "<input type=""text"" name=""logo"&i&""" size=30 value="
	If Rs("logo")<>"" or Not IsNull(Rs("logo")) Then Response.Write server.htmlencode(Rs("logo"))
	Response.Write "></td>"
	Response.Write "<td class=forumrow colspan=4><B>简介:</B>"
	Response.Write "<input type=""text"" name=""readme"&i&""" size=50 value="
	If Rs("logo")<>"" or Not IsNull(Rs("logo")) Then Response.Write server.htmlencode(Rs("readme"))
	Response.Write "></td></tr>"
	Response.Write "<tr><th height=""1"" colspan=4></td></tr>"
	i=i+1
	rs.movenext
	loop
	
	Response.Write "<tr><td height=""25"" colspan=4 align=""center""><input type=""submit"" name=""Submit"" value=""批量更新""></td></tr>"
	Response.Write "</from>"
	End If
	Response.Write "</table>"
        rs.Close
	set rs=Nothing
End Sub 

sub savenew()
if Request("url")<>"" and Request("readme")<>"" and request("name")<>"" then
	dim linknum
	set rs= server.createobject ("adodb.recordset")
	sql = "select * from dv_bbslink order by id desc"
	rs.Open sql,conn,1,3
	if rs.eof and rs.bof then
	linknum=1
	else
	linknum=rs("id")+1
	end if
	sql="insert into dv_bbslink(id,boardname,readme,logo,url,islogo) values("&linknum&",'"&fixjs(Trim(Request.Form ("name")))&"','"&fixjs(Trim(Request.Form ("readme")))&"','"&fixjs(trim(request.Form("logo")))&"','"&fixjs(Request.Form ("url"))&"',"&CInt(request.Form("islogo"))&")"
	Mybbs.Execute(sql) 
	rs.Close
	set rs=Nothing 
	Call cache_link()
	body=body+"<br>"+"更新成功,请继续其他操作。"
else
	body=body+"<br>"+"请输入完整联盟论坛信息。"
end if
end sub

sub savedit()
	set rs= server.createobject ("adodb.recordset")
	sql = "select * from dv_bbslink where id="&request("id")
	rs.Open sql,conn,1,3
	if rs.eof and rs.bof then
	body=body+"<br>"+"错误,没有找到联盟论坛。"
	else
	rs("boardname") = fixjs(Trim(Request.Form ("name")))
	rs("readme") =  fixjs(Trim(Request.Form ("readme")))
	rs("logo")=fixjs(Trim(request.Form("logo")))
	rs("url") = fixjs(Request.Form ("url"))
	rs("islogo")=request.Form("islogo")
	rs.Update
	end if 
	rs.Close
	set rs=nothing
	Call cache_link()
	body=body+"<br>"+"更新成功,请继续其他操作。"
end sub

sub del
	dim id
	id = request("id")
	sql="delete from dv_bbslink where id="+id
	Mybbs.Execute(sql)
	body=body+"<br>"+"删除成功,请继续其他操作。"
	Call cache_link()
end sub

sub orders()
	Response.Write "<br>"
	Response.Write "<table width=""95%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=center class=tableborder>"
	Response.Write "			<tr><th height=24>联盟论坛重新排序</th></tr>"
	Response.Write "<tr>"
	Response.Write "<td height=""23"" class=forumrowhighlight>"
	Response.Write "注意:请在相应论坛的排序表单内输入相应的排列序号,<font color=red>注意不能和别的联盟论坛有相同的排列序号</font>。</font>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<td class=forumrow>"

	set rs= server.createobject ("adodb.recordset")
	sql="select * from dv_bbslink where id="&cstr(request("id"))
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "没有找到相应的联盟论坛。"
	else
		response.write "<form action=admin_link.asp?action=updatorders method=post>"
		response.write ""&rs("boardname")&"  <input type=text name=newid size=2 value="&rs("id")&">"
		response.write "<input type=hidden name=id value="&request("id")&">"
		response.write "<input type=submit name=Submit value=修改></form>"
	end if
	rs.close
	set rs=Nothing
	Response.Write"</td>"
	Response.write"</tr>"
	Response.write"<tr>"
	Response.write"<td>"
	Response.write"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=Left class=tableborder>"
	Response.write"<tr><th height=24 colspan=4>当前排序情况</th></tr>"
	Response.Write "<tr>"
	Dim a
	a=0		
	Set rs=Mybbs.Execute("select id,boardname from dv_bbslink order by id")
	Do While Not Rs.EOF
	Response.Write "<td height=22 width=""25%"">"
	Response.Write Rs(0)
	Response.Write "、"
	Response.Write Rs(1)
	Response.Write "</td>"
	
	Rs.MoveNext
	a=a+1
	If a=4 Then
		a=0
		Response.Write "</tr><tr><th height=""1"" colspan=4></td></tr><tr>"		
	End If
	Loop
	Set rs=Nothing
	Response.Write "</tr>"
	Response.Write "<tr><th height=""1"" colspan=4></td></tr>"
	Response.Write " </table>"
	Response.Write"</td></tr>"
	Response.write"</table>"			
end sub

sub updateorders()
if isnumeric(request("id")) and isnumeric(request("newid")) and request("newid")<>request("id") then
	set rs=Mybbs.Execute("select id from dv_bbslink where id="&request("newid"))
	if rs.eof and rs.bof then
	sql="update dv_bbslink set id="&request("newid")&" where id="&cstr(request("id"))
	Mybbs.Execute(sql)
	response.write "更新成功!"
	else
	response.write "更新失败,您指定了和其他联盟论坛相同的序号!"
	end if
else
	response.write "更新失败!您输入的字符不合法,或者输入了和原来相同的序号!"
end if
end sub

sub cache_link()
	Mybbs.Name="link"
	Dim Rs,SQl
	SQL="select boardname,readme,url,logo,islogo from [Dv_bbslink] Order by islogo,id"
	Set Rs=Mybbs.Execute(SQL)
	If Not rs.eof Then
		Mybbs.Value=RS.GetString (,,"!@#%|","$?&!@","")
	Else
		Mybbs.Value=""
	End If
	Set Rs=Nothing
end sub
Sub saveall()
	Dim IDlist,id,i,tmpstr
	ID=Request.form("id")
	id=Replace(id," ","")
	IDlist=","&ID&","
	ID=split(id,",")
	For i=0 to UBound(id)
		tmpstr=","&ID(i)&","
		If InStr(IDlist,tmpstr)>0 Then
			If InStr(Len(tmpstr)-1+InStr(IDlist,tmpstr),IDlist,tmpstr)>0 Then
			Errmsg=ErrMsg + "发现相同的序号:"&ID(i)&",请返回仔细检查。"
			Exit For
			End If 
		End If	
	Next 	
	If Errmsg<>"" Then
		dvbbs_error()
	End If
	'清除原来数据表中的数据,打篮球,五进五出了。:)
	Mybbs.Execute("Delete from dv_bbslink")
	'开始利用循环插入数据
	Dim sql,boardname,readme,url,logo,islogo
	For i= 0 to UBound(id)
		boardname=fixjs(Request.form("boardname"&i))
		readme=fixjs(Request.form("readme"&i))
		url=fixjs(Request.form("url"&i))
		logo=fixjs(Request.form("logo"&i))
		islogo=Request.form("islogo"&i)
		sql="insert into dv_bbslink (id,boardname,readme,url,logo,islogo) values ("&CInt(id(i))&",'"&boardname&"','"&readme&"','"&url&"','"&logo&"',"&CInt(islogo)&")"
		Mybbs.Execute(sql)	
	Next
	cache_link()
	Dv_suc("论坛批量更新成功!")
End Sub 
%>