<!--#include file="include/conn.asp"-->
<%Call limsss(sQxa,"$$websiteSafe$$")%>
<html>
<title>安全设置</title>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="../css/lst.css" rel="stylesheet" type="text/css" />
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<%
dim gz
Set gz= oConn.Execute("SELECT top 1 * FROM [WebInfo] where Id =1")
%>
<table width="100%" height="31" border="0" cellpadding="0" cellspacing="0" class="left_topbg" id="table2"><tr><td height="31"><div class="titlebt">安全设置</div></td></tr></table>
<table border="1" width="100%" cellpadding="2" style="border-collapse: collapse" bordercolor="#B5D0D9" bgcolor="#FFFFFF">
	<tr>
		<td>
		
<form action="?action=eddweb" method=post>
<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>
<td height="30" align="right" bgcolor="#FFFFFF" class="left_txt2">
安全机制：</td>
<td bgcolor="#FFFFFF" height="30">　</td>
<td height="30" bgcolor="#FFFFFF">
<select name="WebSafe"><option value="<%=gz("WebSafe")%>"><%If gz("WebSafe")=0 Then%>不开<%Else%>开通<%End If%></option><option value="0">不开</option><option value="1">开通</option></select>
</td>
<td height="30" bgcolor="#FFFFFF" class="left_txt">打开之后，可以有效防止SQL入注</td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#FFFFFF" class="left_txt2"></td>
<td bgcolor="#FFFFFF" height="30">　</td>
<td height="30" bgcolor="#FFFFFF">
<input type="submit" value="完成以上修改" name="B1" /><input type="reset" value="取消设置" name="B12" /></td>
<td height="30" bgcolor="#FFFFFF" class="left_txt">
　</td>
</tr>
</table>
</form>

		</td>
	</tr>
</table>

</body>
</html>
<%
'基本信息编辑
If action="eddweb" Then
	Set oRs=server.createobject("adodb.recordset")
	sSql="Select * from [WebInfo] where Id=1"
	oRs.open sSql,oconn,1,3
		oRs("WebSafe")=trim(request("WebSafe"))
		oRs.update
		oRs.close
		call alert("基本信息编辑成功!","WebsiteSafe.asp")
	Set oRs = Nothing
End If
%>