|
时区下拉.asp
(561 Bytes, 下载次数: 0, 售价: 10 个ASP币)
关键代码:
- Set objShell = server.CreateObject("WScript.Shell")
- Set objExec = objShell.Exec("cmd /c powershell [System.TimeZoneInfo]::GetSystemTimeZones().DisplayName")
- Set objStdOut = objExec.StdOut
- Response.write "<select name=""Timezones"">"
- While Not objStdOut.AtEndOfStream
- Response.write "<option>" & objStdOut.ReadLine & "</option>"
- Wend
- Response.write "</select>"
复制代码 |
|