📄 adminindex1.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/sessionadmin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<!--#include file="inc/css.asp"-->
<title><%=WebSiteName%></title>
</head>
<body>
<div align="left">
<table border="1" cellspacing="0" cellpadding="0">
<tr>
<%
SQL="Select * From " & Request("table")
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
I=1
For Each Name In RS.Fields
%>
<td width="100" height="22">
<p align="center"><%=Name.Name%></td>
<%
I=I+1
Next
%>
</tr>
<form action="" method="post">
<%Do While Not RS.EOF%>
<tr>
<%For Each Name In RS.Fields%>
<td width="100">
<p align="center"><input <%IF Name.Name="ID" Then%>Readonly<%End IF%> type="<%IF Name.Name="密码" Then%>password<%Else%>text<%End IF%>" name="T1" size="<%IF Name.Name="ID" Then%>3<%Else%>13<%End IF%>" style="border-style: solid; border-width: 0" value="<%=Name.Value%>"></p>
</td>
<%Next%>
</tr>
<%
RS.MoveNext
Loop
%>
<tr>
<td colspan="<%=I%>" height="30">
<p align="left"> <input type="submit" value="提交" name="B1">
<input type="reset" value="全部重写" name="B2"></td>
</tr>
</form>
</table>
</div>
<p align="center"> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -