<%@language=vbscript codepage=936%>
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
dim dns
dns="../"
%>
<!--#Include file="../Common/Inc_DatConn.asp"-->
<!--#Include file="Common/Inc_Config.asp"-->
<!--#Include file="Common/Inc_Function.asp"-->
<!--#Include file="fy_admin_check.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/Admin_Style.Css" rel="stylesheet" type="text/css">
<script src="../common/Admin.js" type="text/javascript"></script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
if fla24<>1 and Session("intUserLevel")<2 then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>错误：操作权限出错，您没有权限操作些功能！</li>"
Call Admin_ShowErr(ErrMsg)
end if
bbaction=changechr(request("bbaction"))
Select case bbaction
  	Case "savegsjj"
		call savegsjj
	Case else
	Dim rdsCompany
	Dim sqlCompany

	set rdsCompany = Server.CreateObject("ADODB.Recordset")
	sqlCompany = "Select * From Dat_Company"
	rdsCompany.Open sqlCompany,Conn,1,1
	if not rdsCompany.EOF then
%>
<script language="javascript">
//检验表单的合法性
function FeedBack() {
	if (document.AddForm.Company.value == "") {
		alert("\内容不能为空！");
		document.AddForm.Company.focus();
	}
	else {
        return true;
    }
    return false;
}
</script>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title"> 
    <td height="22" colspan="2" align="center"><strong>使用说明管理</strong></td>
  </tr><form method="post" action="?bbaction=savegsjj" name="AddForm" OnSubmit="return FeedBack()">
  <tr class="tdbg">
    <td width="10%" height="30" align="right">内容正文：</td>
    <td height="30" width="89%"><textarea rows="10" name="Company" cols="72" class="face"><% = rdsCompany("Company")%></textarea></td>
  </tr>
    <tr class="tdbg">
    <td width="10%" height="30" align="right">内容格式：</td>
    <td height="30" width="89%"><input type="radio" value="NOHTML" name="strFormat" <%if rdsCompany("strFormat") = "NOHTML" then Response.Write "checked"%>> 纯文本&nbsp;&nbsp;&nbsp;<input type="radio" value="HTML" name="strFormat" <%if rdsCompany("strFormat") = "HTML" then Response.Write "checked"%>> HTML代码</td>
  </tr>
	<tr class="tdbg">
    <td width="10%" height="30" align="right">更新时间：</td>
    <td height="30" width="89%"><input type="text" name="CreateTime" size="25" class="face" value="<% = rdsCompany("CreateTime")%>" readonly="ture"> （上次系统更新时间）</td>
  </tr>
  	<tr class="tdbg">
    <td width="10%" height="30" align="right">　</td>
    <td height="30" width="89%"><input type="submit" value="更 新" name="submit">&nbsp;&nbsp;&nbsp;<input type="reset" value="重 置" name="reset"></td>
  </tr>
	</form>
</table>
<%
end if
end Select
%>