manage.asp

来自「asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内」· ASP 代码 · 共 9 行

<%
FunCtion Manage(PageNo,ID,TrueFalse)
If TrueFalse = False Then
	Manage = "<a href=""?Type="&Request.QueryString("Type")&"&Types="&Request.QueryString("Types")&"&PageNo="&PageNo&"&ID="&ID&"&RevisionType=CoopDate"">复制</a>\<a href=""?Type="&Request.QueryString("Type")&"&Types="&Request.QueryString("Types")&"&PageNo="&PageNo&"&ID="&ID&"&RevisionType=RevisionData"">修改</a>\<a href=""?Type="&Request.QueryString("Type")&"&Types="&Request.QueryString("Types")&"&PageNo="&PageNo&"&ID="&ID&"&RevisionType=Delete"" onClick=""return confirm('您真的要删除此信息吗？');"">删除</a>"
Else
	Manage = "<a href=""?Type="&Request.QueryString("Type")&"&Types="&Request.QueryString("Types")&"&PageNo="&PageNo&"&ID="&ID&"&RevisionType=CoopDate"">Coop</a>\<a href=""?Type="&Request.QueryString("Type")&"&Types="&Request.QueryString("Types")&"&PageNo="&PageNo&"&ID="&ID&"&RevisionType=RevisionData"">Revision</a>\<a href=""?Type="&Request.QueryString("Type")&"&Types="&Request.QueryString("Types")&"&PageNo="&PageNo&"&ID="&ID&"&RevisionType=Delete"" onClick=""return confirm('Do you really want to delete this information?？');"">Delete</a>"
End If
End FunCtion
%>