📄 admin_setup.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%const need_purview=3%>
<!--#include file="../localhost.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="show_error.asp"-->
<!--#include file="../purview.asp"-->
<%
call opendb()
set rs=conn.execute("select * from eric_config")
dim open,reg,login,upload,explain
open=rs("Is_open")
reg=rs("Is_reg")
login=rs("Is_login")
upload=rs("Is_upload")
explain=rs("remark")
call closers()
call closedb()
sub Is_checked(str1)
if str1=false then response.write "checked"
end sub
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="file:///D|/homework_system/main/eric.css" rel="stylesheet" type="text/css">
</head>
<body>
<form name="form1" method="post" action="admin_check.asp?action=sys_setup">
<table width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table_01">
<tr>
<td width="324" class="white_bold_blue">系统设置：</td>
<td width="257" class="white_bold_blue">原因： </td>
</tr>
<tr>
<td> <input name="sys_info" type="checkbox" class="input_checkbox_01" value="1" <%call Is_checked(open)%>>
系统关闭
<input name="sys_info" type="checkbox" class="input_checkbox_01" value="2" <%call Is_checked(reg)%>>
关闭注册 <input name="sys_info" type="checkbox" class="input_checkbox_01" value="3" <%call Is_checked(upload)%>>
关闭上传
<input name="sys_info" type="checkbox" class="input_text_01" value="4" <%call Is_checked(login)%>>
关闭登陆</td>
<td><textarea name="explain" cols="35" rows="3" class="input_textarea_01"><%=explain%>
</textarea></td>
</tr>
<tr>
<td colspan="2" class="center"> <input type="submit" name="Submit2" value="提交">
<input type="reset" name="Submit" value="重置"></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -