Jump to content

smus

Members
  • Content count

    81
  • Joined

  • Last visited

Community Reputation

0 Neutral

About smus

  • Rank
    Newbie
  1. 2 Submits in a form

    If not first form is going to submit to a current tab, the solution will be more simple and elegant. We just paste this string in <head> : <base target="_blank"> Voila and all our submits give a new tab with the form results!
  2. Exclude some files from viewing on a page

    The task seems to be simple, but I can't solve it. Thanks in advance, Web supermen and ASP Gurus!
  3. I am using this classic ASP script (VBScript) to show all the files and folders in a directory: The script is originally from here: https://support.microsoft.com/en-us/help/224364/creating-a-directory-browsing-page-using-asp <%@LANGUAGE="VBSCRIPT"%> <% Option Explicit On Error Resume Next ' this section is optional - it just denies anonymous access If Request.ServerVariables("LOGON_USER")="" Then Response.Status = "401 Access Denied" End If ' declare variables Dim objFSO, objFolder Dim objCollection, objItem Dim strPhysicalPath, strTitle, strServerName Dim strPath, strTemp Dim strName, strFile, strExt, strAttr Dim intSizeB, intSizeK, intAttr, dtmDate ' declare constants Const vbReadOnly = 1 Const vbHidden = 2 Const vbSystem = 4 Const vbVolume = 8 Const vbDirectory = 16 Const vbArchive = 32 Const vbAlias = 64 Const vbCompressed = 128 ' don't cache the page Response.AddHeader "Pragma", "No-Cache" Response.CacheControl = "Private" ' get the current folder URL path strTemp = Mid(Request.ServerVariables("URL"),2) strPath = "" Do While Instr(strTemp,"/") strPath = strPath & Left(strTemp,Instr(strTemp,"/")) strTemp = Mid(strTemp,Instr(strTemp,"/")+1) Loop strPath = "/" & strPath ' build the page title strServerName = UCase(Request.ServerVariables("SERVER_NAME")) strTitle = "Contents of the " & strPath & " folder" ' create the file system objects strPhysicalPath = Server.MapPath(strPath) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysicalPath) %> <html> <head> <title><%=strServerName%> - <%=strTitle%></title> <meta name="GENERATOR" content="The Mighty Hand of Bob"> <style> BODY { BACKGROUND: #cccccc; COLOR: #000000; FONT-FAMILY: Arial; FONT-SIZE: 10pt; } TABLE { BACKGROUND: #000000; COLOR: #ffffff; } TH { BACKGROUND: #0000ff; COLOR: #ffffff; } TD { BACKGROUND: #ffffff; COLOR: #000000; } TT { FONT-FAMILY: Courier; FONT-SIZE: 11pt; } </style> </head> <body> <h1 align="center"><%=strServerName%><br><%=strTitle%></h1> <h4 align="center">Please choose a file/folder to view.</h4> <div align="center"><center> <table width="100%" border="0" cellspacing="1" cellpadding="2"> <tr> <th align="left">Name</th> <th align="left">Bytes</th> <th align="left">KB</th> <th align="left">Attributes</th> <th align="left">Ext</th> <th align="left">Type</th> <th align="left">Date</th> <th align="left">Time</th> </tr> <% '''''''''''''''''''''''''''''''''''''''' ' output the folder list '''''''''''''''''''''''''''''''''''''''' Set objCollection = objFolder.SubFolders For Each objItem in objCollection strName = objItem.Name strAttr = MakeAttr(objItem.Attributes) dtmDate = CDate(objItem.DateLastModified) %> <tr> <td align="left"><b><a href="<%=strName%>"><%=strName%></a></b></td> <td align="right">N/A</td> <td align="right">N/A</td> <td align="left"><tt><%=strAttr%></tt></td> <td align="left"><b><DIR></b></td> <td align="left"><b>Directory</b></td> <td align="left"><%=FormatDateTime(dtmDate,vbShortDate)%></td> <td align="left"><%=FormatDateTime(dtmDate,vbLongTime)%></td> </tr> <% Next %> <% '''''''''''''''''''''''''''''''''''''''' ' output the file list '''''''''''''''''''''''''''''''''''''''' Set objCollection = objFolder.Files For Each objItem in objCollection strName = objItem.Name strFile = Server.HTMLEncode(Lcase(strName)) intSizeB = objItem.Size intSizeK = Int((intSizeB/1024) + .5) If intSizeK = 0 Then intSizeK = 1 strAttr = MakeAttr(objItem.Attributes) strName = Ucase(objItem.ShortName) If Instr(strName,".") Then strExt = Right(strName,Len(strName)-Instr(strName,".")) Else strExt = "" dtmDate = CDate(objItem.DateLastModified) %> <tr> <td align="left"><a href="<%=strFile%>"><%=strFile%></a></td> <td align="right"><%=FormatNumber(intSizeB,0)%></td> <td align="right"><%=intSizeK%>K</td> <td align="left"><tt><%=strAttr%></tt></td> <td align="left"><%=strExt%></td> <td align="left"><%=objItem.Type%></td> <td align="left"><%=FormatDateTime(dtmDate,vbShortDate)%></td> <td align="left"><%=FormatDateTime(dtmDate,vbLongTime)%></td> </tr> <% Next %> </table> </center></div> </body> </html> <% Set objFSO = Nothing Set objFolder = Nothing ' this adds the IIf() function to VBScript Function IIf(i,j,k) If i Then IIf = j Else IIf = k End Function ' this function creates a string from the file atttributes Function MakeAttr(intAttr) MakeAttr = MakeAttr & IIf(intAttr And vbArchive,"A","-") MakeAttr = MakeAttr & IIf(intAttr And vbSystem,"S","-") MakeAttr = MakeAttr & IIf(intAttr And vbHidden,"H","-") MakeAttr = MakeAttr & IIf(intAttr And vbReadOnly,"R","-") End Function %> Now I need to exclude some files from viewing, for example, web.config file. I inserted this expression inside For Each loop, but it does not hide it and calls an error. if strName = 'web.config' Then Next
  4. This property doesn't work in latest Firefox and Chrome. The information is contradictional: w3.org, msdn.microsoft.com and developer.mozilla.org have the information on this property, although I can't find it on w3schools, it also doesn't seem to be working on TryIt Editor Sandbox. Anyone has this feature working in any browser?
  5. 2 Submits in a form

    No, it submits to another URL, but do not shows data in a different tab
  6. W3 Buttons

    Really? Would be very glad if you provide links to the full version. Thanks in advance!
  7. 2 Submits in a form

    I need two submit buttons in my form, first is going to show result in the same tab and another one is in another one. <submit target="_blank"> is not correct. <target="_blank"> is for <form> tag, right?
  8. W3 Buttons

    Yes, sure, I am using W3 for quite a while. The buttons have all the effects aside from this one.
  9. W3 Buttons

    When I'm using W3 button with hover property, for example: <button class="w3-yellow w3-hover-blue">button</button> locally, there is no hover effect at all (i.e no color changing). Why that might happen? Oh, sorry, please move the topic to the CSS thread
  10. "Insert into" query

    You are right, it is difficult to define it without the context. I took this sample code from one of the tutorials and adjusted it for my simple needs. Now as we can see from the code below there are double object creations there. I am also not sure why there is the second RecordSet creation here: Dim adoCon, strCon, sco, SQLStatement Set adoCon = Server.CreateObject("ADODB.Connection") strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\wwwroot\msaccess.mdb;" 'Set the connection string to the database adoCon.connectionstring = strCon 'Set an active connection to the Connection object adoCon.Open 'Initialise the main ADO recordset object Set sco = Server.CreateObject("ADODB.Recordset") This code was initially previous to the code I copied at the beginning of this topic.
  11. How to add smoothness to 'Back to top' scroll using classic JS (without jQuery)?
  12. "Insert into" query

    I don't know, the code worked well with this object, but it looks like it is not needed in this context
  13. "Insert into" query

    sco.Open SQLStatement, adoCon, 3, 3 What do 3, 3 numbers mean in this expression?
  14. "Insert into" query

    Cannot add even with addNew method: one of the variables is not added to the table, while others are inserted
  15. "Insert into" query

    How to add some data to DB using "Insert into" query. I now use AddNew and Update with "Select from": Dim adoCon, strCon, sco, SQLStatement Set adoCon = Server.CreateObject("ADODB.Connection") SQLStatement = "SELECT * FROM table" sco.Open SQLStatement, adoCon, 3, 3 sco.AddNew "string", info sco.Update But I need 'Insert into' to be executed
×