📄 admin_coolsites_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
cscat_id.datasource=filldata("select * from cscat")
cscat_id.databind()
conn.close()
end if
end sub
sub AddSites(obj as object,e as eventargs)
dim best as boolean
if isbest.checked then
best=true
else
best=false
end if
dim strSQL as string="insert into coolsites(cscat_id,cs_name,cs_pic,cs_url,cs_desc,isbest) values(" & cscat_id.value & ",'" & cs_name.value & "','" & cs_pic.value & "','" & cs_url.value & "','" & cs_desc.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.Redirect("admin_coolsites.aspx")
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_coolsites.aspx">［酷站管理］</a>
<a href="admin_coolsites_sort.aspx">[类别管理］</a>
<a href="admin_coolsites_add.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="cs_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="cscat_id" class="textarea" runat="server" DataTextField="cscat_name" DataValueField="cscat_id"/>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="chinese" width="17%">站点地址</td>
<td class="chinese" width="83%">
<input type="text" class="textarea" id="cs_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="cs_pic" class="textarea" size="60" runat="server">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="chinese" width="17%">站点介绍</td>
<td class="chinese" width="83%">
<textarea id="cs_desc" 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="isbest" value="1" runat="server">
推荐
<input type="submit" name="Submit" value="确定新增" onserverclick="AddSites" class="button" runat="server">
<input type="reset" name="Reset" value="清空重填" class="button">
[<a href="admin_coolsites.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 + -