admin_coolsites_add.aspx
来自「这是一套整站系统的源代码程序」· ASPX 代码 · 共 137 行
ASPX
137 行
<%@ 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 + =
减小字号Ctrl + -
显示快捷键?