Ich brauche ein VB Script mit dem ich von einer Webseite Fils anklicken und auf einen anderen websever senden kann. Soviel und die CPSHOST.DLL hab ich schon nur wie gehts weiter?
<%@ Language=VBScript %>
<%
' Definitionen
Option Explicit
Dim strServerURL ' local Web Server Name including
http:// protocoll
Dim strTargetURL ' Directory where we will upload our file to
Dim strRepostURL ' Path to the file we will display after our file uploads
Dim strPathtoPA ' Path to the cpshost.dll
Dim strPostingURL ' Action path for our form
' Verarbeitung
If Request.ServerVariables ("LOGON_USER") = "" Then
Response.Status = "401 Access Denied"
Response.End
End If
strServerURL = "http://" & Request.ServerVariables("SERVER_NAME")
'strTargetURL = strServerURL & "/upload"
strTargetURL = strServerURL & "/test1/upload"
strRepostURL = strServerURL & "/test1/reply.asp?test=true"
strPathtoPA = strServerURL & "/scripts/cpshost.dll"
'strPathtoPA = strServerURL & "/test1/scripts/cpshost.dll"
strPostingURL = strPathtoPA & "?PUBLISH?" & strRepostURL
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<FORM ENCTYPE="multipart/form-data" NAME="oForm" ACTION="<% = strPostingURL %>" METHOD=POST>
<INPUT TYPE=file NAME=ofile1>
<INPUT TYPE=hidden NAME=TargetURL VALUE="<% = strTargetURL %>">
<INPUT TYPE=submit VALUE=UPLOAD>
</P>
</FORM>
</BODY>
</HTML>