Asp > HTML Formatting
ASP Form Maker
ASP Form Maker <% 'TO DO: ' cross-browser event handling (caption ' onclick, field on change) 'shouldn't use HTML tags for formatting, ' use CSS 'verify with all SQL Server types. 'add 'goto hyperlink' and 'sendmail' ico ' ns if field contains (only) a url 'fix maxlength. shows number of bits for ' numbers. ' end to do Class CRecordEdit Public moreTblTags Public moreRowTags Public moreCaptionTags Public moreCellTags Private m_iPKFld Public Property Let uniqueField(ByVal p) m_iPKFld=uniqueField End Property Private Sub class_initialize() m_iPKFld=0 End Sub Public Sub Print(ByRef rs) With response .write "
" & vbCr Dim fld For Each fld In rs.fields .write vbTab & "
" .write "
" .write fld.name .write "
" .write "
" Call showControl(fld) .write "
" .write "
" & vbCr Next .write "
" .write vbCr & "
" .write vbCr & "
" .write vbCr & "
" .write vbCr & "
" .write vbCr & "
" .write vbCr & "
" End With End Sub Private Sub showControl(ByRef fld) Dim name,val,maxLength,width,ftype name=fld.name val=fld.value maxLength=fld.definedSize width="" ftype=fld.type 'took out widths, use CSS Select Case ftype Case 7,135 'dates maxLength=22 ' width=21 Case 3,4,5,6 maxLength=99 'should figure this out actually Case 2 'adSmallInt (-32,000) maxLength=7 ' width=7 Case 72 'GUID maxLength=38 ' width=43 Case 17 'byte maxlength=3 ' width=3 End Select Select Case ftype Case 3,17,2,131,5,6,4,130,129,202,200,72,7,135 'regular text With response .write "
0 Then .write " maxlength=""" & maxLength & """" ' if len(width)>0 then .write " s ' ize=""" & width & """" .write " onFocus=""this.select();""" .write " " & moreCellTags .write ">" End With Case 203,201 'memo With response .write "
" .write val .write "
" End With Case 11 'boolean With response .write "
" End With Case Else Response.Write "
" End Select With response .write vbCr & vbTab & "
" .write vbCr & vbTab & "
" End With End Sub End Class %>
Asp Codes
ActiveX
ADO
Array
Code Snippets
Components
Data Access
Date Time
Files
Graphics
HTML Formatting
Mathematics
Miscellaneous
Sessions
SQL
Strings
Techniques
XML