FS4.05修改广告时分类显示错误修复
修复：\Admin\Ads\Ads_add.asp 页面 293 行处
<form action="" name="AddAds" method="post">
<%
Dim str_AdClass_Sql,o_AdClass_Rs,str_AdClass_str,str_Selected,str_ClassType
str_ClassType=Request.QueryString("AdClassID")
str_AdClass_Sql="Select AdClassID,AdClassName,Lock from FS_AD_Class"
Set o_AdClass_Rs=Conn.execute(str_AdClass_Sql)
If Not o_AdClass_Rs.Eof Then
While Not o_AdClass_Rs.Eof
If Clng(str_ClassType)=Clng(o_AdClass_Rs("AdClassID")) Then
str_Selected=" selected"
else
str_Selected=""
End If
str_AdClass_str=str_AdClass_str&"<option value="&o_AdClass_Rs("AdClassID")&str_Selected&">"&o_AdClass_Rs("AdClassName")&"</option>"
o_AdClass_Rs.MoveNext
Wend
End If
Set o_AdClass_Rs=Nothing
%>
