WEB源码(ASP,PHP,...)

开发平台：
HTML/CSS

admin_padmin.asp：源码内容
							<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="md5.asp"-->
<title><%=txl_info(0)%>--管理页面</title>
<!--#include file="inc/admin_css.asp"-->
<meta NAME=GENERATOR Content="Microsoft FrontPage 3.0" CHARSET=GB2312>
<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0" bgcolor="#DDEEFF">
<%
	if not supermaster or session("flag")="" then
		Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
		call txl_error()
		response.end
	end if
%>
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr>
<th align=left colspan=6 height=23>照片管理</th>
</tr>
<tr>
<td width=10% class=txlrow>注意事项</td>
<td width=90% class=txlrow colspan=3 style="line-height: 150%">①点击上传人，可以查看其用户资料；<br>②点击照片说明，可以查看此照片内容；<br>③选择要删除的照片，点击删除按钮即可删除照片，但照片文件还保留在文件夹<%=txl_info(12)%>中；<br>④当误删除照片后，可到“照片回收站”中还原。</td>
</tr>
<%
dim delid
delid=replace(request("delid"),"'","")
delid=replace(delid,";","")
delid=replace(delid,"--","")
delid=replace(delid,"(","")
	if request("action")="del" then
		call delete()
	else
		call main()
	end if
	conn.close
	set conn=nothing
	sub main()
%>
<tr>
<th colspan=6 align=left height=23>照片列表</th>
</tr>
<%
	dim currentpage,page_count,Pcount
	dim totalrec,endpage
	currentPage=request("page")
	if currentpage="" or not isInteger(currentpage) then
		currentpage=1
	else
		currentpage=clng(currentpage)
		if err then
			currentpage=1
			err.clear
		end if
	end if
	Set rs= Server.CreateObject("ADODB.Recordset")
	sql="select * from imgdata where picset<2 order by addtime desc"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "<tr><td colspan=6 class=txlrow>没有找到相关记录。</td></tr>"
	else
%>
<FORM METHOD=POST ACTION="?action=del">
<tr align=center>
<td class=txlHeaderBackgroundAlternate><B>上传人</B></td>
<td class=txlHeaderBackgroundAlternate><B>照片说明</B></td>
<td class=txlHeaderBackgroundAlternate><B>所属类别</B></td>
<td class=txlHeaderBackgroundAlternate><B>操作</B></td>
</tr>
<%
	dim trs
	rs.PageSize = Cint(txl_set(12))
	rs.AbsolutePage=currentpage
	page_count=0
	totalrec=rs.recordcount
	while (not rs.eof) and (not page_count = Cint(txl_set(12)))
	set trs=conn.execute("select classname from imgclass where classID="&rs("classID"))
%>
<tr>
<td width=10% class=txlrow align=center><%=rs("postuser")%></td>
<td width=70% class=txlrow><a href=<%=txl_info(12)&rs("filename")%> target=_blank><%=rs("picinfo")%></a></td>
<td width=10% class=txlrow align=center><%=trs("classname")%></td>
<td width=10% class=txlrow align=center><input type=checkbox name="delid" value="<%=rs("picid")%>"></td>
</tr>
<%
		page_count = page_count + 1
		rs.movenext
		wend
Pcount=rs.PageCount
%>
<tr><td colspan=4 class=txlrow align=center>分页：
<%
	if currentpage > 4 then
	response.write "<a href=""?page=1"">[1]</a> ..."
	end if
	if Pcount>currentpage+3 then
	endpage=currentpage+3
	else
	endpage=Pcount
	end if
	for i=currentpage-3 to endpage
	if not i<1 then
		if i = clng(currentpage) then
			response.write " <font color=#ce0000>["&i&"]</font>"
		else
			response.write " <a href=""?page="&i&""">["&i&"]</a>"
		end if
	end if
	next
	if currentpage+3 < Pcount then
		response.write "... <a href=""?page="&Pcount&""">["&Pcount&"]</a>"
	end if
%>
</td>
</tr>
<tr>
<td colspan=4 class=txlrow align=right><input type=submit name=submit1 value="删 除"  onclick="{if(confirm('确定执行选择的操作吗?')){return true;}return false;}"></td>
</tr>
</FORM>
</table>
<%
	end if
	rs.close
	set rs=nothing	
	end sub
	sub delete()
	dim filename,objfso
	response.write "<tr><th colspan=4 height=23 align=left>执行结果</th></tr>"
	if isnull(delid) or delid="" then
		response.write "<tr><td colspan=4 class=txlrow>请指定相关参数。</td></tr>"
		response.end
	else
		conn.execute("update imgdata set picset=2 where picid in ("&delid&")")
	end if
	response.write "<tr><td colspan=4 class=txlrow>删除成功。</td></tr>"
	end sub
%>

						