<!--#include file="../../inc/config.asp"-->
<!--#include file="../../inc/conn.asp"-->
<!-- #include file="../inc/Session.asp" -->
<HTML>
<HEAD>
<TITLE>来源列表</TITLE>
<link href="../../css.css" rel="stylesheet">
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<%
dim ii,fromArr
%>
<META content="MSHTML 5.00.2920.0" name=GENERATOR>
<link href="cs.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	margin-left: 10px;
}
-->
</style></HEAD>
<BODY>
<fieldset style="text-align:center; ">
<legend>来源</legend>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="5">  
  <%
  	
  	set rs=server.CreateObject("adodb.recordset")
	sql="select title from t_from order by id asc"
	rs.open sql,conn,3,1
	if not rs.eof and not rs.bof then
		fromArr=rs.GetRows()
	else
		response.write("没有记录")
		rs.close
		set rs=nothing
		call connclose()
		response.end()
	end if
	rs.close
	set rs=nothing
	for ii=0 to ubound(fromArr,2)
		response.write("<tr>"&Chr(10))
		response.write("<td>&nbsp;</td>"&Chr(10))
		response.write("<td>"&Chr(10))
		response.write("<span style=""cursor:hand;"" class=""TempletItem"" title="""&fromArr(0,ii)&""" label="""&fromArr(0,ii)&""" onClick=""SelectFile(this);"">"&(ii+1)&":"&fromArr(0,ii)&Chr(10))
		response.write("</span></td>"&Chr(10))
		response.write("</tr>"&Chr(10))
	next
  %>  
</table>
</BODY>
</HTML>
<script language="JavaScript">
var AuthorName='';
function SelectFile(Obj)
{
	for (var i=0;i<document.all.length;i++)
	{
		if (document.all(i).className=='TempletSelectItem') document.all(i).className='TempletItem';
	}
	Obj.className='TempletSelectItem';
	AuthorName=Obj.label;	
	window.returnValue =AuthorName;
	window.close();
}
</script>
<%
call connclose()
%>