📄 admin_friendlink_add.aspx
字号:
<%@ Page Language="VB" ContentType="text/html"%>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<%@ Register TagPrefix="admin" TagName="menu" Src="../lib/adminmenu.ascx" %>
<%@ Register TagPrefix="admin" TagName="foot" Src="../lib/adminfoot.ascx" %>
<script runat="server">
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("../data/sites.mdb"))
'页面载入时的动作(page load action)
sub page_load(obj as object, e as eventargs)
if not page.Ispostback then
flcat_id.datasource=filldata("select * from flcat")
flcat_id.databind()
conn.close()
end if
end sub
sub AddSites(obj as object,e as eventargs)
dim best as boolean
if passed.checked then
best=true
else
best=false
end if
dim strSQL as string="insert into friendlink(flcat_id,fl_name,fl_logo,fl_url,fl_show,passed) values(" & flcat_id.value & ",'" & fl_name.value & "','" & fl_logo.value & "','" & fl_url.value & "','" & fl_show.value & "'," & best & ")"
executeSQl(strSQL)
end sub
function filldata(sql as string) as oledbdatareader
dim objcmd as new oledbcommand(sql,conn)
try
objcmd.connection.open()
return objcmd.executereader()
catch ex as exception
response.Write(ex.message)
finally
end try
end function
function executeSQl(sql as string)
dim objcmd as new oledbcommand(sql,conn)
try
conn.open()
objcmd.executenonquery
catch ex as exception
response.Write(ex.message)
exit function
finally
conn.close()
end try
response.write("insert is ok!name:" & fl_name.value)
end function
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>链接管理</title>
<link href="../site_css.css" rel="stylesheet" type="text/css">
</head>
<body background="../images/bg1.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="center">
<td height="8" colspan="3">
</td>
</tr>
<tr>
<td width="150" align="left" valign="top"> <admin:menu runat="server"/> </td>
<td width="1" background="../images/dotlinev.gif"></td>
<td width="554" valign="top">
<form runat="server">
<a href="admin_friendlink.aspx">［链接管理］</a>
<a href="admin_friendlink_sort.aspx">［类别管理］</a>
<a href="admin_friendlink_add.aspx">［增加链接］</a>
<a href="admin_friendlink_pass.aspx">［链接验证］</a>
<p>
<table width="98%" border="0" cellspacing="1" cellpadding="4" bgcolor="#293863">
<tr>
<td colspan="2" class="diaryhead">新增链接</td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="chinese" width="17%">链接名称</td>
<td class="chinese" width="83%">
<input type="text" id="fl_name" class="textarea" size="40" runat="server"/>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="chinese" width="17%">所属分类</td>
<td class="chinese" width="83%">
<select id="flcat_id" class="textarea" runat="server" DataTextField="flcat_name" DataValueField="flcat_id"/>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="chinese" width="17%">链接地址</td>
<td class="chinese" width="83%">
<input type="text" class="textarea" id="fl_url" value="http://" size="60" runat="server">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="chinese" width="17%">图片地址</td>
<td class="chinese" width="83%">
<input type="text" id="fl_logo" class="textarea" size="60" runat="server">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="chinese" width="17%">链接介绍</td>
<td class="chinese" width="83%">
<textarea id="fl_show" class="textarea" cols="65" rows="6" runat="server"></textarea>
</td>
</tr>
<tr bgcolor="#E8E8E8" align="center">
<td colspan="2" height="30" class="chinese">
<input type="checkbox" class="textarea" id="passed" runat="server">
PASS
<input type="submit" name="Submit" value="确定新增" onserverclick="AddSites" class="button" runat="server">
<input type="reset" name="Reset" value="清空重填" class="button">
[<a href="admin_friendlink.aspx">返回</a>] </td>
</tr>
</table>
</form>
<br>
</td>
</tr>
<tr>
<td colspan="3" height="1" background="../images/dotlineh.gif"></td>
</tr>
</table>
<admin:foot runat="server"/>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -