www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/selgjz.asp
<!--#include file="config.asp" -->
<%
function getgjzstr(gjzs)
dim str,i
gjzs=replace(gjzs," ","")
if gjzs<>"" then
str=split(gjzs,",")
for i=0 to ubound(str)
getgjzstr=getgjzstr&getmc("Jw_newskey","id",str(i),"mc")&","
next
getgjzstr=left(getgjzstr,len(getgjzstr)-1)
end if
end function
sub getgjz()
dim rs,i
i=1
set rs=conn.execute("select * from Jw_newskey order by id asc")
do while not rs.eof
Response.Write("<input name=""gjz"" type=""checkbox"" id=""gjz"" value="""&rs("id")&""">"&rs("mc")&" ")
if i mod 8=0 then
Response.Write("<br/>")
end if
i=i+1
rs.movenext
loop
call recordend(rs)
end sub
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>关键字选择</title>
<link href="inc/mm.css" rel="stylesheet" type="text/css">
<script language="javascript" src="inc/main.js"></script>
<%
if Trim(Request.Form("gjz"))<>"" then
%>
<script language="javascript">
opener.GE("gjz").value="<%= replace(Trim(Request.Form("gjz"))," ","") %>";
opener.GE("gjzstr").value="<%= getgjzstr(replace(Trim(Request.Form("gjz"))," ","")) %>";
closewin();
</script>
<%
end if
%>
<link href="inc/mm.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
mytit="分类选择"
%>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td id="tit"><strong>关键字选择</strong></td>
</tr>
<form action="" method="post" name="form1" id="form1">
<tr>
<td bgcolor="#F1FBFE">
<% call getgjz() %>
</td>
</tr>
<tr>
<td bgcolor="#C5E3F3"><input name="sel" type="submit" class="btn2" value="确认选择"/>
<input name="Submit" type="button" class="btn2" id="Submit" value="取消" onClick="closewin();"></td>
</tr>
</form>
</table>
<%
call connend()
call foot()
%>