Hjælp til at forstå ASP fil
Jeg har nedenstående fil, med en blanding af ASP, JavaScript og HTML.Når jeg, et vilkårligt sted i filen, tilføjer f.eks. : response.write "Dette er en test", bliver "Dette er en test", fint skrevet ud på skærmen.
Men, skriver jeg : response.write "Dette er en test" & minVar, bliver der ikke skrevet noget på skærmen, ikke "Dette er en test", heller. Det virker som om der er noget i koden, som forhindrer mig i at bruge"Response.write "Teskt" + Indhold i variabel.
Da nedenstående kode er godt over mit nivaue, håber jeg der er nogen som kan hjælpe mig :
----------------------
<%@ Language=VBScript %>
<%
option explicit
Response.Expires = 0 ' This is to ensure that the
' map logic executes for each
' and every request -- that it
' is never read from browser
' cache.
%>
<!-- #include file=../../logic/map_logic.asp -->
<%
' ***********************************************
' *************** BEGIN SCRIPTING ***************
' ***********************************************
' Note: This page is merely a presentation page.
' The actual request processing will be
' performed by the ProcessMap() function
' (residing in the include file above).
' ProcessMap() returns a dictionary containing
' the information necessary for this page to
' present the map. See ProcessMap comments
' for further comments.
On Error Resume Next
dim sMapURL
dim sOnLoadJS
dim numExtentXMin, numExtentYMin, numExtentXMax, numExtentYMax
dim dctPresentationInfo
set dctPresentationInfo = ProcessMap(Request.QueryString)
if Err.number <> 0 then
Session.Abandon
Response.Redirect "error.asp?" & _
"source=" & server.URLEncode("Map Logic") & "&" & _
"description=" & server.URLEncode(Err.description) & "&" & _
"action=close"
Response.End
end if
sMapURL = dctPresentationInfo("Map URL")
select case dctPresentationInfo("Command")
case "INIT"
sOnLoadJS = "setZoomBoxSettings();setState('zoomIn');setToolImage('ZOOMIN','2')"
case "ZOOMIN"
sOnLoadJS = "setZoomBoxSettings();setState('zoomIn');setToolImage('ZOOMIN','2')"
case "ZOOMOUT"
sOnLoadJS = "setZoomBoxSettings();setState('zoomOut');setToolImage('ZOOMOUT','2')"
case "PAN"
sOnLoadJS = "setZoomBoxSettings();setState('pan');setToolImage('PAN','2')"
case "IDENTIFY"
sOnLoadJS = "setZoomBoxSettings();setState('identify');setToolImage('IDENTIFY','2')"
end select
numExtentXMin = dctPresentationInfo("Extent X Min")
numExtentYMin = dctPresentationInfo("Extent Y Min")
numExtentXMax = dctPresentationInfo("Extent X Max")
numExtentYMax = dctPresentationInfo("Extent Y Max")
if (Err.number <> 0) then
Session.Abandon
Response.Redirect "error.asp?" & _
"source=" & server.URLEncode("map.asp") & "&" & _
"description=" & server.URLEncode(Err.description) & "&" & _
"action=close"
Response.End
end if
%>
<html>
<head>
<script type="text/javascript" language="JavaScript" src="../support/javascript/functions.js"></script>
<script type="text/javascript" language="JavaScript" src="../support/javascript/active.js"></script>
<title>Pasvik - Testkart</title>
</HEAD>
<body link="#AA9933" vlink="#AA9933" alink="#AA9933" onLoad="<%=sOnLoadJS%>">
<script type="text/javascript" language="JavaScript1.2">
// ***** Plasering av kartbilde på skjermen ************
var hspc = 35;
var vspc = 90;
if (navigator.appName.indexOf("Netscape")>=0) {
vspc = 130;
}
</script>
<!-- This form is used to store some settings to
be used by the client JavaScript-->
<form name="Variables">
<input type="hidden" name="MapSource" value="<%=sMapURL%>">
<input type="hidden" name="MapWidth" value="<%=Application.Contents("Map Width Pixels")%>">
<input type="hidden" name="MapHeight" value="<%=Application.Contents("Map Height Pixels")%>">
<input type="hidden" name="MapExtentMinX" value="<%=numExtentXMin%>">
<input type="hidden" name="MapExtentMinY" value="<%=numExtentYMin%>">
<input type="hidden" name="MapExtentMaxX" value="<%=numExtentXMax%>">
<input type="hidden" name="MapExtentMaxY" value="<%=numExtentYMax%>">
<input type="hidden" name="MapProcessor" value="map.asp">
<input type="hidden" name="IDProcessor" value="identify.asp">
</form>
<form name="frmNavigation" action="map.asp">
<input type="hidden" name="Cmd" value="<%=dctPresentationInfo("Command")%>">
<table border="1" cellpadding="0" cellspacing="0" width="556">
<tr>
<td colspan=5 align="center"><font face="Arial" color="#000000" size="5"><b>Sør-Varanger</b></font></td>
</tr>
<tr>
<td height="15" align="center"><a href="java script:setState('zoomIn');setToolImage('ZOOMIN','2')">
<img border="0" src="images/zoomin1.gif" name="ZOOMIN" alt="zoom inn"></a>
</td>
<td height="15" align="center"><a href="java script:setState('zoomOut');setToolImage('ZOOMOUT','2')">
<img border="0" src="images/zoomout1.gif" name="ZOOMOUT" alt="zoom ut"></a>
</td>
<td height="15" align="center"><a href="java script:setState('pan');setToolImage('PAN','2')">
<img border="0" src="images/pan1.gif" name="PAN" alt="Panorer"></a>
</td>
<td height="35" align="center"><a href="java script:setState('identify')">
<img border="0" src="images/identify1.gif" name="IDENTIFY" alt="Finn atributt"></a>
</td>
<td height="35" align="center"><a href="java script:setState('visalt')">
<img border="0" src="images/identify1.gif" name="IDENTIFY" alt="Vis alt"></a>
</td>
</tr>
<tr>
<td colspan=5 width="500" height="500"><img src="images/transparent.gif" border="0" width="500" height="500"></td>
</tr>
</table>
<p>
</form>
<p>
<form action="Map.asp" method=post>
<input type="hidden" name="Cmd" value="INIT">
<input type="submit" value="Zoom to full extend">
</form>
<script type="text/javascript" language="JavaScript1.2">
var sMapProcessor;
var sIDProcessor;
var sImage;
// map size
var iWidth;
var iHeight;
// map extent.
var minx;
var maxx;
var maxy;
var miny;
sMapProcessor = document.Variables.MapProcessor.value;
sIDProcessor = document.Variables.IDProcessor.value;
sImage = document.Variables.MapSource.value;
iWidth = document.Variables.MapWidth.value;
iHeight = document.Variables.MapHeight.value;
minx = parseFloat(document.Variables.MapExtentMinX.value);
miny = parseFloat(document.Variables.MapExtentMinY.value);
maxx = parseFloat(document.Variables.MapExtentMaxX.value);
maxy = parseFloat(document.Variables.MapExtentMaxY.value);
content = '<img name="theImage" src="'+sImage+'" border="1" hspace=0 vspace=0 border=0 width=' + iWidth + ' height=' + iHeight + '>';
createLayer("theMap",hspc,vspc,(parseInt(iWidth)+2),(parseInt(iHeight)+2),true,content);
// needed so that pan works
clipLayer("theMap",0,0,(parseInt(iWidth)+2),(parseInt(iHeight)+2));
// Zoom Box
content = '<img name="zoomImageTop" src="images/transparent.gif" width=1 height=1>';
createLayer("zoomBoxTop",hspc,vspc,iWidth,iHeight,false,content);
content = '<img name="zoomImageLeft" src="images/transparent.gif" width=1 height=1>';
createLayer("zoomBoxLeft",hspc,vspc,iWidth,iHeight,false,content);
content = '<img name="zoomImageRight" src="images/transparent.gif" width=1 height=1>';
createLayer("zoomBoxRight",hspc,vspc,iWidth,iHeight,false,content);
content = '<img name="zoomImageBottom" src="images/transparent.gif" width=1 height=1>';
createLayer("zoomBoxBottom",hspc,vspc,iWidth,iHeight,false,content);
// zoom box color
setLayerBackgroundColor("zoomBoxTop", "#ff0000");
setLayerBackgroundColor("zoomBoxLeft", "#ff0000");
setLayerBackgroundColor("zoomBoxRight", "#ff0000");
setLayerBackgroundColor("zoomBoxBottom", "#ffFFFF");
// Loading splash
content = '<img src="images/loading.gif">';
createLayer("loadLayer",hspc+iWidth/2-60,vspc+iHeight/2-12,120,24,false,content);
// glass layer for mouse click handling
content = '<img name="pixel" src="images/transparent.gif" width=1 height=1>';
createLayer("theTop",hspc,vspc,iWidth,iHeight,true,content);
</script>
<!-- Note: for performance stats, include -->
<!-- file=../support/VBScript/performance_stats.inc -->
</body>
</html>
--------------
