<?xml version="1.0" encoding="gb2312"?>
<Config>
 <PdoSettings>
  <ResponseSttings>
   <Item>
    <Name>ENABLED</Name>
    <Value>true</Value>
   </Item>   
   <Item>
    <Name>MAINSYSTEM</Name>
    <Value>true</Value>
   </Item>
   <Item>
    <Name>APPID</Name>
    <Value>dvbbs</Value>
   </Item>
   <Item>
    <Name>SYSKEY</Name>
    <Value>powereasy</Value>
   </Item>
  </ResponseSttings>
  <RequestSettings>
   <Item>
    <Name>URLS</Name>
    <Value>http://www.***.com/blog/API/API_Response.asp|http://www.***.com/API/API_Response.aspx</Value>
   </Item>
  </RequestSettings>
 </PdoSettings>
</Config>

'整合通用接口参数
Const API_Enable = True  '是否整合,如果整合请设为True,否则为False。
Const oblog_Key = "powereasy" '网站key，必须与整合端的key一致。
Const strTargetUrls = "http://www.***.com/API/API_Response.aspx|http://www.***.com/bbs/api/1.0/dv_api_serv.aspx"      '要整合的程序的完整URL（以“http://”开头，以接口文件的文件名结尾），如果有多个系统要整合，每个URL间用“|”分隔
Dim aUrls
aUrls=Split(strTargetUrls,"|")
%>

  If Request.QueryString("password")<>"" Then
   password=oblog.filt_badstr(Request("password"))
   If Len(password)=32 then          //增加代码
     password=mid(password,9,16)
   else
     password=md5(password)
   end IF
   CookieDate=Trim(Request("savecookie"))

Private m_lOnBits(30)
Private m_l2Power(30)
Dim iLength  //增加部份

Private Function LShift(lValue, iShiftBits)
………………

If iLength = 32 Then
        MD5 = WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d)  '32Byte
        MD5=LCase(MD5)
    Else
        MD5 = LCase(WordToHex(b) & WordToHex(c))  '16Byte
    End If

End Function

 If Left(strUrl,7)="http://" Then
      turl=strUrl&"?syskey="&MD5(UserName&oblog_Key)&"&username="&UserName&"&password="&PassWord&"&savecookie="&CookieDate & "@@@"& turl   //修改部份
     End If