check.asp

SMS是SP服务中一种流行的服务类型,用户可以通过发送短信来定制电影,视频,交友,下载等在线服务, 联盟程序正是处于用户与SP商之间的一种接口平台,平台下可以发展站长,站长在自己的站上做宣传. 手

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/md5.asp"-->
<%
call ConnectionDatabase

If Session("Usr_Username") <> "" And Session("Usr_PassWord") <> "" Then
	set Rs=GrateRs("select * from member where username like '"&trim(Session("Usr_UserName"))&"'",1)
	If Not Rs.Eof Then
		If md5(Rs("passwd")) <> Session("Usr_PassWord") Then
			Call MSGShow(0)
		End If
      else
        Call MSGShow(0)
	End If	
else
	Call MSGShow(0)
End If

Sub MSGShow(Er)
    response.write "<script language='JavaScript'>{window.alert('权限不够或者未登录,请重新登录！');window.open('index.asp','_parent',',,,,,,,,,,');}</script>"
    response.end
End Sub
%>