www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\common\ajaxcheck.asp
<!--#include file="../conn.asp"--> <!--#include file="const.asp"--> <% Response.CharSet="gb2312" Response.ContentType="text/html" Dim CheckType,CheckValue CheckType = Trim(Request("rs")) CheckValue = Trim(Request("value")) Dim ChannelID ChannelID=NewAsp.ChkNumeric(Request("ChannelID")) If ChannelID>0 Then NewAsp.ChannelID=ChannelID NewAsp.LoadChannel() End If Dim strCheckCode strCheckCode = LCase(CheckValue) If CStr(Session("CheckCode"))=CStr(strCheckCode) And strCheckCode<>"" Then Response.Write SucCode("√") Else Response.Write ErrCode("×") End If NewAsp.PageEnd() Function ErrCode(str) str="" ErrCode = "<img src="""&NewAsp.MainsiteDir&"images/check_error.gif"" border=""0""/> <font class=""redfont"">"&str&"</font>" End Function Function SucCode(str) str="" SucCode = "<img src="""&NewAsp.MainsiteDir&"images/check_ok.gif"" border=""0""/> <font class=""bluefont"">"&str&"</font>" End Function %>