<Script language="VBScript">
<!--
sub modifyFile()
Dim obj_fso, obj_file,filePath,arr_trackid,arr_name
set obj_fso=CreateObject("Scripting.FileSystemObject")
filePath = "c:/trackid.inc"
if obj_fso.fileExists(filePath) then
set obj_file=obj_fso.openTextFile(filePath,2,false)
obj_file.WriteLine "<" & "%"
obj_file.WriteLine "dim arr_trackid(" & <%=new_arr_len%> & "), arr_name(" & <%=new_arr_len%> & "), arr_len"
obj_file.WriteLine "arr_len=" & <%=new_arr_len%>
For j = 0 To <%=new_arr_len%>
obj_file.WriteLine "arr_trackid(" & j & ")='" & <%=new_arr_trackid(j)%> & "'"
Next
obj_file.close
set obj_file=nothing
else
alert "file is not exists!"
end if
end sub
-->
</Script>
<HTML>
<BODY onload="">
<% If Isnumeric(Request.Form("track_id")) then
if clng (track_id) > clng(max_ID) then
%>
<script language=vbscript>
call modifyFile()
</script>
<strong>Project Name </strong> :<%=p_name%><Br><Br>
<strong>TrackID </strong> :<%=track_id%><Br><Br>
<%Else %>
<p>You input TrackID is unavliad,Please type again !
<%End If %>
<%Else %>
<p>Please enter a numerical TrackID.
<%End If %>
<input type="button" name="button1" value="Back" onclick="history.back()">
</BODY>
</HTML>
请各位大侠继续关注问题:
1.
dim i
i=250
dim new_arr_trackid(i),new_arr_name(i)
这样定义数组都有错误?,为什么? dim new_arr_trackid(CInt(i)),new_arr_name(CInt(i))也不行,
难道参数一定要是数字才行吗?