📄 admin_coolsites_edit.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()
'设置所有表单初始值
fill_ALL()
end if
end sub
'编辑提交时执行的方法
sub EditSites(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="update coolsites set cs_name='" & cs_name.value & "',cs_pic='" & cs_pic.value & "',cs_url='" & cs_url.value & "',cscat_id=" & cscat_id.value & ",cs_desc='" & replace(cs_desc.value,vbcrlf,"<br>") & "',isbest=" & best & " where cs_id=" & request("id")
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
'设置所有的表单初始值
sub fill_all()
dim objcmd as new oledbcommand("select cs_name,cs_url,cs_pic,cs_desc,isbest,cscat_id from coolsites where cs_id=" & request("id"),conn)
dim objreader as oledbdatareader
try
objcmd.connection.open()
objreader=objcmd.executereader()
dim i as integer=0
dim a_data(5) as string
while objreader.read
for i=0 to objreader.fieldcount-3'(除去isbest,cscat_id和最大值，所为减3）
a_data(i)=(objreader.getstring(i))
next
a_data(4)=(objreader.getboolean(4))'isbest(是否为推荐）
a_data(5)=(objreader.getint32(5))'酷站所属分类
end while
'给服务器控件填充值
cs_name.value=a_data(0)
cs_url.value=a_data(1)
cs_pic.value=a_data(2)
cs_desc.value=replace((a_data(3)),"<br>",vbcrlf)
if a_data(4)=true then isbest.checked=true
dim t as integer
'循环所有分类，确定酷站属于哪一类
for t=0 to cscat_id.items.count-1
if cscat_id.items(t).value=a_data(5) then
cscat_id.items(t).selected=true'如果某个分类等于这个酷站的分类为把它设为选中项目
exit for
end if
next
objreader.close
objcmd.connection.close()
catch ex as exception
response.Write(ex.message)
end try
end sub
'执行SQL语句
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" id="cs_url" class="textarea" 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" runat="server">
推荐
<input type="submit" name="Submit" value="确定新增" onserverclick="EditSites" 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 + -