新闻系统的外部链接问题

[zorro21]

新手总遇到问题，愁。
发布文章时，
正常发布文章时前台则正常显示。
我想加个文本框，里面添网就能链接到外部链接。
只要点文章标题就转到另外一个网站的URL了。


找到一个ASP的，谁能帮忙改成PHP的。
输入部分：
<input name="wang" type="text" id="wang" value="<%=rs("ljwz")%>" size="40">
输出部分：
<table align="center">
<%
startrw = 0
endrw = HLooper1__index
numberColumns = 3
numrows = 6
while((numrows <> 0) AND (Not zhsc.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<tr align="center" valign="top">
<%
While ((startrw <= endrw) AND (Not zhsc.EOF))
%>
<td width="185"><table width="183" border="0" align="center">
<tr>
<td width="177" height="30">
<div align="left">
<% if zhsc("bj")=1 then %>
<a href="zyscmp.asp?id=<%=zhsc("flid")%>" target="_blank"

class="style6"><%=(zhsc.Fields.Item("scname").Value)%></a>
<%else%>
<a href="<%=(zhsc.Fields.Item("ljwz").Value)%>" target="_blank"

class="black"><%=(zhsc.Fields.Item("scname").Value)%></a> </td>
<%end if%>

</tr>
</table> </td>
<%
startrw = startrw + 1
zhsc.MoveNext()
Wend
%>
</tr>
<%
numrows=numrows-1
Wend
%>
</table>

[zorro21]

输入部分代码:
<table width="96%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#9E9FC7" bordercolordark="#CCFFFF" bgcolor="#9E9FC7">
<tr>
<td>
<div align="center"><strong><font color="#FFFFFF">11</font></strong></div></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="1" cellpadding="0">
<form action="modify231ok.asp?id=<%=rs("flid")%>&page=<%=request("page")%>&fl=<%=request("fl")%> " method="post" name="create" onsubmit="return CheckForm()">
<tr bgcolor="#D3D3E7">
<td width="253" height="23"><div align="center">商城名称： </div></td>
<td width="693" height="23"><input name="title" type="text" id="title" value="<%=rs("scname")%>" size="40"></td>
</tr>
<tr bgcolor="#E0E0EF">
<td><div align="center">省份地区：</div></td>
<td><%
Set Rsd = Server.CreateObject ("Adodb.Recordset")
sqld="select * from sheng order by id desc"
Rsd.Open sqld,conn,1,3
%>
<SELECT onchange=javascript:selectcity() size=1 name=prov>
<OPTION value=-1 selected>未选</OPTION>
</SELECT>
<SCRIPT language=javascript>
ProvinceOptionMenu();
</SCRIPT>
<select size=1 name=city>
<option value=-1
selected>未选</option>
</select>
<span class="style1">目前省份</span> <%=rs("sheng")%> <span class="style1">地区：</span><%=rs("dq")%><span class="style1">地址：</span><%=rs("dz")%></td>
</tr>
<tr bgcolor="#E0E0EF">
<td><div align="center">商场网址：</div></td>
<td><input name="wang" type="text" id="wang" value="<%=rs("ljwz")%>" size="40">
（没有千万不要写）</td>
</tr>
<tr bgcolor="#E0E0EF">
<td><div align="center">商城图片：</div></td>
<td>
<% if rs("scimg")<>"" then %> <a href="<%=replace(rs("scimg"),"feng/..","..")%>"><img src="<%=replace(rs("scimg"),"feng/..","..")%>" alt="<%=rs("scname")%>" name="scimg" width="52" height="52" border="1"></a>
<%else%>
<img src="" alt="<%=rs("scname")%>" name="scimg" width="52" height="52" border="1">
<%end if%>
<iframe width="306" height="22" src="../upload1.asp" scrolling="no" frameborder="0" name="aa"></iframe><input name="qimg" type="hidden" id="qimg"></td>
</tr>
<tr bgcolor="#E0E0EF">
<td colspan="2">商城简介（HTML编辑）：</td>
</tr>
<tr align="center">
<td colspan="2"><input type="hidden" name="content" value="" >
<object id=wz style="LEFT: 0px; TOP: 0px" data="editor_up.asp" width=96% height=500 type=text/x-scriptlet VIEWASTEXT>
</object> </td>
</tr>
<tr align="center">
<td colspan="2"> <input name="submit" type=submit onClick="changeQuerystr()" value="提交">
  <input name="reset" type=reset value="重填"> </td>
</tr>
</form>
</table></td>
</tr>
</table>