Input file で入力設定 ― 2008年02月15日 14時18分26秒
<html>
<head></head>
<body>
<form name="test_form" method="post" action="test.jsp">
<input type=file name=browse style="display: none;">
<input type=text name=file value=c:/test.jpg>
<input type=button
style="font-style:veranda; font-size:12px; font-weight:bold;text-transform:lowercase;color:white;background-color:#A2C382;height:22px;border-style:ridge;text-align:center;"
onClick="browse.click();file.value=browse.value;"
value="Select a File...">
<br><br>
<!-- must be clicked twice for the form to submit! -->
<input type=submit
value="Submit The Form Now!"
style="font-style:veranda; font-size:12px;">
</form>
</body>
</html>
<head></head>
<body>
<form name="test_form" method="post" action="test.jsp">
<input type=file name=browse style="display: none;">
<input type=text name=file value=c:/test.jpg>
<input type=button
style="font-style:veranda; font-size:12px; font-weight:bold;text-transform:lowercase;color:white;background-color:#A2C382;height:22px;border-style:ridge;text-align:center;"
onClick="browse.click();file.value=browse.value;"
value="Select a File...">
<br><br>
<!-- must be clicked twice for the form to submit! -->
<input type=submit
value="Submit The Form Now!"
style="font-style:veranda; font-size:12px;">
</form>
</body>
</html>
コンピュータ名取得 ― 2008年02月08日 10時13分36秒
dim objWS
Set objWS = CreateObject("WScript.Network")
Response.Write objWS.ComputerName & vbCrLf & ":" & objWS.UserName
dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
Response.Write "ドメイン = " & WshNetwork.UserDomain
Response.Write "コンピュータ名 = " & WshNetwork.ComputerName
Response.Write "ユーザー名 = " & WshNetwork.UserName
Set objWS = CreateObject("WScript.Network")
Response.Write objWS.ComputerName & vbCrLf & ":" & objWS.UserName
dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
Response.Write "ドメイン = " & WshNetwork.UserDomain
Response.Write "コンピュータ名 = " & WshNetwork.ComputerName
Response.Write "ユーザー名 = " & WshNetwork.UserName
最近のコメント