admin_smslog.asp

一本关于大学的书

<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.buffer = True
Const PurviewLevel = 0
Const PurviewLevel_Channel = 0
Const PurviewLevel_Others = "ViewMessageLog"
%>
<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Function.asp"-->
<!--#include file="../Inc/MD5_Code.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<%
Dim SMSUserName,SMSPassword,SMSKey
Dim rsConfig
Set rsConfig = Conn.Execute("select top 1 * from PE_Config")
If not(rsConfig.BOF And rsConfig.EOF) Then
    SMSUserName = rsConfig("SMSUserName")
    SMSKey = rsConfig("SMSKey")
End If
rsConfig.Close
Set rsConfig = Nothing

Dim MD5String
dim PE_MD5
set PE_MD5 = new Md5_Class
MD5String = UCase(Trim(PE_MD5.MD5(SMSUserName & SMSKey)))
set PE_MD5 = nothing

Response.write "<Meta http-equiv='Refresh' Content='0; Url=http://sms.powereasy.net/MessageGate/MessageLog.aspx?UserName=" & SMSUserName & "&MD5String=" & MD5String & "'>"
%>