%@ Language=VBScript %> <% Option Explicit Dim strServerURL 'Local Web Server Name including http:// protocol Dim strInternalServerURL 'Local Web Server Name including http:// protocol Dim strExternalServerURL 'Directory where we will upload our file to Dim strTargetURL Dim strRepostURL 'Path to the page we will display after our file uploads Dim strPathToPA 'Path to the cpshost.dll Dim strPostingURL 'Action path for our form Dim strCharset 'Language 'strServerURL = "http://" + Request.ServerVariables("SERVER_NAME") + ":3333" 'strServerURL = "http://" + Request.ServerVariables("SERVER_NAME") + "/PolyU/" 'strServerURL = "/PolyU/" strServerURL = "" 'strInternalServerURL = "http://172.16.10.86" 'strExternalServerURL = "http://202.122.76.134" 'strInternalServerURL = strServerURL 'strExternalServerURL = strServerURL 'strTargetURL = strInternalServerURL & "/PolyU/FileIn/" 'strRepostURL = strInternalServerURL & "/PolyU/Upload.asp" 'strTargetURL = strExternalServerURL & "/PolyU/FileIn/" 'strRepostURL = strExternalServerURL & "/PolyU/Upload.asp" 'strTargetURL = "/PolyU/FileIn/" 'strRepostURL = "/PolyU/Upload.asp" ' strPathToPA = "/Scripts/cpshost.dll" strPostingURL = strServerURL & "Convert.asp" strCharset=request.QueryString("lang") if strCharset="" then strCharset="chinese" %>
<% if strCharset="chinese" then %> |
<% else %>
|