?? addlinks.asp
字號:
<!--#include file="cn.asp"-->
<%
if session("admin")="" or request.cookies("timesshop")("admin")="" then
response.Write "<script language='javascript'>alert('請先登錄！');window.location.replace('login.asp');</script>"
response.End
end if%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>無標題文檔</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
-->
</style></head>
<body>
<table width="650" border="0" cellpadding="0" cellspacing="0" align="center">
<!--DWLayoutTable-->
<tr>
<td width="650" height="27" align="center" valign="bottom">添加友情連接</td>
</tr>
<tr>
<td height="51" valign="top">
<form id="form2" name="form2" method="post" action="savelinks.asp">
<table width="650" border="0">
<!--DWLayoutTable-->
<tr>
<td width="162" height="20" align="right" valign="top">標題：</td>
<td width="478" valign="top">
<input name="title" type="text" id="title" /> </td>
</tr>
<tr>
<td height="21" align="right" valign="top">類別：</td>
<td valign="top"><select name="lei" id="lei">
<option value="1">文字</option>
<option value="2">圖片</option>
</select> </td>
</tr>
<tr>
<td height="21" align="right" valign="top">提供圖片：</td>
<td valign="top"><input name="pic" type="text" id="pic" size="45" />
<input type="button" name="Submit22" value="上傳圖片" onClick="window.open('links/myupform.asp?formname=form2&editname=pic','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')" /></td>
</tr>
<tr>
<td height="15" align="right" valign="top">連接路徑：</td>
<td valign="top"><input name="http" type="text" id="http" size="60" /></td>
</tr>
<tr>
<td height="25" colspan="2" align="center" valign="top"><input type="submit" name="Submit" value="發布" />
<input type="reset" name="Submit2" value="重置" /></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</body>
</html>
<%title=trim(request.form("title"))
leibie=trim(request.form("leibie"))
inf=Request.Form("inf")
pic=Request.Form("pic")
if pic="" then pic="../../newspic/no.gif"
if title<>""and inf<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news",cn,1,3
rs.addnew
rs("title")=title
rs("leibie")=leibie
rs("inf")=inf
rs("pic")=pic
rs.update
response.Write "<script language='javascript'>alert('添加成功！');history.go(-2);</script>"
rs.close
set rs=nothing
cn.close
set cn=nothing
end if
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -