function.asp

软件类别： ASP源码 / 其他类别 软件语言： 简体中文 授权方式： 免费版 文件大小： 26K

<link href=style.css rel=stylesheet>
<%
function HTMLEncode(fString)
fString=replace(fString,";","&#59;")
fString=replace(fString,"<","&lt;")
fString=replace(fString,">","&gt;")
fString=replace(fString,"\","&#92;")
fString=replace(fString,"--","&#45;&#45;")
fString=replace(fString,"'","&#39;")
fString=replace(fString,CHR(34),"&quot;")
fString=replace(fString,vbCrlf,"<br>")
HTMLEncode=fString
end function
'-------------------分类目录下拉选择菜单SortList(selec)----------------------
sub SortList(selec)
sql="Select * From ClassTree where followid="&selec&" and hide=0 order by SortNum"
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
Response.write "<option value="&rs1("ID")&">"&string(ii,"　")&""&rs1("ClassName")&"</option>"
ii=ii+1
SortList rs1("id")
ii=ii-1
rs1.movenext
loop
Set Rs1 = Nothing
end sub

sub error2(message)
%><script>alert('<%=message%>');history.back();</script><script>window.close();</script><%
end sub
'-----------分类目录列表Sort(selec)---------
dim ii
ii=0
sub sort(selec)
	sql="Select * From ClassTree where followid="&selec&" and hide=0 order by SortNum"
	Set Rs1=Conn.Execute(sql)


	do while not rs1.eof

if selec=0 then
%>
  <tr class=a1 id=TableTitleLink height=25>
<td>　<a target=_blank href=ShowProduct.asp?id=<%=rs1("id")%>><%=rs1("ClassName")%></a></td>
<td align="right" width="190">
<a href=?menu=SortAdd&id=<%=rs1("id")%>>建立类别</a> | <a href=?menu=SortEdit&id=<%=rs1("id")%>>编辑类别</a> | 
<a onclick=checkclick('您确定要删除该类别的所有资料?') href=?menu=SortDel&id=<%=rs1("id")%>>删除类别</a>
</tr>

<%
else
%>
<tr class=a3 height=25>
<td>　<%=string(ii*2,"　")%><a target=_blank href=ShowProduct.asp?id=<%=rs1("id")%>><%=rs1("ClassName")%></a></td>
<td align="right">
<a href=?menu=SortAdd&id=<%=rs1("id")%>>建立类别</a> | <a href=?menu=SortEdit&id=<%=rs1("id")%>>编辑类别</a> | 
<a onclick=checkclick('您确定要删除该类别的所有资料?') href=?menu=SortDel&id=<%=rs1("id")%>>删除类别</a>
</tr>
<%
end if
ii=ii+1
	sort rs1("id")
ii=ii-1
	rs1.movenext
	loop
	Set Rs1 = Nothing
end sub
%>