📄 oldasp.asp
字号:
<!-- #INCLUDE FILE="./ConnectionStrings.asp" -->
<html>
<form action="OldAsp.asp" method="post">
Please select your delivery method:
<select id="ShipMethod" Name="ShipMethod" size="1">
<%
Dim rsShip
Dim SQL
Dim ItemField
Set rsShip = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Shippers"
rsShip.Open SQL, ConnectionString
While Not rsShip.EOF
Response.Write "<option value='" & _
rsShip("ShipperID") & "'>" & _
rsShip("CompanyName") & "</option>" & vbCrLf
rsShip.MoveNext
Wend
rsShip.Close
Set rsShip = Nothing
%>
</select>
<br>
<input type="submit" value="Place Order">
</form>
<%
If Len(Request.Form("ShipMethod")) > 0 Then
Response.write "<br>Your order will be delivered via " & _
Request.Form("ShipMethod")
End If
%>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -