📄 amend.asp
字号:
<!--#include file="../Session.asp"-->
<html>
<head>
<title>修改</title>
<meta http-equiv="Content-Type" content="Text/html; charset=gb2312">
<Link href="../../css/site.css" rel="stylesheet" type="Text/css">
<SCRIPT language=javascript>
function Validnumber(item){
eText=item;
elen=item.length;
for (i=0;i<=elen-1;i++){
aa=eText.charAt(i)
if (aa<'0'||aa>'9') return false;
}
return true;
}
</SCRIPT>
</head>
<body Text="#000000">
<%
if request("Act")="Save" then
set rs=server.createobject("adodb.recordset")
sql = "select * from firstPic where id="&request("id")&""
rs.Open sql,conn,1,3
rs("Flash")=request("Flash")
rs("IfFlash")=request("IfFlash")
rs("Pic1")=request("Pic1")
rs("Pic2")=request("Pic2")
rs("Pic3")=request("Pic3")
rs("Pic4")=request("Pic4")
rs("Link1")=request("Link1")
rs("Link2")=request("Link2")
rs("Link3")=request("Link3")
rs("Link4")=request("Link4")
rs("IfBr1")=request("IfBr1")
rs("IfBr2")=request("IfBr2")
rs("IfBr3")=request("IfBr3")
rs("BigId")=request("BigId")
rs("Piccount")=request("Piccount")
rs("Textcount")=request("Textcount")
rs("Text1")=request("Text1")
rs("TLink1")=request("TLink1")
rs("Text2")=request("Text2")
rs("TLink2")=request("TLink2")
rs("Text3")=request("Text3")
rs("TLink3")=request("TLink3")
rs.update
rs.close
Response.redirect"Default.asp?page="&request("page")
end if
%>
<%
function judge(a,b)
dim res
if instr(a,b)>0 then
res ="checked"
end if
judge = res
end function
%>
<%
function judges(a,b)
dim ress
if (a=b) then
ress ="selected"
end if
judges = ress
end function
%>
<% id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from firstPic where id="&id&""
rs.open sql,conn,0,1
%>
<form action="?Act=Save" method="POST" name="form" id="form">
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<td height="50" colspan="2" align="center" valign="middle" class="tdstyle"><strong><font color="#000000" size="3">修改组图</font></strong></td>
</tr>
<tr>
<td height="30" colspan="2" class="tdstyle">位 置:
<%places=rs("BigId")%> <select name="BigId" class="input1" id="BigId">
<option value="0" <%=judges(places,"0")%>>首页</option>
<%Set rs2 = Server.CreateObject("ADODB.Recordset")
sql = "select * from BigClass order by BigId"
rs2.open sql,conn,0,1
do while not rs2.eof%>
<option value="<%=rs2("BigId")%>" <%=judges(places,rs2("BigId"))%>><%=rs2("BCName")%></option>
<%rs2.movenext
loop
rs2.close%>
</select>
| 启用FSASH:
<input type="radio" name="IfFlash" value="1" <%if rs("IfFlash")=1 then:Response.Write("checked")%>>
是
<input type="radio" name="IfFlash" value="0" <%if rs("IfFlash")=0 then:Response.Write("checked")%>>
否(启用后图片及文字无效) | 图片数量:
<%Piccount=rs("Piccount")
Piccount=trim(Piccount)%> <select name="Piccount" class="input1">
<option value="0" <%=judges(Piccount,"0")%> >零个</option>
<option value="1" <%=judges(Piccount,"1")%> >一个</option>
<option value="2" <%=judges(Piccount,"2")%>>两个</option>
<option value="3" <%=judges(Piccount,"3")%>>三个</option>
<option value="4" <%=judges(Piccount,"4")%>>四个</option>
</select>
| 文字数量:
<%tcount=rs("Textcount")
tcount=trim(tcount)%> <select name="Textcount" class="input1">
<option value="0" <%=judges(tcount,"0")%>>零个</option>
<option value="1" <%=judges(tcount,"1")%>>一个</option>
<option value="2" <%=judges(tcount,"2")%>>两个</option>
<option value="3" <%=judges(tcount,"3")%>>三个</option>
</select> </td>
</tr>
<tr>
<td height="25" valign="middle" class="text">Flash:
<input name="Flash" type="Text" class="input1" value="<%=rs("Flash")%>">
</td>
<td height="25" valign="middle" class="text"><iframe name="ad1" frameborder=0 width=100% height=25 scrolling=no src=Up0.asp></iframe></td>
</tr>
<tr>
<td width="40%" height="25" valign="middle" class="tdstyle"> 图片1：
<input name="Pic1" type="Text" class="input1" value=<%=rs("Pic1")%>>
<%IfBr1=rs("IfBr1")%> <input type="checkbox" name="IfBr1" <%=judge(IfBr1,"<br>")%> value="<br>">
换行 </td>
<td width="60%" height="25" valign="middle" class="tdstyle"><iframe name="ad1" frameborder=0 width=100% height=25 scrolling=no src=Up1.asp></iframe></td>
</tr>
<tr>
<td height="25" colspan="2" valign="middle" class="tdstyle">链接1：
<input name="Link1" type="Text" class="input1" value="<%=rs("Link1")%>" size="65">
如:A.asp target=_blank</td>
</tr>
<tr>
<td height="25" valign="middle" class="tdstyle">图片2：
<input name="Pic2" type="Text" class="input1" value=<%=rs("Pic2")%>>
<%IfBr2=rs("IfBr2")%> <input type="checkbox" name="IfBr2" <%=judge(IfBr2,"<br>")%> value="<br>">
换行 </td>
<td height="25" valign="middle" class="tdstyle"><iframe name="ad2" frameborder=0 width=100% height=25 scrolling=no src=Up2.asp></iframe></td>
</tr>
<tr>
<td height="25" colspan="2" valign="middle" class="tdstyle">链接2：
<input name="Link2" type="Text" class="input1" value="<%=rs("Link2")%>" size="65">
</td>
</tr>
<tr>
<td height="25" valign="middle" class="tdstyle">图片3：
<input name="Pic3" type="Text" class="input1" value=<%=rs("Pic3")%>>
<%IfBr3=rs("IfBr3")%> <input type="checkbox" name="IfBr3" <%=judge(IfBr3,"<br>")%> value="<br>">
换行 </td>
<td height="25" valign="middle" class="tdstyle"><iframe name="ad3" frameborder=0 width=100% height=25 scrolling=no src=Up3.asp></iframe></td>
</tr>
<tr>
<td height="25" colspan="2" valign="middle" class="tdstyle">链接3：
<input name="Link3" type="Text" class="input1" value="<%=rs("Link3")%>" size="65">
</td>
</tr>
<tr>
<td valign="middle" class="tdstyle">图片4：
<input name="Pic4" type="Text" class="input1" value="<%=rs("Pic4")%>" id="Pic4">
</td>
<td valign="middle" class="tdstyle"><iframe name="add" frameborder=0 width=100% height=25 scrolling=no src=Up4.asp></iframe></td>
</tr>
<tr>
<td height="25" colspan="2" valign="middle" class="tdstyle">链接4：
<input name="Link4" type="Text" class="input1" value="<%=rs("Link4")%>" size="65">
</td>
</tr>
<tr>
<td height="25" colspan="2" valign="middle" class="tdstyle">文字1：
<input name="Text1" type="Text" class="input1" value=<%=rs("Text1")%>>
文字连接1：
<input name="TLink1" type="Text" class="input1" value="<%=rs("TLink1")%>" size="50">
</td>
</tr>
<tr>
<td height="25" colspan="2" valign="middle" class="tdstyle">文字2：
<input name="Text2" type="Text" class="input1" value=<%=rs("Text2")%>>
文字连接2：
<input name="TLink2" type="Text" class="input1" value="<%=rs("TLink2")%>" size="50">
</td>
</tr>
<tr>
<td height="25" colspan="2" valign="middle" class="tdstyle">文字3：
<input name="Text3" type="Text" class="input1" value=<%=rs("Text3")%>>
文字连接3：
<input name="TLink3" type="Text" class="input1" value="<%=rs("TLink3")%>" size="50">
</td>
</tr>
<tr>
<td height="30" colspan="2" align="center" valign="middle" class="tdstyle">
<input type="hidden" name=id value=<%=id%>>
<input name="page" type="hidden" value="<%=request("page")%>">
<input name="Submit" type="submit" class="button" value="修改"> <input name="Submit2" type="button" class="button" value="返回" onclick="javascript:window.history.go(-1)">
</td>
</tr>
</table>
<%rs.close
set rs=nothing %>
</form>
<div align="center"></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -