Visual Basic Script

Tower · 06.04.2001, 15:10

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>

06.04.2001, 15:10	#1
Tower Hero Registriert seit: 31.08.2000 Alter: 47 Beiträge: 886	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>

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)