📄 replaceimg.asp

📁 ASP编写的一个公司网站的源程序

💻 ASP

字号:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" > 
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 7.0">
<TITLE></TITLE>
</HEAD>
<BODY>

<%
tables = "News"
Contents = "News_Content"  
url2 = "http://www.szeasydo.com"
url1 = "http://"+Request.ServerVariables("HTTP_HOST")
'Call Replaceimg(tables,Contents,url1,url2)
Function Replaceimg(tables,Contents,url1,url2)
	Dim rs,StrSQL
	Set rs = Server.CreateObject("Adodb.Recordset")
	StrSQL = "Select * From News where state=1"
	rs.Open StrSQL,conn,1,3
	IF not rs.EOF then
	Do while not rs.EOF 
		If rs("News_Content")<>"" then
			Contents = Replace(rs("News_Content"),url2,url1)
			'Response.Write "Update From News Set News_Content='"&Contents&"' where News_ID="&rs("News_ID")&""
			'Response.End 
			Conn.Execute "Update News Set News_Content='"&Contents&"' where News_ID="&rs("News_ID")&""
		End IF
	rs.MoveNext 
	Loop 
	End IF
	rs.Close 
	
	StrSQL = "Select * From ProInfo where state=1"
	rs.Open StrSQL,conn,1,3
	IF not rs.EOF then
	Do while not rs.EOF 
		If rs("Pro_Content")<>"" then
			Contents = Replace(rs("Pro_Content"),url2,url1)
			'Response.Write "Update From News Set News_Content='"&Contents&"' where News_ID="&rs("News_ID")&""
			'Response.End 
			Conn.Execute "Update ProInfo Set Pro_Content='"&Contents&"' where Pro_ID="&rs("Pro_ID")&""
			
		End IF
	rs.MoveNext 
	Loop 
	End IF
	rs.Close 
	
	StrSQL = "Select * From Protype where state=1"
	rs.Open StrSQL,conn,1,3
	IF not rs.EOF then
	Do while not rs.EOF 
		If rs("Content")<>"" then
			Contents = Replace(rs("Content"),url2,url1)
			'Response.Write "Update From News Set News_Content='"&Contents&"' where News_ID="&rs("News_ID")&""
			'Response.End 
			Conn.Execute "Update Protype Set Content='"&Contents&"' where Type_ID="&rs("Type_ID")&""
		End IF
	rs.MoveNext 
	Loop 
	End IF
	rs.Close 
	Set rs = Nothing
'Response.End 
End Function


%>

</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -