remotecalls.asp

来自「Windows Web脚本开发指南/(美) Dan Heflin, Todd N」· ASP 代码 · 共 75 行

<%@ LANGUAGE=VBSCRIPT %>
<% RSDispatch %>

<!--#INCLUDE VIRTUAL="/_scriptLibrary/rs.asp"-->
<SCRIPT RUNAT=SERVER Language="JavaScript">
function Description(){ 
  this.getAvailableDates = getAvailableDates;
  this.getAvailableClients = getAvailableClients;
}
public_description = new Description();
 
function getAvailableDates(delimeter, selectedName){
  return commonGetAvailable(delimeter, selectedName, "dates");
}
function getAvailableClients(delimeter, selectedName){
  return commonGetAvailable(delimeter, selectedName, "clients");
}
function commonGetAvailable(delimeter, selectedName, dataType){
  var nameList = "";
  var common = Server.CreateObject("CommonFunctionality.WSC");  
  var conn = common.getDatabaseObject();
  var sql; 
  var dataElement;
  var userID = Session("UserID");
  var where = "";

  if (dataType == "dates"){
    sql = "select distinct StartDate from TimesheetList ";
    common.setRightsProperties(userID, true);
  }
  else{
    sql = "select distinct ClientID from  ";
    common.setRightsProperties(userID, true);
  }
  
  selectedName = unescape(selectedName);

  if (dataType == "dates"){
    if (common.tables != "")
      sql += common.tables;
  }
  else{
    if (common.tables != "")
      sql += "TimesheetList " + common.tables;
    else
      sql += "TimesheetDetail INNER JOIN TimesheetList ON TimesheetDetail.FileID=TimesheetList.FileID ";
   }     
  if (selectedName != "All")
    where = " CreatedBy = '" +  common.replaceQuotes(selectedName) + "'" ;
  
  if (common.where != ""){
    if (where != "")
      where += " and "; 
    
    where += common.where;
  }
  
  if (where != "")    
    sql += " where " + where;
    
  rs = conn.Execute(sql);
  while (rs.EOF == false){
     dataElement = rs(0);
     if (dataType == "dates")
       dataElement = common.formatDate(dataElement);
     nameList += dataElement + delimeter;
     rs.MoveNext();
  }
  return nameList;  
}

</SCRIPT>