?? change.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>信息修改</title>
<link rel="stylesheet" href="../../Css/Style.css">
</head>
<%
If request.Form("pictrue")<>"" Then
%>
<!-- #include file="../../Conn/conn.asp" -->
<%
sql="select * from tb_Link where (Pictrue='"&request.Form("pictrue")&_
"' or Name='"&request.Form("names")&"' or Address='"&_
request.Form("address")&"') and ID<>"&cint(request.QueryString("id"))
rs.open sql,conn
If not rs.Eof And not rs.Bof Then
Set rs=nothing
conn.close
Set conn=nothing
%>
<script language="javascript">
alert("類似信息已經(jīng)存在");
history.back();
</script>
<%
Else
Set rs=nothing
conn.close
Set conn=nothing
%>
<!-- #include file="../../Conn/conn.asp" -->
<%
sql="update tb_Link set Pictrue='"&request.Form("pictrue")&"',Name='"&_
request.Form("names")&"',Address='"&request.Form("address")&_
"' where ID="&request.querystring("id")
rs.open sql,conn '更新數(shù)據(jù)表
Set rs=nothing
conn.close
Set conn=nothing
%>
<!-- #include file="../../Conn/conn.asp" -->
<%
sql="insert into tb_Log(Name,Content,IssueDate) values('"&_
session("Admin")&"','鏈接信息修改成功','"&Now()&"')"
rs.open sql,conn '保存系統(tǒng)日志
set rs=nothing
conn.close
set conn=nothing
%>
<script language="javascript">
alert("鏈接信息修改完畢");
opener.location.reload();
window.close();
</script>
<%
End if
End if
%>
<script language="javascript">
function change(){
var pic=form1.pictrue.value;
var names=form1.names.value;
var address=form1.address.value;
if(pic==""){
alert("請輸入具體的圖片信息");
}else if(names==""){
alert("請輸入您添加鏈接的網(wǎng)站名稱");
}else if(address==""){
alert("請?zhí)砑泳唧w的網(wǎng)站地址");
}else{
form1.submit();
}
}
</script>
<% id=request.querystring("id")%>
<!-- #include file="../../Conn/conn.asp" -->
<%
sql="insert into tb_Log(Name,Content,IssueDate) values('"&session("Admin")&_
"','進行鏈接信息修改','"&Now()&"')"
rs.open sql,conn '保存系統(tǒng)日志
set rs=nothing
conn.close
set conn=nothing
%>
<body topmargin="0" leftmargin="0">
<form name="form1" method="post" action="Change.asp?id=<%=id%>">
<!-- #include file="../../Conn/conn.asp" -->
<%
sql="select * from tb_Link where ID="&id
rs.open sql,conn
if not rs.eof then
%>
<table width="419" height="107" border="0" cellpadding="0" cellspacing="0" bgcolor="#f9f9f9" class="wenbenkuang">
<tr bgcolor="#214994">
<td height="20" colspan="2"><div align="center"><font color="#ffffff">鏈接信息修改</font></div></td>
</tr>
<tr>
<td width="100" height="40"><div align="right"><font color="#214994">鏈接圖片信息：</font></div></td>
<td width="317" height="40"><input name="pictrue" type="text" class="wenbenkuang" id="pictrue" value="<%=rs("Pictrue")%>" size="25">
<span class="style1">（圖片的名稱和擴展名）</span></td>
</tr>
<tr>
<td height="40"><div align="right" class="style7"><font color="#214994">鏈接站點名稱：</font></div></td>
<td height="40"><input name="names" type="text" class="wenbenkuang" id="name" value="<%=rs("Name")%>" size="40"> </td>
</tr>
<tr>
<td height="40"><div align="right"><font color="#214994">鏈接地址：</font></div></td>
<td height="40"><input name="address" type="text" class="wenbenkuang" id="address" value="<%=rs("Address")%>" size="40"> </td>
</tr>
<tr>
<td height="40" colspan="2"><div align="center">
<input name="Submit2" type="button" class="go-wenbenkuang3" value="修改" onClick="change()">
<input name="Submit" type="button" class="go-wenbenkuang3" value="返回" onClick="javascript:window.close()">
</div>
</td>
</tr>
</table>
</form>
<% end if
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -