asp产生表单，用来生成提交的代码

Else , 2008/12/25 11:43 , 积累些，自己也写些 , Comments(1) , Reads(1286) , Via Original

asp产生表单，用来生成提交的代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
Dim showtable
Dim showtable_cmd
Dim showtable_numRows
tablename="mydbtable" '表的名稱
Set showtable_cmd = Server.CreateObject ("ADODB.Command")
showtable_cmd.ActiveConnection = MM_connDB_STRING
showtable_cmd.CommandText = "SELECT   INFORMATION_SCHEMA.COLUMNS.*,   COL_LENGTH('"&tablename&"', INFORMATION_SCHEMA.COLUMNS.COLUMN_NAME) AS COLUMN_LENGTH,   COLUMNPROPERTY(OBJECT_ID('"&tablename&"'), INFORMATION_SCHEMA.COLUMNS.COLUMN_NAME, 'IsComputed') AS IsComputed,   COLUMNPROPERTY(OBJECT_ID('"&tablename&"'), INFORMATION_SCHEMA.COLUMNS.COLUMN_NAME, 'IsIdentity') AS IsIdentity,   COLUMNPROPERTY(OBJECT_ID('"&tablename&"'), INFORMATION_SCHEMA.COLUMNS.COLUMN_NAME, 'IsRowGuidCol') AS IsRowGuidCol,   ExtendedProperties.Value AS ProgrammaticAlias FROM   INFORMATION_SCHEMA.COLUMNS   LEFT JOIN ::fn_listextendedproperty('ProgrammaticAlias', 'user', 'dbo', 'table', '"&tablename&"', 'column', default) AS ExtendedProperties ON INFORMATION_SCHEMA.COLUMNS.COLUMN_NAME = ExtendedProperties.objName COLLATE Chinese_PRC_CI_AS  WHERE   INFORMATION_SCHEMA.COLUMNS.TABLE_NAME = '"&tablename&"'"
showtable_cmd.Prepared = true

Set showtable = showtable_cmd.Execute
showtable_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
showtable_numRows = showtable_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>
<%= tablename %>
<br />

<%
While ((Repeat1__numRows <> 0) AND (NOT showtable.EOF))
%>
<%=(showtable.Fields.Item("COLUMN_NAME").Value)%><input name="<%=(showtable.Fields.Item("COLUMN_NAME").Value)%>"  /><br />
  <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  showtable.MoveNext()
Wend
%>
</body>
</html>
<%
showtable.Close()
Set showtable = Nothing
%>