asp出现乱码，求助
<!--#Include File="../Comm/Netsys_Conn_Main.asp"--><!--#include file="../HtmlEdit/FCKeditor/fckeditor.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Netsys网站管理系统</title>
<link href="../Style/Css.css" rel="stylesheet" type="text/css" />
<script language="JavaScript">
function Check()
{
if (document.MyForm.NTitle.value=="")
{
alert("有*号的必须填写！");
document.MyForm.NTitle.focus()
return false
}
if (document.MyForm.ClassID.value=="")
{
alert("有*号的必须填写！");
document.MyForm.ClassID.focus()
return false
}
if (document.MyForm.NViews.value=="")
{
alert("有*号的必须填写！");
document.MyForm.NViews.focus()
return false
}
}
</script>
</head>
<body>
<%
If Request("Add")="OK" Then
NTitle = DelStr(Request("NTitle"))
NAuthor = DelStr(Request("NAuthor"))
NSource = DelStr(Request("NSource"))
ClassID = DelStr(Request("ClassID"))
NContent = Request("NContent")
'获取排序
set rsa=server.createobject("adodb.recordset")
rsa.open"select top 1 * from Netsys_News_Cn order by NOrder desc",conn,1,1
if not rsa.eof then
NOrder=rsa("NOrder")+1
else
NOrder=1
end if
rsa.close
set rsa=nothing
NViews = Request("NViews")
NHome = Request("NHome")
Set Rsa=server.createobject("ADODB.RecordSet")
Sqla="Select * From Netsys_News_Cn"
Rsa.open Sqla,conn,1,3
Rsa.addnew
Rsa("NTitle") = NTitle
Rsa("NAuthor") = NAuthor
Rsa("NSource") = NSource
Rsa("ClassID") = ClassID
Rsa("NContent") = NContent
Rsa("NOrder") = NOrder
Rsa("NViews") = NViews
If NHome=1 Then
Rsa("NHome") = 1
Else
Rsa("NHome") = 0
End If
Rsa.update
Rsa.Close
Set Rsa=nothing
Response.Write "<script>"
Response.Write "alert('您输入的信息已经发布成功！');"
Response.Write "location.href='Netsys_List.asp';"
Response.Write "</script>"
End If
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="right_tittle">
<tr>
<td width="3"><img src="../images/r1.jpg" width="10" height="33" /></td>
<td><img src="../images/current.jpg" width="9" height="9" /> 当前位置 >> 新闻管理 | 发布新闻信息</td>
<td width="10" align="right"><img src="../images/r3.jpg" width="10" height="33" /></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="2" class="right_con">
<tr>
<td height="490" align="center" valign="top" bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<br />
<form name="MyForm" action="" method="post">
<table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CDD8DF" class="table_all" >
<tr>
<td width="19%" align="left" class="Left_td">标题：</td>
<td width="81%" align="left" class="Right_td">
<input name="NTitle" type="text" id="NTitle" style="width:300px" value="">
<font color="#ff0000">*</font>
</td>
</tr>
<tr>
<td align="left" class="Left_td">作者：</td>
<td align="left" class="Right_td"><input name="NAuthor" type="text" id="NAuthor" style="width:300px" value=""></td>
</tr>
<tr>
<td align="left" class="Left_td">来源：</td>
<td align="left" class="Right_td"><input name="NSource" type="text" id="NSource" style="width:300px" value=""></td>
</tr>
<tr>
<td align="left" class="Left_td">类型：</td>
<td align="left" class="Right_td">
<select name="ClassID" id="ClassID">
<option value="">请选择类型</option>
<%
Set Rst=server.createobject("adodb.recordset")
Rst.open "Select * From Netsys_News_Class_Cn Order By ClassOrder Asc",Conn,1,1
If Not Rst.eof and Not Rst.bof Then
Do While Not Rst.eof
%>
<option value="<%=Rst("ClassID")%>"><%=Rst("ClassName")%></option>
<%
Rst.movenext
Loop
End If
Rst.Close
Set Rst=nothing
%>
</select>
<font color="#ff0000">*</font></td>
</tr>
<tr>
<td align="left" class="Left_td">详细：</td>
<td align="left" class="Right_td">
<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "../HtmlEdit/FCKeditor/"
oFCKeditor.ToolbarSet = "Default"
oFCKeditor.Width = "100%"
oFCKeditor.Height = "380px"
oFCKeditor.Value = ""
oFCKeditor.Create "NContent"
%>
</td>
</tr>
<tr>
<td align="left" class="Left_td">点击率：</td>
<td align="left" class="Right_td"><input name="NViews" type="text" id="NViews" style="width:300px" value="1" onKeyUp="this.value=this.value.replace(/\D/g,'')" onafterpaste="this.value=this.value.replace(/\D/g,'')">
<font color="#ff0000">*</font></td>
</tr>
<tr>
<td align="left" class="Left_td">特殊标记：</td>
<td align="left" class="Right_td">
<input name="NHome" type="checkbox" id="NHome" value="1" style="border:none;" />
首页推荐
</td>
</tr>
<tr>
<td align="left" class="Left_td"> </td>
<td align="left" class="Right_td">
<input name="submit" type="submit" onClick="return Check();" value=" 确认提交 " class="button">
<input name="reset" type="reset" value=" 重新填写 " class="button">
<input type="hidden" name="Add" value="OK">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</body>
</html>
