June 20th, 2005, 10:56 PM
|
|
Registered User
|
|
Join Date: Jun 2005
Posts: 2
Time spent in forums: 23 m 49 sec
Reputation Power: 0
|
|
|
Working code to pass values from vb6 to asp
am now doing a assignment that vb6 pass value to asp, and asp return the value back to vb6. I had done the first step to connect to vb6 to asp, but the 2nd step i am stuck. I tried many ways to connect but still unable to do it. My teachers and fellow friends all had no idea to help me. I am surprised even teachers told me they don't know or they don't want to help me.
Teachers that told me the method are not click with my assignment criteria.
Anyone or professional who knows it, please teach me or give me some samples coding please. I really need help.
asp return values to vb6 is automatically not manually. After i pass a value from vb6 to asp, asp will return it automatically.
This is my vb6 code passing value to asp
Code:
Private Function btnCheck_onclick() As Boolean
Dim UserID As String
Dim HostID As String
Dim url As String
Dim strUserID As String
Dim strHostID As String
strUserID = UserIDtxt.Value
strHostID = HostIDtxt.Value
url = "http://172.20.129.61/a.asp?User=" & strUserID & " Host Id is " & strHostID & ""
Dim Success As Long
Success = ShellExecute(0&, vbNullString, url, vbNullString, "C:\", SW_SHOWNORMAL)
End Function
This is my asp code
<%@ Language=VBScript%>
<%Option Explicit%>
<HTML>
<HEAD>
<TITLE>Booking PC Status</TITLE>
</HEAD>
<BODY>
<H1>Booking Status</H1>
<P> </P>
<P> </P>
<SCRIPT language=JavaScript>
<!--
alert("Welcome!")
--><!--EndFragment-->
</SCRIPT>
<%
Dim user
user = Trim(Request("user"))
Response.Write("User ID is " & user & " ")
%>
</BODY>
</HTML>
Last edited by Shadow Wizard : June 26th, 2005 at 10:00 AM.
Reason: added code tags - please do it yourself with [code] and [/code] tags next.
|
ASP Free Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
