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("&radic;")
Else
	Response.Write ErrCode("&times;")
End If
NewAsp.PageEnd()

Function ErrCode(str)
	str=""
	ErrCode = "<img src="""&NewAsp.MainsiteDir&"images/check_error.gif"" border=""0""/>&nbsp;<font class=""redfont"">"&str&"</font>"
End Function

Function SucCode(str)
	str=""
	SucCode = "<img src="""&NewAsp.MainsiteDir&"images/check_ok.gif"" border=""0""/>&nbsp;<font class=""bluefont"">"&str&"</font>"
End Function
%>