📄 fm.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<%@language="VBScript"%>
<%option explicit%>

<!-- #include file="../include/db.inc" -->
<!-- #include file="../include/datahandle.inc" -->
<!-- #include file="f.inc" -->

<%
Dim file_serial	: file_serial = GetParam("fid")
if IsEmpty(file_serial) then
	response.redirect "fl.asp"
end if

dim cn		: Set cn = New CDBConnection
cn.Connect(dbLocal)
dim crs

Dim formAction : formAction = GetParam("formAction")
Dim file_name, file_desp, item_id, item_desp
Dim sSQL, rs

Select Case formAction
Case "update"
	file_name = GetParam("file_name")
	file_desp = GetParam("file_desp")
	item_id   = GetParam("item_id")
'	response.write formAction & " * " & item_id & "<br>" : response.end
	sSQL = "update T_WebFiles set file_name = " & ToSQL(file_name, "Text") & _
		" , file_desp = " & ToSQL(file_desp, "Text") & _
		" , item_id = " & ToSQL(item_id, "Text") & _
		" where serial = " & ToSQL(file_serial, "Number")
'	response.write sSQL : response.end
	call ExecuteSQL(dbLocal, sSQL)
Case "delete"
	sSQL = "delete from T_WebFiles where serial = " & file_serial
	call ExecuteSQL(dbLocal, sSQL)

	response.redirect "fl.asp"
Case else
	' do nothing
End Select

sSQL = "select serial, file_name, file_desp, T1.item_id as item_id, T2.item_desp as item_desp from T_WebFiles T1, T_Item T2 " & _
	" where T1.item_id = T2.item_id " & _
	" and T1.serial = " & ToSQL(file_serial,"Number")
set crs = New CRecordset
set rs = crs.Open(dbLocal, sSQL)
if rs.EOF then
	rs.close
	cn.close
	response.redirect "fl.asp"
end if
file_name = crs.GetValue("file_name")
file_desp = crs.GetValue("file_desp")
item_id   = crs.GetValue("item_id")
item_desp = crs.GetValue("item_desp")
crs.Close()
%>

<html>
<head>
<style type="text/css">
<!-- @import url(../common/common.css); -->
</style>
</head>
<script language="VBScript">
Sub btnUpdate_OnClick()
	fileAction.formAction.value = "update"
	fileAction.Submit()
End Sub

Sub btnDelete_OnClick()
	fileAction.formAction.value = "delete"
	fileAction.Submit()
End Sub
</script>

<body>
<form method="post" name="fileAction">
<table align=center cellspacing=1 cellpadding=8 border=0 bgcolor=silver>
<tr height=30px bgcolor=white><td class=PageTitle align=center>页面文件管理</td></tr>
<tr bgcolor=white><td class=noborder>文件标识：<font color="red"><b><%=file_serial%></b></font></td></tr>
<tr bgcolor=white><td class=noborder>文件名称：<input type="text" name="file_name" value="<%=file_name%>" class=FlatCtrl size="34" maxlength="256"></td></tr>
<tr bgcolor=white><td class=noborder>文件描述：<input type="text" name="file_desp" value="<%=file_desp%>" class=FlatCtrl size="34" 
maxlength="256"></td></tr>
<tr bgcolor=white><td class=noborder>原属项目：<%=item_desp%>(<font color="blue"><b><%=item_id%></b></font>)</td></tr>
<tr bgcolor=white><td class=noborder>现属项目：<select name="item_id">
									<%=mkSelectOptions("T_Item", "item_id", "item_desp", "has_child=0", item_id)%>
								</select>
<tr height=40px bgcolor=white><td class=noborder align=center>
	<input type="button" name="btnUpdate" value=" 更 新 " class=FlatBtn>&nbsp;
	<input type="reset" name="btnReset" value=" 重 置 " class=FlatBtn>&nbsp;
	<input type="submit" name="btnDelete" value=" 删 除 " class=FlatBtn>&nbsp;
	</td></tr>
</table>
<input type="hidden" name="fid" value="<%=file_serial%>">
<input type="hidden" name="formAction">
</form>

<p align=center>
<a href="fl.asp"><img border=0 src="../images/list.gif">&nbsp;返回页面文件列表</a>
&nbsp;&nbsp;&nbsp;&nbsp;
<a href="fa.asp"><img border=0 src="../images/add.gif">&nbsp;新增页面文件</a>

</body>
</html>

<%
cn.Disconnect()
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -