📄 changepic.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="session1.asp"-->
<html>
<head>
<title>邮编管理</title>
<script>
function IsDigit()
{
return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
<meta http-equiv="目录类型" content="文本/html; 字符集=gb2312">
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<center>
<table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
<form method="post" action="savechangepic.asp?action=update" name="myform">
<tr>
<th class="tableHeaderText" colspan=6><span lang="zh-cn">首页幻灯片管理</span></th>
</tr>
<tr align=center>
<td class="forumRowHighlight">序号</td>
<td class="forumRowHighlight">图片地址</td>
<td class="forumRowHighlight"><span lang="zh-cn">图片说明</span></td>
<td class="forumRowHighlight">图片链接</td>
<td class="forumRowHighlight">排序</td>
<td class="forumRowHighlight">删除</td>
</tr>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * from changepic order by picorder desc",conn,1,1
if rs.recordcount=0 then
%>
<tr>
<td colspan="6" height=25 align="center" width="100%" class="forumRowHighlight"> 还没有添加变幻图位</td>
</tr>
<%
else
do while not rs.eof
%>
<tr height=25>
<td align=center class="forumRowHighlight"><%=rs("ID")%></td>
<td align=center class="forumRowHighlight">
<input type="hidden" name="id" value="<%=rs("id")%>">
<input class=text type="text" name="pic" size="16" value="<%=trim(rs("pic"))%>">
</td>
<td align=center class="forumRowHighlight">
<input class=text type="text" name="title" size="16" value="<%=trim(rs("title"))%>" ></td>
<td align=center class="forumRowHighlight">
<input class=text type="text" name="piclink" size="16" value="<%=trim(rs("piclink"))%>" ></td>
<td align=center class="forumRowHighlight">
<input class=text type="text" name="picorder" size="10" value="<%=rs("picorder")%>" ONKEYPRESS="event.returnValue=IsDigit();" >
</td>
<td align=center class="forumRowHighlight">
<a href="Killchangepic.asp?id=<%=rs("id")%>">删除</a>
</td>
</tr>
<%
rs.MoveNext
Loop
%>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<tr height=25>
<td align=center class="forumRowHighlight">图片上传</td>
<td align=center class="forumRowHighlight" colspan="2">
图片在这上传，把生成路径复制到上面的图片路径中，再点击修改即可。
</td>
<td align=center class="forumRowHighlight">
<input name="carpic" type="text" id="carpic" size="30">
<input type="button" name="Submit4" value="上传图片" onClick="window.open('../Up_byshopPic.asp?formname=myform&editname=carpic&byshopuppath=images/changepic&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
</td>
<td align=center class="forumRowHighlight">
</td>
<td align=center class="forumRowHighlight">
</td>
</tr>
<tr>
<td colspan="6" height=25 align="center" width="100%" class="forumRowHighlight">
<input class="button" type="submit" name="Submit2" value="保存修改" style="font-family: 宋体; font-size: 9pt" >
<input class="button" type="reset" value="重新设定" style="font-family: 宋体; font-size: 9pt" name="重置" >
</td>
</tr>
</form>
<form method="post" action="savechangepic.asp?action=add">
<tr height=25>
<td align=center class="forumRowHighlight">添加<span lang="zh-cn">变幻图位</span></td>
<td align=center class="forumRowHighlight">
<input class=text type="text" name="pic" size="16">
</td>
<td align=center class="forumRowHighlight">
<input class=text type="text" name="title" size="16" ></td>
<td align=center class="forumRowHighlight">
<input class=text type="text" name="piclink" size="10" ></td>
<td align=center class="forumRowHighlight">
<input class=text type="text" name="picorder" size="10" ONKEYPRESS="event.returnValue=IsDigit();"></td>
<td align=center class="forumRowHighlight">
<input class="button" type="submit" name="Submit3" value="添加" style="font-family: 宋体; font-size: 9pt"></td>
</tr>
</form>
</table>
</center>
<p>幻灯片图片，限四幅。多或少了，都要出错。</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -