ciao qui di seguito è riportata una funzione che cè in aspnuke per associare ad un menu select il collegamento o non so dei parametri per il cambio versione lingua . io vorrei, invece che utilizzare il menu a tendina , metterci delle bandierine e basta come immagine e associare ad esse i parametri che utilizza questa funzione, ma non so proprio da dove cominciare , non la capisco... grazie
Sub DisplayVersions()
Dim oFs, oFolder, oFile, sVersion, sCurrentVersion, oCn, oRs, rSQL, sVersionName, sVersionGif, iLine
Set oFs = Server.CreateObject("Scripting.FileSystemObject")
If oFs.FolderExists(Server.MapPath(GLOBAL_SITE_VERSIO NS_PATH)) Then
Set oCn = DBConnexion(DB_MAIN)
sCurrentVersion = sXMLVersion
If sCurrentVersion = "" Then
sCurrentVersion = GLOBAL_SITE_DEFAULT_VERSION
End If
CreateTopTable "Versions", GetTranslation("LANG_VERSIONS")
Response.Write "<script language=""javascript"" type=""text/javascript"">" & vbCrlf
Response.Write " function changeVersion(id)" & vbCrlf
Response.Write " {" & vbCrlf
if bUseVersionImages Then
Response.Write " document.VersionSetting._SetCurrentVersion.value = id;" & vbCrlf
End If
Response.Write " document.VersionSetting.submit();" & vbCrlf
Response.Write " }" & vbCrlf
Response.Write "</script>" & vbCrlf
Response.Write "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrlf
Response.Write "<form method=""post"" name=""VersionSetting"" action=""do_setversion.asp"">" & vbCrlf
Response.Write " <tr>" & vbCrlf
Response.Write " <td align=""center"">" & vbCrlf
Set oFolder = oFs.GetFolder(Server.MapPath(GLOBAL_SITE_VERSIONS_ PATH))
if bUseVersionImages Then
Response.Write " <input type=""hidden"" name=""_SetCurrentVersion"" value=""" & sXMLVersion & """>" & vbCrlf
Response.Write GLOBAL_SITE_SUBTABLE & vbCrlf
Else
Response.Write " <select name=""_SetCurrentVersion"" class=""cell"" onChange=""javascript:changeVersion('')"">" & vbCrlf
End If
iLine = 1
For Each oFile In oFolder.Files
if right(oFile.Name, 4) = ".xml" and len(oFile.name) < 8 Then
sVersion = Ucase(Replace(oFile.Name, ".xml", ""))
rSQL = "SELECT vTitle, vPicture FROM versions WHERE vCode='" & sVersion & "'"
Set oRs = DBRecordSet(oCn, rSQL)
If Not oRs.EOF Then
sVersionName = oRs("vTitle")
sVersionGif = oRs("vPicture")
Else
sVersionName = sVersion
sVersionGif = ""
End If
oRs.close
Set oRs = Nothing
if bUseVersionImages Then
If LCase(sVersion) = LCase(sCurrentVersion) Then
Response.Write " <tr class=""tablelinemain"">" & vbCrlf
Response.Write " <td width=""100%"">"
Else
Response.Write " <tr class=""tableline" & iLine & """>" & vbCrlf
Response.Write " <td width=""100%""><a href=""JavaScript:changeVersion('" & sVersion & "');"">"
End If
If sVersionGif <> "" Then
Response.Write "[img][/img]"
End if
'rem the following line to hide version description
Response.Write " " & sVersionName
'
If LCase(sVersion) = LCase(sCurrentVersion) Then
Response.Write ""
Else
Response.Write "</a>"
End If
Response.Write "</td>" & vbCrlf
Response.Write " </tr>" & vbCrlf
iLine = 1 + ((iLine-1) XOR 1)
Else
Response.Write " <option value=""" & sVersion & """"
If LCase(sVersion) = LCase(sCurrentVersion) Then
Response.Write " selected"
End If
Response.Write ">" & sVersionName & "</option>" & vbCrlf
End If
End If
Next
Set oFolder = Nothing
if bUseVersionImages Then
Response.Write "</table>" & vbCrlf
Else
Response.Write " </select>" & vbCrlf
End If
Response.Write " </td>" & vbCrlf
Response.Write " </tr>" & vbCrlf
Response.Write "</form>" & vbCrlf
Response.Write "</table>" & vbCrlf
CreateBottomTable ""
oCn.Close
Set oCn = Nothing
End If
Set oFs = Nothing
End Sub
Rispondi quotando