?? link_info_modi.asp
字號:
<!--#include file="admin_check.asp"-->
<%dim dbpath
dbpath="../"
%>
<!--#include file="../Conn.asp"-->
<!--#include file="../include/MyRequest.asp"-->
<%
id=my_request("id",1)
if id="" or isnull(id) or IsNumeric(id)=False then
response.write("<script>alert(""參數錯誤!"");location.href=""link_info_List.asp"";</script>")
response.end
end if
sql="select * from link_info where id="&id
set rs=conn.execute (sql)
link_info_type=rs("link_info_type")
link_info_url=rs("link_info_url")
if link_info_type=0 then
link_info_title=rs("link_info_detail")
end if
if link_info_type=1 then
link_info_LogoPic=rs("link_info_detail")
end if
link_info_indexshow=rs("link_info_indexshow")
rs.close
set rs=nothing
action=my_request("action",0)
if action="save" then
call save()
end if
sub save()
id=my_request("id",1)
link_info_type=my_request("link_info_type",1)
if link_info_type=0 then link_info_detail=my_request("link_info_title",0)
if link_info_type=1 then link_info_detail=my_request("link_info_LogoPic",0)
link_info_url=my_request("link_info_url",0)
link_info_IndexShow=my_request("link_info_IndexShow",1)
ErrMsg=""
if link_info_type="" then
FoundErr=True
ErrMsg=ErrMsg & "<li>類型不能為空！</li>"
end if
if link_info_url="" or link_info_url="http://" then
FoundErr=True
ErrMsg=ErrMsg & "<li>鏈接網址不能為空！</li>"
end if
if FoundErr<>True then
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from link_info where id="&id
rs.open sql,conn,1,3
rs("link_info_type")=link_info_type
rs("link_info_url")=link_info_url
rs("link_info_detail")=link_info_detail
rs("link_info_IndexShow")=link_info_IndexShow
rs.update
rs.close
set rs=nothing
call ok("您已成功修改了一條友情鏈接信息！","link_info_list.asp")
else
call WriteErrMsg(ErrMsg)
end if
end sub
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>友情鏈接-友情鏈接信息-修改</title>
<link rel="stylesheet" type="text/css" href="style.css">
<script src="Editor/edit.js" type="text/javascript"></script>
<script language = "JavaScript">
function showlist(dd)
{
if(dd=="a")
{
linkimg.style.display="none";
linkimg2.style.display="";
}
else
{
linkimg.style.display="";
linkimg2.style.display="none";
}
}
</script>
</head>
<body>
<table cellspacing="1" cellpadding="4" width="100%" class="tableborder">
<tbody class="altbg2">
<form name="form1" action="link_info_modi.asp" method="post">
<input type="hidden" name="action" value="save">
<input type="hidden" name="id" value="<%=id%>">
<tr>
<td colspan="2" class="header">友情鏈接-修改</td>
</tr>
<tr>
<td>鏈接類型：</td>
<td>
<input type="radio" value="0" name="link_info_type" checked onClick='showlist("a");' <%if link_info_type=0 then response.write "checked" %>>文字鏈接
<input type="radio" value="1" name="link_info_type" onClick='showlist("b");' <%if link_info_type=1 then response.write "checked" %>>圖標鏈接</td>
</tr>
<tr id="linkimg2" <%if link_info_type=0 then%>style='display:""'<%else%>style='display:none'<%end if%>>
<td>鏈接文字：</td>
<td>
<input type="text" name="link_info_title" size="40" value="<%=link_info_title%>"></td>
</tr>
<tr id="linkimg" <%if link_info_type=1 then%>style='display:""'<%else%>style='display:none'<%end if%>>
<td>鏈接圖標：</td>
<td><%if link_info_type=1 and link_info_logoPic<>"" then%>原圖預覽：<img src="../uploadpic/<%=link_info_logoPic%>"><br><%end if%>
<input type="text" name="link_info_LogoPic" size="40" value="<%=link_info_LogoPic%>">
<input type="button" value=">>點此上傳圖標" name="action" onclick="javascript:openWin('Njj_Pic_Upload.asp?Fname=link_info_LogoPic','upload','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=yes,width=400,height=100')">
</td>
</tr>
<tr>
<td>鏈接網址：</td>
<td>
<input type="text" name="link_info_url" size="40" value="<%=link_info_url%>"></td>
</tr>
<tr>
<td>是否-首頁顯示：</td>
<td>
<input type="radio" value="0" name="link_info_IndexShow" <%if link_info_IndexShow=0 then response.write "checked" %>>是
<input type="radio" value="1" name="link_info_IndexShow" <%if link_info_IndexShow=1 then response.write "checked" %>>否</td>
</tr>
<tr>
<td> </td>
<td>
<input type="submit" value="提交" name="Submit1">
<input type="reset" value="重置" name="B2">
</td>
</tr>
</form>
</tbody>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -