📄 adv4.asp
字号:
<!--#include file="../include/buyok_shop_30_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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -