z_testedit.asp

功能强大的一个b/s工作站

<!--#include file="conn.asp"-->
<!--#include file="Z_TestConn.ASP"-->
<!-- #include file="inc/const.asp" -->
<%
REM 开心词典 已有题库维护
REM 我来了 修改为final版
REM 原作者不清楚

dim ars

if not master then
	errmsg=errmsg+"<br><li>您没有在开心词典维护已有题库的权限，请确认你已经登陆并且具有相应的权限！"
	founderr=true
	stats="开心词典 错误信息"
	call nav()
	call head_var(2,0,"","")		
	call dvbbs_error()
else
	stats="开心词典 已有题库管理"
	call nav()
	call head_var(0,0,"开心词典","Z_test.asp")
%>
	<table align=center cellspacing=1 cellpadding="3" border=0 class=tableborder1>
	<tr><th>欢迎 <%=membername%> 进入开心词典 管理中心</th></tr>
	<tr><td class=tablebody2>
<%
	call Admin_Head()
	select case request("action")
		case "saveedit"
			call saveedit()
		case "edit"
			call edit()
		case "del"
			call del()
		case "selaction"
			call selaction()	'批量操作	
		case else
			call main()
	end select
	response.Write "</td></tr></table>"
	set aconn=nothing	
	call activeonline()
	call footer()
end if	
'===================================	
sub main()						
%>
<table align=center cellspacing=1 cellpadding=3 class=tableborder1>
	<tr><th colspan="6">已有题库管理</th></tr> 
	<tr><td colspan="6" class=TopLighNav1>快速搜索</td></tr> 
	<form method="POST" action="?action=edit" name=form1>
	<tr>
		<td class=tablebody1 colspan="2">&nbsp;题号: </td>
		<td class=tablebody1 colspan="4"><input type="text" name="Tid" size="20">&nbsp;&nbsp;<input type=submit value="查找" name="B1"></td>
	</tr>
	</form>
	<tr><td colspan=6 class=tablebody2 height=5></td></tr>
<%if request("action")="" or request("userSearch")="" then%>	
	<tr><td colspan="6" class=TopLighNav1>高级查询</td></tr> 
	<form method="POST" action="?action=userSearch" name=form2>
	<tr>
		<td class=tablebody1 width=20%  colspan="2">&nbsp;上传者</td> 
		<td class=tablebody1 width=80%  colspan="4"><input type="text" name="username" size="20">&nbsp;<input type=checkbox name="usernamechk" value="yes" checked>用户名完整匹配</td>
	</tr>
	<tr>
		<td class=tablebody1 width=20%  colspan="2">&nbsp;题目类型</td> 
		<td class=tablebody1 width=80%  colspan="4">
			<select size=1 name="TitleClass">
				<option value=0>任