WEB源码(ASP,PHP,...)

开发平台：

ASP/ASPX

fjdel.asp：源码内容

							<!--插入html头部分以及数据库接口-->
<!--#include file="in_conn.asp"-->
<%
'获取传值
dim vtid
vtid=Request.QueryString("id")
if isNumeric(vtid) then
	vtid=CLng(vtid)
else
	Response.Redirect "resp.asp"
end if
%>
<body>
<!--插入网站置顶-->
<% if u_name="" then
	Response.Redirect "log_err.asp"
else
%>
<!--#include file="in_topmb.asp"-->
<% end if %>
<script language="javascript">
function okpress(){
	document.fm1.cmdok.disabled=true;
	document.fm1.submit();
}
function cfa(){
	if(document.fm1.chkfa.checked==true){
		document.fm1.chkfa.value=1
	}
	else{
		document.fm1.chkfa.value=0
	}
}
</script>
<table align="center" width="700" height="50" border="0" cellspacing="0" cellpadding="11" class="rdkuang"><tr>
	<td width="100%" height="100%" align="center">
<%
'找出相应记录
dim strdeltip
sqlstr="SELECT * FROM tblfj WHERE fj_ID="&vtid
rs.open sqlstr,conn,0,1
	IF rs.eof AND rs.bof THEN
		Response.Redirect "resp.asp"
	END IF
	'检查资格身份
	IF rs("fj_owner")<>u_name AND u_power<2 THEN
		Response.Write "<img src='img/jjerr.gif' border='0'> 很抱歉，你不是该附件的主人，您没有删除的权限！"
		Response.Write "<br><a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回</Font>]</a>"
	ELSE
		strdeltip="<b>附件："&unhtml(rs("fj_tip"))&"</b><br>确定要删除<font class='ft1'>"&rs("fj_owner")&"</font>的这个附件吗？<br>其所占空间<font color=red>"&rs("fj_size")&"KB</font>将被释放！"
%>
<FORM name="fm1" action="fjdel_deal.asp" method="post">
<table align="center" width="500" height="50" border="0" cellpadding="0" cellspacing="0"><tr>
<td width="100%" height="100%">
<% =strdeltip %>
<input type="hidden" name="hidID" value="<% =vtid %>">
<br>
<br><input type="button" name="cmdok" value=" 确定删除 " class="an" onClick="javascript:okpress()">
</td>
</tr></table>
</FORM>
<%
			Response.Write "<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回</Font>]</a>"
	END IF
rs.close
%>
	</td>
</tr></table>
<br>
<!--插入在线统计-->
<!--#include file="in_online.asp"-->
<!--插入网站置底-->
<!--#include file="in_bottom.asp"-->
</body>
</html>

						