<!--#include file="../include/hf_conn.asp"-->
<!--#include file="checkadmin.asp"-->
<script language=javascript src=../include/mouse_on_title.js></script>
<%call checkmanage("02")%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="manage.css" type="text/css">
</head>
<BODY background="../images/admin/back.gif">

<%
action=request("ok")
if action="" then 
Set rs = conn.Execute("select * from adv") 
%>

	<table width="98%" border="1"  style="border-collapse: collapse; border-style: dotted; border-width: 0px"  bordercolor="#333333" cellspacing="0" cellpadding="2">
	<form action=adv4.asp method=post name=adv>
	
	<tr class=backs><td colspan=2 class=td height=18>滚动图片设置</td></tr>
	
	<tr><td width=20% align=right height="18">图片一的路径和文件名</td><td> <input type=text value="<%=rs("pic1")%>" name=pic1 size=40 maxlength=100>
	<INPUT TYPE="button" value="浏览"  onClick="window.open('upload.asp?fuptype=adv&fupname=g1&frmname=pic1','blank_','scrollbars=yes,resizable=no,width=650,height=450')">
	</td></tr>	
	<tr><td width=20% align=right height="18">链接</td><td> <input type=text value="<%=rs("pic1_lnk")%>" name=pic1_lnk size=40 maxlength=100></td></tr>		
	<tr><td width=20% align=right height="18">说明</td><td> <input type=text value="<%=rs("tit1")%>" name=tit1 size=40 maxlength=100></td></tr>	
	<tr><td width=20% align=right height="18">图片二的路径和文件名</td><td> <input type=text value="<%=rs("pic2")%>" name=pic2 size=40 maxlength=100>
	<INPUT TYPE="button" value="浏览"  onClick="window.open('upload.asp?fuptype=adv&fupname=g2&frmname=pic2','blank_','scrollbars=yes,resizable=no,width=650,height=450')">
	</td></tr>	
	<tr><td width=20% align=right height="18">链接</td><td> <input type=text value="<%=rs("pic2_lnk")%>" name=pic2_lnk size=40 maxlength=100></td></tr>			
	<tr><td width=20% align=right height="18">说明</td><td> <input type=text value="<%=rs("tit2")%>" name=tit2 size=40 maxlength=100></td></tr>	
	<tr><td width=20% align=right height="18">图片三的路径和文件名</td><td><input type=text value="<%=rs("pic3")%>" name=pic3 size=40 maxlength=100>
	<INPUT TYPE="button" value="浏览"  onClick="window.open('upload.asp?fuptype=adv&fupname=g3&frmname=pic3','blank_','scrollbars=yes,resizable=no,width=650,height=450')">
	</td></tr>
	<tr><td width=20% align=right height="18">链接</td><td> <input type=text value="<%=rs("pic3_lnk")%>" name=pic3_lnk size=40 maxlength=100></td></tr>
	<tr><td width=20% align=right height="18">说明</td><td> <input type=text value="<%=rs("tit3")%>" name=tit3 size=40 maxlength=100></td></tr>		                
	<tr><td width=20% align=right height="18">图片四的路径和文件名</td><td> <input type=text value="<%=rs("pic4")%>" name=pic4 size=40 maxlength=100>
	<INPUT TYPE="button" value="浏览"  onClick="window.open('upload.asp?fuptype=adv&fupname=g4&frmname=pic4','blank_','scrollbars=yes,resizable=no,width=650,height=450')">
	</td></tr>
	<tr><td width=20% align=right height="18">链接</td><td> <input type=text value="<%=rs("pic4_lnk")%>" name=pic4_lnk size=40 maxlength=100></td></tr>		                
	<tr><td width=20% align=right height="18">说明</td><td> <input type=text value="<%=rs("tit4")%>" name=tit4 size=40 maxlength=100></td></tr>
	
	<tr><td colspan=2>
<INPUT name="ok" TYPE="hidden" value="ok"><INPUT name=action TYPE="submit" value="保存设置"></td></tr>
</form></table>
	<%
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing
end if%>

<%              
if action="ok" then

	if trim(request.form("pic1"))="" or trim(request.form("pic2"))="" or trim(request.form("pic3"))="" or trim(request.form("pic4"))="" then
	response.write "<script language='javascript'>"
	response.write "alert('四张滚动图片的路径和文件名必须填写，单击“确定”返回上一页！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
	end if

	pic=request.form("pic1")
	pic=split(pic,".")
	n=UBound(pic)
	if LCase(pic(n))<>"gif" and LCase(pic(n))<>"jpg" then
	response.write "<script language='javascript'>"
	response.write "alert('图片一的格式不正确，仅支持JPG、GIF格式的图片，单击“确定”返回上一页！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
	end if

	pic=request.form("pic2")
	pic=split(pic,".")
	n=UBound(pic)
	if LCase(pic(n))<>"gif" and LCase(pic(n))<>"jpg" then
	response.write "<script language='javascript'>"
	response.write "alert('图片二的格式不正确，仅支持JPG、GIF格式的图片，单击“确定”返回上一页！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
	end if

	pic=request.form("pic3")
	pic=split(pic,".")
	n=UBound(pic)
	if LCase(pic(n))<>"gif" and LCase(pic(n))<>"jpg" then
	response.write "<script language='javascript'>"
	response.write "alert('图片三的格式不正确，仅支持JPG、GIF格式的图片，单击“确定”返回上一页！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
	end if

	pic=request.form("pic4")
	pic=split(pic,".")
	n=UBound(pic)
	if LCase(pic(n))<>"gif" and LCase(pic(n))<>"jpg" then
	response.write "<script language='javascript'>"
	response.write "alert('图片四的格式不正确，仅支持JPG、GIF格式的图片，单击“确定”返回上一页！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
	end if

     Set rs=Server.CreateObject("ADODB.Recordset")
	 sql="select * from adv"
	 rs.open sql,conn,1,3
 	 rs("pic1")=trim(request.form("pic1"))
 	 rs("pic1_lnk")=trim(request.form("pic1_lnk"))
 	 rs("tit1")=trim(request.form("tit1"))

 	 rs("pic2")=trim(request.form("pic2"))
 	 rs("pic2_lnk")=trim(request.form("pic2_lnk"))
 	 rs("tit2")=trim(request.form("tit2"))

 	 rs("pic3")=trim(request.form("pic3"))
 	 rs("pic3_lnk")=trim(request.form("pic3_lnk"))
 	 rs("tit3")=trim(request.form("tit3"))

 	 rs("pic4")=trim(request.form("pic4"))
 	 rs("pic4_lnk")=trim(request.form("pic4_lnk"))
 	 rs("tit4")=trim(request.form("tit4"))

	rs.update
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing

	response.write "<script language='javascript'>"
	response.write "alert('滚动图片设置成功！');"
	response.write "location.href='adv4.asp';"
	response.write "</script>"
	response.end
end if%>

</body>
</html>

