Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.Design
Imports System.Web.UI.WebControls
Namespace CBDAspNet.WebControls.HTML
''' <summary>
''' 可输入的下拉框控件
''' </summary>
<ToolboxData("<{0}:TextBox runat=""server"" />")> _
Public Class TextBox
Inherits System.Web.UI.WebControls.TextBox
Private _values As Hashtable
Public _DropDownList As DropDownList
Public Sub New()
_DropDownList = New DropDownList
_values = New Hashtable
End Sub
Public Property Values() As Hashtable
Get
Return _values
End Get
Set(ByVal Value As Hashtable)
_values = Value
End Set
End Property
Protected Overrides Sub Render(ByVal Output As System.Web.UI.HtmlTextWriter)
Dim iWidth As Integer = MyBase.Width.Value
If iWidth = 0 Then
iWidth = 102
'MyBase.Width = Unit.Parse("102px")
End If
Dim sWidth As Integer = iWidth + 16
我找了一个伪静态代码，如下：
index.asp
<!--#include file="config.asp"-->
<ol>
<%
Set rs=server.CreateObject("adodb.recordset") & ......
