<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Call iderror If request.Form("submit") = "确认修改" Then If request.Form("mj_link_name") = "" Then Call infoback("链接名称不能为空！") End If If request.Form("mj_link_url") = "" Then Call infoback("链接地址不能为空！") End If If request.Form("mj_link_order") = "" Or Not IsNumeric(request.Form("mj_link_order")) Then Call infoback("排序数字不能为空！而且必须为数字！") End If Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_link where id = "&request.QueryString("id")&"" rs.Open sql, conn, 1, 3 rs("mj_link_name") = request.Form("mj_link_name") If request.Form("mj_uploadfile") = "" Then rs("mj_uploadfile") = "text" Else rs("mj_uploadfile") = request.Form("mj_uploadfile") End If rs("mj_link_url") = request.Form("mj_link_url") rs("mj_link_order") = request.Form("mj_link_order") rs.update Call close_rs Call close_conn Call infohref("友情链接修改成功！", "mj_link.asp") End If %>
友情链接
 
 
当前位置：修改友情链接
在这里，您可以修改友情链接的名称和图片以及链接地址！
 
    系统参数设置
<% Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_link where id = "&request.QueryString("id")&"" rs.Open sql, conn, 1, 1 If rs.EOF Then Call infoback("不存在此数据") End If %> <% Call close_rs Call close_conn %>
链接名称： " size="60" /> 必填
网站logo： " size="40" /> 请输入Logo图片地址，或直接上传。
链接地址： " size="70" /> 必填
排序数字： " size="8" /> 必填且必须为数字！