<!--#include file="session.asp" -->
<!--#include file="../inc/conn2.asp" -->

 


<%
Function Deal(exp1)
dim exp2
exp2=Replace(exp2,Chr(13),"<br>")
exp2=Replace(exp2,Chr(10),"</p><p>")
exp2=Replace(exp2,Chr(32)," ")'还有空格哦
Deal=exp2
End Function
%>


<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from MB_news"
rs.open sql,my_conn,1,3
rs.addnew
rs("L_Url")=trim(request("Url"))
rs("L_Title")=trim(request("title"))
rs("L_Description")=request.Form("aaa")
'rs("L_big")=trim(request("bigname"))
'rs("L_small")=trim(request("minname"))
'rs("L_Vip")=trim(request("vip"))
'rs("L_QQ")=trim(request("qq"))
'rs("L_hmd")=2
rs.update
rs.close
set rs=nothing
response.write "<script>alert('添加成功！');location.href='link_list.asp?tai=1';</Script>"
Response.End
%>