link.asp

来自「一个ＡＳＰ网站博克程序」· ASP 代码 · 共 36 行

<%

	Class Link
	
		'链接管理菜单
		Public Sub LinkExplor()
			Dim objDBMS
			Set objDBMS = New LarrixDBMS
			%><table width="580" cellpadding="0" cellspacing="0" border="0"><%
			%><form name="link" action="LinkInsert.asp" method="post"><%
			%><tr align="left" valign="middle"><%
			%><td width="100%" class="ground">链接地址&nbsp; <input type="text" name="label" size="15" maxlength="50" value="http://">&nbsp; 链接说明&nbsp; <input type="text" name="value" size="15" maxlength="50">&nbsp; <input type="submit" value="新增链接" class="button"></td><%
			%></tr><%
			%></form><%
			%></table><%
			objDBMS.Open "SELECT * FROM [Links] ORDER BY [LinkLAB]", 1
			If Not (objDBMS.objRSET.BOF And objDBMS.objRSET.EOF) Then
				While Not objDBMS.objRSET.EOF
					%><table width="580" cellpadding="0" cellspacing="0" border="0"><%
					%><form name="link" action="LinkModify.asp" method="post"><%
					%><input type="hidden" name="id" value="<% = objDBMS.objRSET("LinkID") %>"><%
					%><tr align="left" valign="middle"><%
					%><td width="100%" class="ground">链接名称&nbsp; <input type="text" name="label" size="15" maxlength="50" value="<% = objDBMS.objRSET("LinkLAB") %>">&nbsp; 链接说明&nbsp; <input type="text" name="value" size="15" maxlength="50" value="<% = objDBMS.objRSET("LinkVAL") %>">&nbsp; <input type="submit" value="编辑链接" class="button">&nbsp; <input type="button" value="删除链接" class="button" onclick="location.assign('LinkDelete.asp?id=<% = objDBMS.objRSET("LinkID") %>');"></td><%
					%></tr><%
					%></form><%
					%></table><%
					objDBMS.objRSET.MoveNext
				Wend
			End If
			objDBMS.Close
			Set objDBMS = Nothing
		End Sub

	End Class

%>