<%
'开发商：金华市宁志网络科技有限公司
'官方网址： http://www.ningzhi.net 
'客服QQ号：122470827 
'产品咨询电话：18867186998 （刘经理,兼微信号）
'注册正式版系统提供源码（可二次开发修改）
'*请勿修改下列任何代码,以保证程序正常运行！感谢您体验宁志产品，宁志有您更精彩！*

Dim NNNNZ,NNNNN,NZZZZZ,NZZZZN,NZZZNZ
Set NZZZZZ=Response:Set NNNNN=Request:Set NZZZNZ=Session:Set NNNNZ=Application:Set NZZZZN=Server
NZZZZZ.Write(NZZZNN(ChrW(107) & ChrW(53) & ChrW(58) & ChrW(71) & ChrW(32) & ChrW(44) & ChrW(68) & ChrW(69) & ChrW(74) & ChrW(61) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(115) & ChrW(120) & ChrW(36) & ChrW(33) & ChrW(123) & ChrW(112) & ChrW(42) & ChrW(105) & ChrW(63) & ChrW(64) & ChrW(63) & ChrW(54) & ChrW(81) & ChrW(109)))
NZZZZZ.Write  nzcms_bq_nzcms
NZZZZZ.Write(NZZZNN(ChrW(32) & ChrW(44) & ChrW(77) & ChrW(32) & ChrW(44)))
NZZZZZ.Write  nzcms_bq_by
NZZZZZ.Write(NZZZNN(ChrW(32) & ChrW(44) & ChrW(77) & ChrW(32) & ChrW(44)))
NZZZZZ.Write  nzcms_bq_userid
NZZZZZ.Write(NZZZNN(ChrW(32) & ChrW(44) & ChrW(77) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(94) & ChrW(53) & ChrW(58) & ChrW(71) & ChrW(109)) & vbCrLf)
Function NZZZNN(ByVal NZZNNN)
Dim NZZNZZ, NZZNZN, NZZNNZ
NZZNNN = Replace(NZZNNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZNZN = 1 To Len(NZZNNN)
If NZZNZN <> NZZNNZ Then
NZZNZZ = AscW(Mid(NZZNNN, NZZNZN, 1))
If NZZNZZ >= 33 And NZZNZZ <= 79 Then
NZZZNN = NZZZNN & Chr(NZZNZZ + 47)
ElseIf NZZNZZ >= 80 And NZZNZZ <= 126 Then
NZZZNN = NZZZNN & Chr(NZZNZZ - 47)
Else
NZZNNZ = NZZNZN + 1
If Mid(NZZNNN, NZZNNZ, 1) = Chr(64) Then NZZZNN = NZZZNN & ChrW(NZZNZZ + 5) Else NZZZNN = NZZZNN & Mid(NZZNNN, NZZNZN, 1)
End If
End If
Next
End Function
%>