📄 copy.asp
字号:
<!--#include file="../Session.asp"-->
<%
if request("Act")="Save" then
Flash=request("Flash")
IfFlash=request("IfFlash")
Pic1=request("Pic1")
Pic2=request("Pic2")
Pic3=request("Pic3")
Pic4=request("Pic4")
Link1=request("Link1")
Link2=request("Link2")
Link3=request("Link3")
Link4=request("Link4")
IfBr1=request("IfBr1")
IfBr2=request("IfBr2")
IfBr3=request("IfBr3")
BigId=request("BigId")
Piccount=request("Piccount")
Textcount=request("Textcount")
Text1=request("Text1")
TLink1=request("TLink1")
Text2=request("Text2")
TLink2=request("TLink2")
Text3=request("Text3")
TLink3=request("TLink3")
if Pic1<>"" then
set rs=server.createobject("adodb.recordset")
sql = "select * from firstPic where 1<>1"
rs.Open sql,conn,1,3
rs.addnew
rs("Flash")=Flash
rs("IfFlash")=IfFlash
rs("Pic1")=Pic1
rs("Pic2")=Pic2
rs("Pic3")=Pic3
rs("Pic4")=Pic4
rs("Link1")=Link1
rs("Link2")=Link2
rs("Link3")=Link3
rs("Link4")=Link4
rs("IfBr1")=IfBr1
rs("IfBr2")=IfBr2
rs("IfBr3")=IfBr3
rs("BigId")=BigId
rs("Piccount")=Piccount
rs("Textcount")=Textcount
rs("Text1")=Text1
rs("TLink1")=TLink1
rs("Text2")=Text2
rs("TLink2")=TLink2
rs("Text3")=Text3
rs("TLink3")=TLink3
rs.update
rs.close
end if
Response.redirect"Default.asp?page="&request("page")
end if
%>
<html>
<head>
<title>复制组图</title>
<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>
<meta http-equiv="Content-Type" content="Text/html; charset=gb2312">
<Link href="../../css/site.css" rel="stylesheet" type="Text/css">
</head>
<body>
<%
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=Conn.execute("select * from firstPic where id="&id&"")
%>
<form action="?Act=Save" method="POST" name="form" id="form">
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="0">
<tr valign="middle">
<td height="50" colspan="2" align="center" class="tdstyle"><strong><font color="#000000" size="3">复制组图</font></strong></td>
</tr>
<tr valign="middle">
<td colspan="2" class="tdstyle">位置:
<%places=rs("BigId")%> <select name="BigId" class="input1">
<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")=1 then:Response.Write("checked")%>>
否(启用后图片及文字无效) | 图片数量:
<%Piccount=rs("Piccount")
Piccount=trim(Piccount)%> <select name="Piccount" class="input1">
<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="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 valign="middle">
<td width="41%" 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="59%" class="tdstyle"><iframe name="ad1" frameborder=0 width=100% height=25 scrolling=no src=Up1.asp></iframe></td>
</tr>
<tr valign="middle">
<td colspan="2" class="tdstyle">链接：
<input name="Link1" type="text" class="input1" value="<%=rs("Link1")%>" size="65">
</td>
</tr>
<tr valign="middle">
<td 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 class="tdstyle"><iframe name="ad2" frameborder=0 width=100% height=25 scrolling=no src=Up2.asp></iframe>
</td>
</tr>
<tr valign="middle">
<td colspan="2" class="tdstyle">链接：
<input name="Link2" type="text" class="input1" value="<%=rs("Link2")%>" size="65">
</td>
</tr>
<tr valign="middle">
<td 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 class="tdstyle"><iframe name="ad3" frameborder=0 width=100% height=25 scrolling=no src=Up3.asp></iframe></td>
</tr>
<tr valign="middle">
<td colspan="2" class="tdstyle">链接：
<input name="Link3" type="text" class="input1" value="<%=rs("Link3")%>" size="65">
</td>
</tr>
<tr valign="middle">
<td class="tdstyle">图片4:
<input name="Pic4" type="text" class="input1" value="<%=rs("Pic4")%>">
</td>
<td class="tdstyle"><iframe name="ad4" frameborder=0 width=100% height=25 scrolling=no src=Up4.asp></iframe>
</td>
</tr>
<tr valign="middle">
<td colspan="2" class="tdstyle">链接：
<input name="Link4" type="text" class="input1" value="<%=rs("Link4")%>" size="65">
</td>
</tr>
<tr valign="middle">
<td colspan="2" 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="60">
</td>
</tr>
<tr valign="middle">
<td colspan="2" 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="60">
</td>
</tr>
<tr valign="middle">
<td colspan="2" 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="60">
</td>
</tr>
<tr valign="middle">
<td colspan="2" align="center" class="tdstyle"> <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>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -