translog.asp

来自「这是一个自己研发的薪酬管理系统」· ASP 代码 · 共 22 行

<!-- #include File="conn.asp" -->
<!-- #include File="fun.asp" -->
<%
logtext1 = ReadText("log.htm")
logtext2 = ReadText("login.htm")
logtext3 = ReadText("error.htm")

logtext1=replace(logtext1,"<font color=green>","")
logtext1=replace(logtext1,"</font>","")
logtext1=replace(logtext1,"<font color=red>","")
logtext1=replace(logtext1,"<font color=blue>","")
'response.write(logtext1)

dim logtext1_split
logtext1_split = split(logtext1,"<br>")
for i= 0 to ubound(logtext1_split)-1
	log1=logtext1_split(i)
	sql="insert into wh_logs values('"&left(log1,21)&"','weqw','"&right(log1,12)&"')"
	response.write sql&"--<br>"
next

%>