Tweet
' get incoming
RequestMethode = LCASE$(TRIM$([email protected]))
SELECT CASE RequestMethode
CASE "get"
QueryString = TRIM$([email protected])
CASE "post"
QueryString = TRIM$(isapiPostData(ECB))
CASE ELSE
txtOutput = $ERROR_QUERYSTRING_ANSWER
GOTO SendOutput
END SELECT
CSEntered& = 0
TGP& = 0
DO WHILE NOT %TRUE = %FAlse
IF TryEnterCriticalSection( GSC1 ) > 0 THEN
CSEntered& = 1
' do serialized stuff here
LeaveCriticalSection GSC1
CSEntered& = 0
EXIT DO
ELSE
' prevent endless loop
INCR TGP&
IF TGP& = 500 THEN FUNCTION = -1: EXIT FUNCTION
END IF
LOOP
EXIT FUNCTION
ErrHandle:
IF CSEntered& = 1 THEN LeaveCriticalSection GSC1
lLogAPIRetVal = RegisterEventSource(BYVAL %NULL, BYCOPY $EVENTLOG_APP_NAME)
IF lLogAPIRetVal <> %NULL THEN
lPointer = STRPTR(sMessage)
lReturnX = ReportEvent(lLogAPIRetVal, hErrSeverity, 0, 255, BYVAL 0&, 1, 0&, BYCOPY lPointer, BYVAL %NULL)
' all is mapped to 255: custom message!! (use hEventID for predefined messages)
IF lReturnX = %NULL THEN
lReturn = GetLastError()
END IF
DeregisterEventSource lLogAPIRetVal
END IF
<HTML>
<HEAD><title>ISAPI Test Page</title></HEAD>
<BODY>
<CENTER><H2>ISAPI Test Page</H2></CENTER><BR><HR>
<P>
This tests the POST method of the isapi interface. It tries to
call the function in istest32.dll. Currently, this dll must be
in the /docs directory if you're running the <A href="[URL]http://www.sambar.com[/URL]">
Sambar Server</A>. I can't seem to make it work if it's anywhere
else. I don't use IIS, so I don't know where the dll needs to bin
with that system. If you're using omnihttpd, the DLL goes in the httpd\ISAPI
directory. There is a configuration option to specify directories where ISAPI
dlls may be. I have tested this on Sambar and OmniHTTPd.
The dll was written in pb-dll6 and based on a sample from
Dave Navarro of Power Basic.
<P>
<FORM method="POST" action="istest32.dll">
<PRE>
Company Name <INPUT type=text name=company>
Your Name <INPUT type=text name=contact>
<INPUT type=submit>
</PRE>
</FORM>
</BODY></HTML>
Comment